| ∀ r, r0, st. r ∈ update(r0, fis0, st) ↔ r ∈ st ∨ r = r0 ∧ fis0 ≠ [] ⊦ r ∈ update(r0, fv + fis0, st) ↔ r ∈ st ∨ r = r0 ∧ fv + fis0 ≠ [] |
⊦ update(r, fv ' + fis, st) = (update(r, fis, st)[r -- fv .1, fv .2])
∀ r, r0, st. r ∈ update(r0, fis0, st) ↔ r ∈ st ∨ r = r0 ∧ fis0 ≠ [] ⊦ r ∈ (update(r0, fis0, st)[r0 -- fv .1, fv .2]) ↔ r ∈ st ∨ r = r0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ fv ' ≠ []], [CSIMPSEQ : ⊦ ¬ fis + fis0 ≠ [] ↔ fis = [] ∧ fis0 = []], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPSEQ : ⊦ fv + fis = fv ' + fis])]]