| ⊦ r = r0, (r1 -- sk ∈ addobj(r0, class, fis, st) -- r ↔ 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 = 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])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk ∈ st -- r0 ↔ r ≠ r0 ∧ r -- sk ∈ st])]]