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