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