| ⊦ intvalues(val ') = val .intval ' |
⊦ intvalues(val ' + vals) = val .intval + intvalues(vals)
⊦ intvalues([]) = []
[[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, [])]]