| m * n / m + m ≤ n ⊦ m = 0 |
∀ m. m * n0 / m + m ≤ n0 → m = 0, m * n0 +1 / m + m ≤ n0 +1 ⊦ m = 0
[Concretesimprules((Csimpgen(nat freely generated by 0, +1;) Csimpnamedseq(nat-div,,zero,n ≠ 0 ⊦ 0 / n = 0) Csimpnamedseq(nat-mult,,mult-base, ⊦ m * 0 = 0) Csimpnamedseq(nat-mult,,mult-a, ⊦ m0 * m * n = (m0 * m) * n) Csimpnamedseq(nat-mult,,mult-c, ⊦ m * n = n * m) 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,,lez-01, ⊦ m ≤ 0 ↔ m = 0)))]