| even(lead(n)), ∃ m. n = m + m + 1, ∀ n0. n0 < n → (true → odd(lead(n0))) ⊦ |
⊦ lead(2 * n + 1) = lead(n)
even(lead(m)), ∀ n0. n0 < m + m + 1 → (true → odd(lead(n0))) ⊦
[[CONCRETESIMPRULES : ([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])]]