| ⊦ j ≤ i ∧ i < j + n→i(# vals) → ((addarray(r, vals, j, st)[r -- i ']) = (addarray(r, vals, j, st0)[r -- i ']) ↔ true) |
⊦ j ≤ i ∧ i < j + n→i(# vals) → (addarray(r, vals, j, st)[r -- i ']) = vals[i→n(i - j)]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0])]]