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