| ⊦ fis = [], update(r, fis, st) = (update(r, fis .rest, st)[r -- fis .first .1, fis .first .2]) |
⊦ update(r, fv ' + fis, st) = (update(r, fis, st)[r -- fv .1, fv .2])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ fv + fis = fv ' + fis], [CSIMPSEQ : ⊦ fv ' + fis ≠ []], [CSIMPSEQ : ⊦ (fis + fis0) + fis1 = fis + fis0 + fis1], [CSIMPELIM : fis ≠ [] ⊦ fv = fis .first ∧ fis0 = fis .rest ↔ fis = fv + fis0])], [EXTRATERMS : (fis, fv, fis0)]]