| ⊦ update(r, fis, addobj(r, class, [], st)) = addobj(r, class, fis + [], st) |
⊦ addobj(r, class1, [], st) = st[r -- _type, typeval(mkclasstype(class1))]
⊦ update(r, fis, st[r -- _type, typeval(mkclasstype(class))]) = addobj(r, class, fis, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ fis + [] = fis])]]