| (n + m) / m * m ≤ n ⊦ m = 0 |
∀ m. (n0 + m) / m * m ≤ n0 → m = 0, (n0 +1 + m) / m * m ≤ n0 +1 ⊦ m = 0
[Concretesimprules((Csimpgen(nat freely generated by 0, +1;) Csimpnamedseq(nat-basic2,,add-base, ⊦ n + 0 = n) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-div,,one,n ≠ 0 ⊦ n / n = 1) Csimpnamedseq(nat-mult,,one, ⊦ m0 * 1 = m0) Csimpnamedseq(nat-mult,,mult-a, ⊦ m0 * m * n = (m0 * m) * n) Csimpnamedseq(nat-mult,,mult-c, ⊦ m * n = n * m) Csimpnamedseq(nat,,lez-01, ⊦ m ≤ 0 ↔ m = 0)))]