| ⊦ (addobj(r0, class0, fis0, st)[r0 -- sk]) = (addobj(r0, class0, fis0, addobj(r, class, fis, st))[r0 -- sk]), r0 = r, sk ∈ fis0 |
⊦ ¬ sk ∈ fis ∧ sk ≠ _type → (addobj(r, class, fis, st)[r -- sk]) = st[r -- sk]
¬ _type ∈ fis ⊦ (addobj(r, class1, fis, st)[r -- _type]) = typeval(mkclasstype(class1))
⊦ ¬ sk ∈ fis ∧ sk ≠ _type → (addobj(r, class, fis, st)[r -- sk]) = st[r -- sk]
⊦ r ≠ r0 → (addobj(r, class1, fis, st)[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ typeval(ty) = typeval(ty0) ↔ ty = ty0])], [EXTRATERMS : (sk, st, fis0, class0, r0)]]