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