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