| 0 ≤ i0 + j, 0 ≤ i0, 0 < j ⊦ val = (mklist(initial_value(ty), i→n(j)) + val ' + mklist(initial_value(ty), i→n(i0)))[i→n(j)], j = 0 |
⊦ n < # vals → (vals + vals0)[n] = vals[n]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ i < i], [CSIMPSEQ : ⊦ 0 < j → abs(j) = j], [CSIMPSEQ : ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j)], [CSIMPSEQ : ⊦ ¬ n < # vals → (vals + vals0)[n] = vals0[n - # vals]], [CSIMPSEQ : ⊦ # mklist(val, n) = n], [CSIMPSEQ : ⊦ m - m = 0], [CSIMPSEQ : ⊦ (val ' + vals)[0] = val], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1])], [EXTRATERMS : (i→n(j), val ' + mklist(initial_value(ty), i→n(i0)), mklist(initial_value(ty), i→n(j)))]]