| 0 ≤ i + n→i(# vals), i→n(i) + # vals ≤ # vals0, 0 ≤ i, i→n(i) + # vals ≤ i→n(i0), 0 ≤ i0, # vals0 ≤ i→n(i0), i0 < i + n→i(# vals), i ≤ i0, 0 < i + n→i(# vals) ⊦ vals = [], r -- i0 ' ∈ st |
0 ≤ i ⊦ ((* m)) ≤ i→n(i) ↔ n→i(m) ≤ i
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ n→i(m + n) = n→i(m) + n→i(n)], [CSIMPSEQ : ⊦ 0 ≤ i → n→i(i→n(i)) = i], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i < j → (¬ ¬ j ≤ i ↔ false)], [CSIMPSEQ : ⊦ m + n = n + m])], [EXTRATERMS : (i0, i→n(i) + # vals)]]