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