kernel-Nat.factorial_dvd_factorial
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {m n : ℕ}, m ≤ n → m.factorial ∣ n.factorial
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- factorial_dvd_factorial 2>/dev/null | grep -Ec '^Nat\.factorial_dvd_factorial[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.factorial_dvd_factorial` 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. Induction on `n` with the order hypothesis `m <= n` carried inside the motive: the `n = 0` base case splits on `m` (a nested induction) since `m = 0` is a real case closed by `dvd_refl`, and the `n = succ j` step is `dvd_factorial_of_le`'s `at_succ` case verbatim, renamed. `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.