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