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