| ⊦ newref(r, st) → (addobj(r, class1, [], st)[_mode, throw(r, mkclasstype(class1))]) =mode st |
⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ newref(r, st) → (st[r -- _type, typeval (mkclasstype(class1))] [_mode, throw (r, mkclasstype(class1)) ] ) =mode st])]]