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