| ∀ i. intvalues(mklist(intval(i), m)) = mklist(i, m) ⊦ intvalues(mklist(intval(i), m +1)) = mklist(i, m +1) |
⊦ intvalues(vals + vals0) = intvalues(vals) + intvalues(vals0)
⊦ intvalues(val ') = val .intval '
∀ i. intvalues(mklist(intval(i), m)) = mklist(i, m) ⊦ intvalues(mklist(intval(i), m)) = mklist(i, m)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1], [CSIMPSEQ : ⊦ ints + ints0 = ints1 + ints0 ↔ ints = ints1], [CSIMPSEQ : ⊦ mklist(i, 1) = i '], [CSIMPSEQ : ⊦ mklist(i, m + n) = mklist(i, m) + mklist(i, n)], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ intval(i) .intval = i], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ mklist(val, 1) = val '], [CSIMPSEQ : ⊦ mklist(val, m + n) = mklist(val, m) + mklist(val, n)], [CSIMPSEQ : ⊦ m +1 = m + 1])]]