| st1[r1 -- fs '] = refval(r2), st1[r1 -- _type] .type = mkclasstype(class), st[r -- _type] = st1[r1 -- _type], is_referencevalue(st1[r1 -- fs ']), fs ' ∈ instfields(class), ∀ fs. fs ' ∈ instfields(class) ∧ is_referencevalue(st[r -- fs ']) → ps=(st[r -- fs '] .refval, st, st1[r1 -- fs '] .refval, st1), ∀ fs. fs ' ∈ instfields(class) ∧ ¬ is_referencevalue(st[r -- fs ']) → st[r -- fs '] = st1[r1 -- fs '], ∀ st, r, st0, r0, str0. maxpath(str0, r0, st0) < maxpath(str, r1, st1) → ( true → ( ¬ cyclic(str0, r, st) ∧ ¬ cyclic(str0, r0, st0) ∧ ¬ junkref(str0, r, st) ∧ ¬ junkref(str0, r0, st0) → (ps=(r, st, r0, st0) → ps=(r0, st0, r, st)))) ⊦ r1 = jvmref, r = jvmref, cyclic(str, r, st), cyclic(str, r1, st1), junkref(str, r, st), junkref(str, r1, st1), ps=(r2, st1, st[r -- fs '] .refval, st) |
st[r -- _type] = st1[r1 -- _type], st1[r1 -- _type] .type = mkclasstype(class), st1[r1 -- fs '] = refval(r2), fs ' ∈ instfields(class), ∀ fs. fs ' ∈ instfields(class) ∧ ¬ is_referencevalue(st[r -- fs ']) → st[r -- fs '] = st1[r1 -- fs '], ∀ fs. fs ' ∈ instfields(class) ∧ is_referencevalue(st[r -- fs ']) → ps=(st[r -- fs '] .refval, st, st1[r1 -- fs '] .refval, st1), ∀ st, r, st0, r0, str0. maxpath(str0, r0, st0) < maxpath(str, r1, st1) → ( true → ( ¬ cyclic(str0, r, st) ∧ ¬ cyclic(str0, r0, st0) ∧ ¬ junkref(str0, r, st) ∧ ¬ junkref(str0, r0, st0) → (ps=(r, st, r0, st0) → ps=(r0, st0, r, st)))) ⊦ r = jvmref, r1 = jvmref, ps=(r2, st1, st[r -- fs '] .refval, st), junkref(str, r1, st1), junkref(str, r, st), cyclic(str, r1, st1), cyclic(str, r, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]