| ∀ r, r1, class, st. r = r1 ∨ getbytearray(r1, addobj(r, class, fis0, st)) = getbytearray(r1, st) ⊦ r = r1, getbytearray(r1, addobj(r, class, fv + fis0, st)) = getbytearray(r1, st) |
⊦ addobj(r, class1, fv ' + fis, st) = (addobj(r, class1, fis, st)[r -- fv .1, fv .2])
∀ r, r1, class, st. r = r1 ∨ getbytearray(r1, addobj(r, class, fis0, st)) = getbytearray(r1, st) ⊦ r = r1, getbytearray(r1, addobj(r, class, fis0, st)) = getbytearray(r1, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r1 ≠ r → getbytearray (r1, st[r -- sk, val]) = getbytearray(r1, st)], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ fv + fis = fv ' + fis])]]