| ∀ sk, r, class, st. sk = _type ∨ (addobj(r, class, fis0, st)[r -- sk]) = st[r -- sk] ∨ sk ∈ fis0 ⊦ sk = _type, ((sk = fv .1 ⊃ fv .2; addobj(r, class, fis0, st)[r -- sk])) = st[r -- sk], sk ∈ fv ', sk ∈ fis0 |
sk = fv .1, ∀ sk, r, class, st. sk = _type ∨ (addobj(r, class, fis0, st)[r -- sk]) = st[r -- sk] ∨ sk ∈ fis0 ⊦ fv .2 = st[r -- sk], sk = _type, sk ∈ fv ', sk ∈ fis0
sk ≠ fv .1, ∀ sk, r, class, st. sk = _type ∨ (addobj(r, class, fis0, st)[r -- sk]) = st[r -- sk] ∨ sk ∈ fis0 ⊦ (addobj(r, class, fis0, st)[r -- sk]) = st[r -- sk], sk = _type, sk ∈ fv ', sk ∈ fis0
[[CONCRETESIMPRULES : ()]]