| ∀ r, sk, class, st. r -- sk ∈ addobj(r, class, fis0, st) ↔ sk ∈ fis0 ∨ sk = _type ∨ r -- sk ∈ st ⊦ r -- sk ∈ addobj(r, class, fv + fis0, st) ↔ sk ∈ fv + fis0 ∨ sk = _type ∨ r -- sk ∈ st |
∀ r, sk, class, st. r -- sk ∈ addobj(r, class, fis0, st) ↔ sk ∈ fis0 ∨ sk = _type ∨ r -- sk ∈ st ⊦ r -- sk ∈ addobj(r, class, fv ' + fis0, st) ↔ sk ∈ fv ' ∨ sk ∈ fis0 ∨ sk = _type ∨ r -- sk ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ sk ∈ fis + fis0 ↔ sk ∈ fis ∨ sk ∈ fis0], [CSIMPSEQ : ⊦ fv + fis = fv ' + fis])]]