| eqex(st, st0, r0), eqex(st0, st, r0) ⊦ ∀ j0. 0 ≤ j0 ∧ j0 < j → st0[r -- (i + j0) '] = st[r -- (i + j0) '], r = r0 |
j0 < j, eqex(st, st0, r0), eqex(st0, st, r0), 0 ≤ j0, 0 < j ⊦ st0[r -- (i + j0) '] = st[r -- (i + j0) '], r = r0
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j])]]