kernel-Nat.coprime_of_dvd_right
- Kind
- kernel-term
- Status
- checked
Supports: b1 divides b2, and gcd a b2 = 1, implies gcd a b1 = 1
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- coprime_of_dvd_right 2>/dev/null | grep -Ec '^Nat\.coprime_of_dvd_right[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits this theorem through the trusted `Kernel::add_declaration` gate: `gcd a b1` divides `a` (`gcd_dvd_left`) and `b1` (`gcd_dvd_right`), and `b1` divides `b2` (the hypothesis), so `dvd_trans` gives `gcd a b1 | b2`; `dvd_gcd` combines those into `gcd a b1 | gcd a b2`, which is `1` by hypothesis, so `gcd a b1 | 1` and `eq_one_of_dvd_one` closes it -- the right-hand mirror of `coprime_of_dvd_left`. `nat_theorem_inventory` exits non-zero for a name that does not exist, and the `grep -c` requires the admitted declaration to be printed.