| newref(r, st), r0 -- sk ∈ st, r0 ∈ st ⊦ r = jvmref, r0 -- sk ∈ addobj(r, class, instfields(class), st) ∧ st[r0 -- sk] = (addobj(r, class, instfields(class), st)[r0 -- sk]) |
⊦ r ≠ r0 → (r -- sk ∈ addobj(r0, class, sks, st) ↔ r -- sk ∈ st)
⊦ r ≠ r0 → (addobj(r0, class, sks, st)[r -- sk]) = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ∈ st → ¬ newref(r, st)])], [EXTRATERMS : (st, instfields(class), class, r, sk, r0)]]