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