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