| sk ∈ fv ' + fis0, ∀ sk, r, class, st. sk ∈ fis0 → (addobj(r, class, fis0, st)[r -- sk]) = fis0[sk] ⊦ (addobj(r, class, fis0, st)[r -- fv .1, fv .2][r -- sk]) = (fv ' + fis0)[sk] |
sk ∈ fv ' + fis0, ∀ sk, r, class, st. sk ∈ fis0 → (addobj(r, class, fis0, st)[r -- sk]) = fis0[sk] ⊦ ((sk = fv .1 ⊃ fv .2; addobj(r, class, fis0, st)[r -- sk])) = (fv ' + fis0)[sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))])]]