| ⊦ r ≠ r0 → (r -- sk ∈ addobj(r0, class1, fis, st) ↔ r -- sk ∈ st) |
⊦ rk ∈ st → rk ∈ addobj(r, class1, fis, st)
⊦ r ∈ addobj(r0, class1, fis, st) ↔ r = r0 ∨ r ∈ st
r -- sk ∈ addobj(r0, class1, fis, st), r ∈ st ⊦ r = r0, r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st])]]