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