| ∀ r, sk, class, st. r -- sk ∈ addobj(r, class, fis0, st) ↔ sk ∈ fis0 ∨ sk = _type ∨ r -- sk ∈ st ⊦ r -- sk ∈ addobj(r, class, fv ' + fis0, st) ↔ sk ∈ fv ' ∨ sk ∈ fis0 ∨ sk = _type ∨ r -- sk ∈ st |
⊦ (∀ r, sk, class, st. r -- sk ∈ addobj(r, class, fis0, st) ↔ sk ∈ fis0 ∨ sk = _type ∨ r -- sk ∈ st) → (r -- sk0 ∈ addobj(r, class, (sk × val) ' + fis0, st) ↔ sk0 ∈ (sk × val) ' ∨ sk0 ∈ fis0 ∨ sk0 = _type ∨ r -- sk0 ∈ st)
[[CONCRETESIMPRULES : ([CSIMPGEN : fieldvalue generated by ×;])]]