kernel-Nat.lcm_dvd
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {m n k : ℕ}, m ∣ k → n ∣ k → m.lcm n ∣ k
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- lcm_dvd 2>/dev/null | grep -Ec '^Nat\.lcm_dvd[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.lcm_dvd` through the trusted `Kernel::add_declaration` gate (declared in `nat_prelude/lcm.rs`'s `declare_lcm_dvd`, landed before this session). Route: induction on the first argument; at `succ k`, write both arguments as multiples of their gcd, show the cofactors are coprime, and use `gauss_lemma` to extract the final quotient (five nested `dvd_elim` levels, each algebraic step factored into its own helper -- see the module doc). `nat_theorem_inventory`'s rendered type for `Nat.lcm_dvd` is `((x0 : AxNat) -> ((x1 : AxNat) -> ((x2 : AxNat) -> ((x3 : AxNat.dvd x0 x2) -> ((x4 : AxNat.dvd x1 x2) -> AxNat.dvd (AxNat.lcm x0 x1) x2)))))`, matching this fact's `formal.statement` verbatim (`x0`/`x1`/`x2` are the universally quantified variables in order). `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.