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