| ∀ r, r0, class1, st. r ∈ addobj(r0, class1, fis0, st) ↔ r = r0 ∨ r ∈ st ⊦ r ∈ (addobj(r0, class1, fis0, st)[r0 -- sk, val]) ↔ r = r0 ∨ r ∈ st |
⊦ r ∈ st[r0 -- sk, val] ↔ r = r0 ∨ r ∈ st
∀ r, r0, class1, st. r ∈ addobj(r0, class1, fis0, st) ↔ r = r0 ∨ r ∈ st ⊦ r = r0 ∨ r ∈ addobj(r0, class1, fis0, st) ↔ r = r0 ∨ r ∈ st
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (val, sk, r0, addobj(r0, class1, fis0, st), r)]]