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