| ∀ j. 0 ≤ j ∧ j < i → r -- j ' ∈ st, i ≤ j ⊦ ∀ j0. ¬ j0 < 0 ∧ ¬ i ≤ j0 → r -- j0 ' ∈ st[r0 -- j ', val] |
0 < i, 0 ≤ j0, j0 < j, j0 < i, i ≤ j, 0 < j, ∀ j1. ¬ j1 < 0 ∧ ¬ i ≤ j1 → r -- j1 ' ∈ st ⊦ r -- j0 ' ∈ st
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 < i → 0 < j], [CSIMPFORWARD : ⊦ i < j ∧ j ≤ j0 → i < j0], [CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPFORWARD : ⊦ i ≤ j ∧ j < j0 → i < j0], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ ¬ ¬ (r = r0 ∧ sk = sk0)], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]