| ¬ ¬ sk ∈ fis, ∀ 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 -- sk, val]) = addobj(r, class, fis + (sk × val) ' + fis1, st) |
sk ∈ fis, ∀ 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)) = addobj(r, class, fis + (sk × val) ' + fis1, st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ sk ∈ fis → update (r, fis, st[r -- sk, val]) = update(r, fis, st)])]]