| newref(r, st) ⊦ addobj(r, class, fis, st) -- r = st, r = jvmref |
⊦ st1 = st2 ↔ (∀ rk. (rk ∈ st1 ↔ rk ∈ st2) ∧ st1[rk] = st2[rk])
newref(r, st) ⊦ ∀ rk. (rk ∈ addobj(r, class, fis, st) -- r ↔ rk ∈ st) ∧ (addobj(r, class, fis, st) -- r)[rk] = st[rk], r = jvmref
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, addobj(r, class, fis, st) -- r)]]