kernel-Nat.multichoose_one_right
- Kind
- kernel-term
- Status
- checked
Supports: n.multichoose 1 = n
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- multichoose_one_right 2>/dev/null | grep -Ec '^Nat\.multichoose_one_right[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits this theorem through the trusted `Kernel::add_declaration` gate. `n.multichoose 1` reduces to `choose (pred (add n 1)) 1`, and `add n 1 ≡ add n (succ zero) ≡ succ (add n zero) ≡ succ n` reduces FULLY by ι alone -- the literal `1` sits on `Nat.add`'s right/recursive side, and `add n zero ≡ n` is its base case holding for any `n` -- then `pred (succ n) ≡ n` reduces the same way, so the whole index collapses to `n` with no lemma at all, and this theorem's proof term is literally `Nat.choose_one_right`'s own proof, applied at `n`. Unlike `Nat.multichoose_one`, no `congr`/`trans` chain is needed here, because the literal is on `add`'s recursive side rather than its non-recursive side. `nat_theorem_inventory` exits non-zero for a name that does not exist, and `grep -Ec` consumes the pipe and the count is tested, so the exit status depends on what the run found.