kernel-Nat.coprime_of_dvd
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {a₁ a₂ b₁ b₂ : ℕ}, a₁ ∣ a₂ → b₁ ∣ b₂ → a₂.Coprime b₂ → a₁.Coprime b₁
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- coprime_of_dvd 2>/dev/null | grep -Ec '^Nat\.coprime_of_dvd[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.coprime_of_dvd` through the trusted `Kernel::add_declaration` gate, which re-checks the proof term against the stated type, so producing this row at all is a machine-checked proof. `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. A two-step composition: `coprime_of_dvd_right` shrinks the right side from `b2` to `b1`, then `coprime_of_dvd_left` shrinks the left side from `a2` to `a1` -- no new induction or Bezout reasoning.