kernel-Nat.clog_one_right
- Kind
- kernel-term
- Status
- checked
Supports: For every b, clog_b(1) = 0.
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- clog_one_right 2>/dev/null | grep -Ec '^Nat\.clog_one_right[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits this theorem through the trusted `Kernel::add_declaration` gate, which re-checks the proof term against the stated type, so producing this row at all is a machine-checked proof. `n = 1` is fixed, so `Nat.clog b 1 = Nat.clogAux b 1 1` has FIXED fuel `1` regardless of `b`, and this proof is a three-way case analysis on `b` rather than an induction that uses the fuel: `b = 0` and `b = 1` fail the OUTER cut `2 <= b` directly; `b = succ (succ k)` passes it, but then hits the INNER cut `2 <= n`, i.e. `2 <= 1`, a CLOSED `Bool.false` no matter what `k` is, so the third branch needs no further case split on `k`. All three branches close by `Eq.refl`. `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. Controls run 2026-08-28: the real name exits 0 and `clog_one_rightXX` exits 1.