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