| st[r -- _type] = typeval(mkclasstype(class)), r -- _type ∈ st, r ∈ st ⊦ r = r1, r = jvmref, instore(r, class, [], addobj(r1, class1, fis1, st)) |
⊦ instore(r, class, [], st) ↔ r ≠ jvmref ∧ r -- _type ∈ st ∧ st[r -- _type] = typeval(mkclasstype(class))
⊦ r ≠ r0 → (r -- sk ∈ addobj(r0, class1, fis, st) ↔ r -- sk ∈ st)
⊦ r ≠ r0 → (addobj(r, class1, fis, st)[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addobj(r1, class1, fis1, st), class, r)]]