| i→n(i1 + i) = n + i→n(i), 0 ≤ i1, 0 ≤ i1 + i, 0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i, i1 < n→i(# vals), 0 < i + n→i(# vals) ⊦ vals = [], vals[i→n(i1)] = vals[n] |
0 ≤ i, 0 ≤ j ⊦ i→n(i + j) = i→n(i) + i→n(j)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ≤ j → (¬ ¬ j < i ↔ false)], [CSIMPSEQ : ⊦ ¬ i ≤ j ↔ j < i], [CSIMPSEQ : ⊦ m + n = m + n0 ↔ n = n0], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m])], [EXTRATERMS : (i, i1)]]