| st[r1 -- (i1 + j) '] = st[r2 -- (i2 + j) '], 0 < j, ∀ i. ¬ i < 0 ∧ ¬ j ≤ i → st[r1 -- (i1 + i) '] = st[r2 -- (i2 + i) '] ⊦ ∀ i. ¬ i < 0 ∧ ¬ j < i → st[r1 -- (i1 + i) '] = st[r2 -- (i2 + i) '] |
st[r1 -- (i1 + j) '] = st[r2 -- (i2 + j) '], 0 < j, i ≤ j, 0 ≤ j, 0 ≤ i, ∀ i. ¬ i < 0 ∧ ¬ j ≤ i → st[r1 -- (i1 + i) '] = st[r2 -- (i2 + i) '] ⊦ st[r1 -- (i1 + i) '] = st[r2 -- (i2 + i) ']
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i])]]