| sk ∈ (sk0 × val) ' + fis0, ∀ sk, r, st. sk ∈ fis0 → (update(r, fis0, st)[r -- sk]) = fis0[sk] ⊦ (update(r, (sk0 × val) ' + fis0, st)[r -- sk]) = ((sk0 × val) ' + fis0)[sk] |
⊦ update(r, (sk × val) ' + fis, st) = (update(r, fis, st)[r -- sk, val])
sk ∈ fis0, ∀ sk, r, st. sk ∈ fis0 → (update(r, fis0, st)[r -- sk]) = fis0[sk] ⊦ ((sk = sk0 ⊃ val; update(r, fis0, st)[r -- sk])) = ((sk0 × val) ' + fis0)[sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : sk ≠ sk0 ⊦ sk ∈ (sk0 × val) ' + fis ↔ sk ∈ fis], [CSIMPSEQ : ⊦ ((sk × val) ' + fis)[sk] = val], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1])]]