| ⊦ 0 < i ∧ i ≤ n→i(# vals) → (addarray(r, ty, val + vals, st)[r -- i ']) = (addarray(r, ty, vals, st)[r -- (i - 1) ']) |
0 < i, i ≤ n→i(# vals) ⊦ (addarray(r, ty, val ' + vals, st)[r -- i ']) = (addarray(r, ty, vals, st)[r -- (i - 1) ']), vals = []
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # vals = 0 ↔ vals = []], [CSIMPSEQ : ⊦ 0 < n ↔ n ≠ 0], [CSIMPSEQ : 0 ≤ i ⊦ ((* i)) < n→i(n) ↔ i→n(i) < n], [CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPFORWARD : ⊦ i ≤ j ∧ 0 < i → 0 < j], [CSIMPSEQ : ⊦ val + vals = val ' + vals])]]