| ⊦ vals2ints(val ') = val2int(val) ' |
⊦ vals2ints(val ' + vals) = val2int(val) + vals2ints(vals)
⊦ vals2ints([]) = []
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ vals + [] = vals], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ i + ints = i ' + ints], [CSIMPSEQ : ⊦ ints + [] = ints], [CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1])], [EXTRATERMS : (val, [])]]