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