| 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] |
fv = sk0 × val, sk ∈ fv ' + fis0, ∀ sk, r, class, st. sk ∈ fis0 → (addobj(r, class, fis0, st)[r -- sk]) = fis0[sk] ⊦ ((sk = sk0 ⊃ val; addobj(r, class, fis0, st)[r -- sk])) = (fv ' + fis0)[sk]
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ sk = fv .1 ∧ val = fv .2 ↔ fv = sk × val])], [EXTRATERMS : (fv, sk0, val)]]