| ⊦ (addobj(r, class1, (sk × val) ', st)[r -- sk, val0]) = addobj(r, class1, (sk × val0) ', st) |
⊦ addobj(r, class1, (sk × val) ', st) = (addobj(r, class1, [], st)[r -- sk, val])
⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk, val][rk, val0]) = st[rk, val0]])]]