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