| n0 < m2, m1 < m2, 2 * m2 ≤ n0 + m1 ⊦ m2 = 0 |
2 * m2 = m2 + m2, n0 < m2, m1 < m2, 2 * m2 ≤ n0 + m1 ⊦ m2 = 0
[Concretesimprules((Csimpnamedseq(nat-mult,,two-02, ⊦ m + m = 2 * m) Csimpnamedseq(nat-basic2,,a, ⊦ (m + n0) + n1 = m + n0 + n1) Csimpnamedseq(nat-basic2,,c, ⊦ m + n = n + m) Csimpnamedseq(nat-mult,,eq, ⊦ m0 ≠ 0 → (m * m0 = n * m0 ↔ m = n)) Csimpnamedseq(nat-mult,,mult-a, ⊦ m0 * m * n = (m0 * m) * n) Csimpnamedseq(nat-mult,,mult-c, ⊦ m * n = n * m))), Extrafmas((2 * m2 = m2 + m2))]