| ∀ r, r0, sk, class, st. r ≠ r0 ∨ ¬ sk ∈ sks0 ∧ sk ≠ _type → (r -- sk ∈ addobj(r0, class, sks0, st) ↔ r -- sk ∈ st), r ≠ r0 ∨ ¬ sk ∈ sk0 + sks0 ∧ sk ≠ _type ⊦ r -- sk ∈ addobj(r0, class, sk0 + sks0, st) ↔ r -- sk ∈ st |
∀ r, r0, sk, class, st. r ≠ r0 ∨ ¬ sk ∈ sks0 ∧ sk ≠ _type → (r -- sk ∈ addobj(r0, class, sks0, st) ↔ r -- sk ∈ st), r ≠ r0 ∨ sk ≠ sk0 ∧ ¬ sk ∈ sks0 ∧ sk ≠ _type ⊦ r -- sk ∈ addobj(r0, class, sk0 ' + sks0, st) ↔ r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (sks + sks0) + sks1 = sks + sks0 + sks1], [CSIMPSEQ : ⊦ ¬ sk ∈ sk0 ' + sks ↔ sk ≠ sk0 ∧ ¬ sk ∈ sks], [CSIMPSEQ : ⊦ sk + sks = sk ' + sks])]]