| ⊦ n→i(# getdims(ints)) + countdims(ints, i) = n→i(# ints) + i |
⊦ countdims([], i) = i
⊦ getdims([]) = []
∀ i. n→i(# getdims(ints0)) + countdims(ints0, i) = n→i(# ints0) + i ⊦ n→i(# getdims(i0 + ints0)) + countdims(i0 + ints0, i) = n→i(# (i0 + ints0)) + i
[[CONCRETESIMPRULES : ([CSIMPGEN : intlist generated by [], +;], [CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + j = j + i])]]