| 0 < j, ∀ j1, i, i0, j0, r, st. i→n(j1) < i→n(j) → (true → (i ≤ i0 ∧ i0 ≤ j0 ∧ j0 < i0 + j1 → (arraycopy(r, i, r, i0, j1, st)[r -- j0 ']) = st[r -- ((j0 - i0) + i) '])) ⊦ st[r -- (i0 + j - 1) '] = st[r -- (2 * i0 + j - 1 + i0) '] |
⊦ i - j + 1 = i - j - 1
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i * ((* j)) + j0 - i = i * (j - 1) + j0], [CSIMPSEQ : ⊦ 1 * i = i], [CSIMPSEQ : ⊦ i * j * j0 = (i * j) * j0], [CSIMPSEQ : ⊦ i * j = j * i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + j = j + i])], [EXTRATERMS : (i0, 2 * i0 + j)]]