| ⊦ (addobj(r0, class, fis, st)[r -- _length]) = st[r -- _length], _length ∈ fis |
⊦ r ≠ r0 → (addobj(r, class1, fis, st)[r0 -- sk]) = st[r0 -- sk]
¬ r0 ≠ r ⊦ (addobj(r0, class, fis, st)[r -- _length]) = st[r -- _length], _length ∈ fis
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (_length, r, st, fis, class, r0)]]