⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- _type ≠ _mode], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))])]]