| (2 ^ #fz(m0) * 2) * lead(m0) = lead(m) * 2 ^ #fz(m), ∃ m0. m = m0 + m0 + 1, ∀ n0, m. n0 < m0 + m0 + 1 → (lead(n0) * 2 ^ #fz(n0) = lead(m) * 2 ^ #fz(m) → m = n0) ⊦ m = 2 * m0 + 1 |
⊦ #fz(2 * n + 1) = #fz(n) + 1
⊦ lead(2 * n + 1) = lead(n)
(2 ^ #fz(m0) * 2) * lead(m0) = (2 ^ #fz(m1) * 2) * lead(m1), ∀ n0, m. n0 < m0 + m0 + 1 → (lead(n0) * 2 ^ #fz(n0) = lead(m) * 2 ^ #fz(m) → m = n0) ⊦ m1 = m0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m * n = m * n0 ↔ m = 0 ∨ n = n0], [CSIMPSEQ : ⊦ m + n = m + n0 ↔ n = n0], [CSIMPSEQ : ⊦ m ^ (n + n0) = m ^ n * m ^ n0], [CSIMPSEQ : ⊦ m * n = n * m], [CSIMPSEQ : ⊦ m0 * m * n = (m0 * m) * n], [CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ m + m = 2 * m])]]