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