| i0 < n→i(# vals0), # vals0 ≤ i→n(i0), 0 ≤ i0, i→n(i) + # vals ≤ i→n(i0), 0 ≤ i, i→n(i) + # vals ≤ # vals0, 0 ≤ i + n→i(# vals) ⊦ r -- i0 ' ∈ st |
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 < n→i(# vals0) ⊦ vals0 = [], r -- i0 ' ∈ st
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # vals = 0 ↔ vals = []], [CSIMPSEQ : ⊦ 0 < n ↔ n ≠ 0], [CSIMPSEQ : 0 ≤ i ⊦ ((* i)) < n→i(n) ↔ i→n(i) < n], [CSIMPFORWARD : ⊦ i ≤ j ∧ j < j0 → i < j0], [CSIMPSEQ : ⊦ m + n = n + m])]]