| ⊦ (addobj(r0, class, fis, st)[r0 -- fs ']) = (addobj(r0, class, fis, putByteArray(bytes, r, i, st))[r0 -- fs ']), r = r0, fs ' ∈ fis |
⊦ ¬ 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]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ typeval(ty) = typeval(ty0) ↔ ty = ty0], [CSIMPSEQ : ⊦ (putByteArray(bytes, r, j, st) [r0 -- fs ' ] ) = st[r0 -- fs ']])], [EXTRATERMS : (fs ', st, fis, class, r0)]]