| ∀ r, st, class. update(r, fis0, st[r -- _type, typeval(mkclasstype(class))]) = addobj(r, class, fis0, st) ⊦ (update(r, fis0, st[r -- _type, typeval(mkclasstype(class))])[r -- sk, val]) = (addobj(r, class, fis0, st)[r -- sk, val]) |
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (r, st, class)]]