kernel-Nat.gcd_le_mul
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {m n : ℕ}, 0 < m → 0 < n → m.gcd n ≤ m * n
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- gcd_le_mul 2>/dev/null | grep -Ec '^Nat\.gcd_le_mul[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.gcd_le_mul` through the trusted `Kernel::add_declaration` gate (declared in the new `nat_prelude/lcm_gcd_lemmas.rs`'s `declare_gcd_le_mul`). Route: `gcd_dvd_mul` gives `dvd (gcd m n) (mul m n)`; `one_le_mul` on the two positivity hypotheses gives `1 <= mul m n`; `le_of_dvd` combines them into the bound. `nat_theorem_inventory`'s rendered type for `Nat.gcd_le_mul` is `((x0 : AxNat) -> ((x1 : AxNat) -> ((x2 : AxNat.lt AxNat.zero x0) -> ((x3 : AxNat.lt AxNat.zero x1) -> AxNat.le (AxNat.gcd x0 x1) (AxNat.mul x0 x1)))))`, 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.