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