| 2 * m0 + 2 = 2^ n0 * 2 * m + 2^ n0, #fz(m0) + 1 < n0, ∀ m1, n, n0. m1 < m0 + m0 + 1 → (m1 + 1 = n * 2^ n0 ∧ #fz(m1) < n0 → false) ⊦ |
n0 = m2 +1, 2 * m0 + 2 = 2^ n0 * 2 * m + 2^ n0, #fz(m0) + 1 < n0, ∀ m1, n, n0. m1 < m0 + m0 + 1 → (m1 + 1 = n * 2^ n0 ∧ #fz(m1) < n0 → false) ⊦
[[CONCRETESIMPRULES : ([CSIMPGEN : nat generated by 0, +1;], [CSIMPSEQ : ⊦ 2^ 0 = 1], [CSIMPSEQ : n < n0 ⊦ m + ((* n)) = m0 + ((* n0)) ↔ m = m0 + (n0 - n)], [CSIMPSEQ : ⊦ n0 < n → ( m * n + n0 = m0 * n ↔ m = m0 ∧ n0 = 0)], [CSIMPSEQ : ⊦ m0 * m * n = (m0 * m) * n], [CSIMPSEQ : ⊦ m * n = n * m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + n = n + m])]]