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