kernel-Nat.add_one_mul_choose_eq
- Kind
- kernel-term
- Status
- checked
Supports: ∀ (n k : ℕ), (n + 1) * n.choose k = (n + 1).choose (k + 1) * (k + 1)
test "$(cargo run -q --release -p axeyum-lean-kernel --example nat_theorem_inventory -- add_one_mul_choose_eq 2>/dev/null | grep -Ec '^Nat\.add_one_mul_choose_eq[[:space:]]')" -ge 1 Evidence notes
`Nat.add_one_mul_choose_eq` (nat_prelude/draw11_mirrors.rs, `declare_add_one_mul_choose_eq`, lane draw11-theorems-b) is a fresh construction: `Nat.succ_mul_choose_eq(n,k) : (succ k) * choose(succ n)(succ k) = (succ n) * choose n k` read backwards (`symm`) already states the target equation with the two products' factor order swapped on the right-hand side; one `Nat.mul_comm` on that product finishes it. This codebase spells `n+1` as `Nat.succ n`, definitionally equal to `Nat.add n 1`. `nat_theorem_inventory`'s rendered type is `((x0 : AxNat) -> ((x1 : AxNat) -> Eq.{1} AxNat (AxNat.mul (AxNat.succ x0) (AxNat.choose x0 x1)) (AxNat.mul (AxNat.choose (AxNat.succ x0) (AxNat.succ x1)) (AxNat.succ x1))))` -- reading `x0=n, x1=k`, this is `mul (succ n) (choose n k) = mul (choose (succ n)(succ k)) (succ k)`, matching `formal.statement` (`(n+1) * n.choose k = (n+1).choose(k+1) * (k+1)`) verbatim. `nat_theorem_inventory` exits non-zero for a name that does not exist, and the `grep -c` count (tested `-ge 1`, not piped into `grep -q`) requires the admitted declaration to actually be printed. A discriminating unit test in `nat_prelude_tests.rs` (`add_one_mul_choose_eq_holds_at_a_concrete_point`) checks the RENDERED type at `(n,k)=(3,1)` (not just the reduced value, which the dropped-`mul_comm` variant would also satisfy at `4*3=2*6=12` if compared only numerically) and confirms both sides reduce to `12`.