| ∀ r, fis, class, st. update(r, fis, addobj(r, class, fis1, st)) = addobj(r, class, fis + fis1, st) ⊦ update(r, fis, addobj(r, class, fv + fis1, st)) = addobj(r, class, fis + (fv + fis1), st) |
⊦ addobj(r, class1, fv ' + fis, st) = (addobj(r, class1, fis, st)[r -- fv .1, fv .2])
∀ r, fis, class, st. update(r, fis, addobj(r, class, fis1, st)) = addobj(r, class, fis + fis1, st) ⊦ update(r, fis, addobj(r, class, fis1, st)[r -- fv .1, fv .2]) = addobj(r, class, fis + fv ' + fis1, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ fv + fis = fv ' + fis])]]