| (arraycopy(r, i, r0, i0, j - 1, st[r0 -- (i0 + j - 1) ', st[r -- (i + j - 1) ']])[r0 -- j0 ']) = ((i0 + j = j0 + 1 ⊃ st[r -- (i + j - 1) ']; st[r0 -- j0 '])), i0 + j ≤ j0, 0 < j, ∀ j1, i0, j0, r, i, r0, st. i→n(j1) < i→n(j) → (i0 + j1 ≤ j0 → (arraycopy(r, i, r0, i0, j1, st)[r0 -- j0 ']) = st[r0 -- j0 ']) ⊦ ((i0 + j = j0 + 1 ⊃ st[r -- (i + j - 1) ']; st[r0 -- j0 '])) = st[r0 -- j0 '] |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ((* i)) + i0 - ((* j)) = (i - j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j ≤ i ↔ j ≤ 0])]]