| ¬ r ≠ r0, sk ∈ fis ⊦ (r0 -- sk0 ∈ addobj(r, class1, fis + (sk × val) ' + fis0, st) ↔ r0 -- sk0 ∈ addobj(r, class1, fis + fis0, st)) ∧ (addobj(r, class1, fis + (sk × val) ' + fis0, st)[r0 -- sk0]) = (addobj(r, class1, fis + fis0, st)[r0 -- sk0]) |
⊦ r -- sk ∈ addobj(r, class, fis, st) ↔ ¬ ¬ (sk ∈ fis ∨ sk = _type ∨ r -- sk ∈ st)
sk ∈ fis ⊦ (addobj(r0, class1, fis + (sk × val) ' + fis0, st)[r0 -- sk0]) = (addobj(r0, class1, fis + fis0, st)[r0 -- sk0])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ∈ (sk0 × val) ' ↔ sk = sk0], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ sk ∈ fis + fis0 ↔ sk ∈ fis ∨ sk ∈ fis0])]]