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