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