kernel-Nat.eq_zero_of_lcm_eq_zero
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {m n : ℕ}, m.lcm n = 0 → m = 0 ∨ n = 0
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- eq_zero_of_lcm_eq_zero 2>/dev/null | grep -Ec '^Nat\.eq_zero_of_lcm_eq_zero[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.eq_zero_of_lcm_eq_zero` through the trusted `Kernel::add_declaration` gate (declared in the new `nat_prelude/lcm_gcd_lemmas.rs`'s `declare_eq_zero_of_lcm_eq_zero`). Route: `gcd_mul_lcm : gcd m n * lcm m n = m * n`, transported along the hypothesis `lcm m n = 0`, collapses the right side to `m * n = gcd m n * 0 = 0`; `mul_eq_zero` then splits the product into the disjunction -- no induction. `nat_theorem_inventory`'s rendered type for `Nat.eq_zero_of_lcm_eq_zero` is `((x0 : AxNat) -> ((x1 : AxNat) -> ((x2 : Eq.{1} AxNat (AxNat.lcm x0 x1) AxNat.zero) -> Or (Eq.{1} AxNat x0 AxNat.zero) (Eq.{1} AxNat x1 AxNat.zero))))`, 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.