| ∀ r, r0, st, sk. r = r0 ∨ (update(r0, fis0, st)[r -- sk]) = st[r -- sk] ⊦ r = r0, (update(r0, (sk0 × val) ' + fis0, st)[r -- sk]) = st[r -- sk] |
⊦ update(r, (sk × val) ' + fis, st) = (update(r, fis, st)[r -- sk, val])
∀ r, r0, st, sk. r = r0 ∨ (update(r0, fis0, st)[r -- sk]) = st[r -- sk] ⊦ r = r0, (update(r0, fis0, st)[r -- sk]) = st[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]