| ⊦ r1 = r0, (addobj(r0, class, fis, st) -- r1)[r1 -- sk] = (st -- r1)[r1 -- sk] |
⊦ ¬ rk ∈ st → st[rk] = ∅[rk]
¬ r1 -- sk ∈ addobj(r0, class, fis, st) -- r1 ⊦ r1 = r0, ∅[r1 -- sk] = (st -- r1)[r1 -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk ∈ st -- r0 ↔ r ≠ r0 ∧ r -- sk ∈ st])], [EXTRATERMS : (r1 -- sk, addobj(r0, class, fis, st) -- r1)]]