| ⊦ r ∈ addobj(r0, class1, fis, st) ↔ r = r0 ∨ r ∈ st |
⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
∀ r, r0, class1, st. r ∈ addobj(r0, class1, fis0, st) ↔ r = r0 ∨ r ∈ st ⊦ r ∈ addobj(r0, class1, fv + fis0, st) ↔ r = r0 ∨ r ∈ st
[[CONCRETESIMPRULES : ([CSIMPGEN : fieldinits generated by [], +;], [CSIMPSEQ : ⊦ r ∈ st[r0 -- sk, val] ↔ r = r0 ∨ r ∈ st])]]