| i0 + j - 1 = j0, 0 < j, i ≤ i0, i0 ≤ j0, i ≤ j0, ∀ 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) '])) ⊦ (arraycopy(r, i, r, i0, j - 1, st[r -- j0 ', st[r -- (i + j - 1) ']])[r -- j0 ']) = st[r -- (i + j0 - i0) '] |
i ≤ i0, 0 < j, i < i0 + 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) '])) ⊦ (arraycopy(r, i, r, i0, j - 1, st[r -- (i0 + j - 1) ', st[r -- (i + j - 1) ']])[r -- (i0 + j - 1) ']) = st[r -- (i + j - 1) ']
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + 1 ≤ j ↔ i < j], [CSIMPSEQ : ⊦ 1 ≤ i ↔ 0 < i], [CSIMPSEQ : ⊦ i + j ≤ i + j0 ↔ j ≤ j0], [CSIMPSEQ : ⊦ i ≤ j - i0 ↔ i + i0 ≤ j], [CSIMPSEQ : ⊦ i + j - 1 - i = j - 1], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + (j - i0) = i + j - i0])]]