⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ initdone (class1, st[r -- _type, val]) ↔ initdone(class1, st)])]]