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