| n→i(n) + i < n→i(# vals0), 0 ≤ i, i→n(i) < # vals0, i→n(i) + # vals ≤ # vals0, i→n(i) + n < # vals0, 0 ≤ n→i(n) + i, # vals ≤ n ⊦ vals0 = [], vals0[i→n(i) + n] = (restn(i→n(i) + # vals, vals0)[n - # vals]) |
n = n0 + # vals, n→i(n) + i < n→i(# vals0), 0 ≤ i, i→n(i) < # vals0, i→n(i) + # vals ≤ # vals0, i→n(i) + n < # vals0, 0 ≤ n→i(n) + i, # vals ≤ n ⊦ vals0 = [], vals0[i→n(i) + n] = (restn(i→n(i) + # vals, vals0)[n0])
[[CONCRETESIMPRULES : ([CSIMPELIM : n ≤ m ⊦ n0 = m - n ↔ m = n0 + n])], [EXTRATERMS : (n, # vals, n0)]]