| 2^ n + lead(m) * 2^ n = lead(m + 2^ #fz(m)), odd(lead(m)), odd(2^ n) ∧ even(lead(m) * 2^ n) ∨ even(2^ n) ∧ odd(lead(m) * 2^ n) ⊦ |
⊦ odd(2^ n) ↔ n = 0
⊦ even(2^ n) ↔ n ≠ 0
2^ n + lead(m) * 2^ n = lead(m + 2^ #fz(m)), odd(lead(m)), odd(lead(m) * 2^ n) ⊦ n = 0
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ odd(n) → ¬ even(n)], [CSIMPSEQ : ⊦ m * n = n * m], [CSIMPSEQ : ⊦ m0 * m * n = (m0 * m) * n], [CSIMPSEQ : ⊦ m0 * 1 = m0], [CSIMPSEQ : ⊦ 2^ 0 = 1])]]