| ⊦ r ≠ r0 → (addobj(r, class1, fis, st)[r0 -- sk]) = st[r0 -- sk] |
⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
∀ 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]
[[CONCRETESIMPRULES : ([CSIMPGEN : fieldinits generated by [], +;], [CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]])]]