Mathlib v4.30 source proposition Nat.Coprime.dvd_mul_right

Identifier: F:ml430-nat-coprime-dvd-mul-right-7cd1c3c8
Proof route: kernel-lean
External status: proved
Axiom footprint: Empty

Recorded description

The proposition declared as `Nat.Coprime.dvd_mul_right` in the pinned Mathlib v4.30 source.

Formal statement

∀ {m n k : ℕ}, k.Coprime n → (k ∣ m * n ↔ k ∣ m)

Dependencies

The graph shows direct ledger edges. Follow a node to open its artifact page.

4 direct dependencies 0 direct dependents

Evidence

kernel-Nat.coprime_dvd_mul_right

Kind: kernel-term
Status: checked

Supports: ∀ {m n k : ℕ}, k.Coprime n → (k ∣ m * n ↔ k ∣ m)

Checker command

test "$(cargo run -q --release -p axeyum-lean-kernel --example nat_theorem_inventory -- coprime_dvd_mul_right 2>/dev/null | grep -Ec '^Nat\.coprime_dvd_mul_right[[:space:]]')" -ge 1

Evidence notes

`Nat.coprime_dvd_mul_right` (nat_prelude/draw11_mirrors.rs, `declare_coprime_dvd_mul_right`, lane draw11-theorems-b) is a fresh construction, the mirror image of `Nat.coprime_dvd_mul_left`: the forward (`mp`) direction transports the hypothesis `dvd k (mul m n)` across `Nat.mul_comm` to `dvd k (mul n m)` and closes with `Nat.gauss_lemma`; the reverse (`mpr`) direction builds `m ∣ (m*n)` directly from `Nat.dvd_mul` and closes with `Nat.dvd_trans`. `nat_theorem_inventory`'s rendered type is `((x0 : AxNat) -> ((x1 : AxNat) -> ((x2 : AxNat) -> ((x3 : Eq.{1} AxNat (AxNat.gcd x0 x2) (AxNat.succ AxNat.zero)) -> Iff (AxNat.dvd x0 (AxNat.mul x1 x2)) (AxNat.dvd x0 x1)))))` -- reading `x0=k, x1=m, x2=n`, this is `gcd k n = 1 -> (dvd k (mul m n) <-> dvd k m)`, matching `formal.statement` (`k.Coprime n -> (k ∣ m*n ↔ k ∣ m)`) verbatim. `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 discriminating unit test in `nat_prelude_tests.rs` (`coprime_dvd_mul_right_states_and_proves_the_iff_at_a_concrete_point`) applies the theorem to a real coprime witness (`gcd 5 2 = 1` by `rfl`) at `(k,m,n)=(5,3,2)` and infers the resulting `Iff` proof term.

footprint-Nat.coprime_dvd_mul_right

Kind: exhaustive-enumeration
Status: checked

Supports: axiom_footprint: [] -- the Nat prelude's trusted surface is empty

Checker command

cargo run -q --release -p axeyum-lean-kernel --example nat_axiom_inventory -- --require-axiom-free nat

Evidence notes

`nat_axiom_inventory --require-axiom-free nat` enumerates the built Nat environment and exits non-zero unless it admits no Axiom, Opaque or Quotient declaration (measured 2026-08-31: axiom=0 opaque=0 quotient=0). A theorem cannot depend on a trusted declaration the environment does not contain, so an empty trusted surface bounds `Nat.coprime_dvd_mul_right`'s footprint by []. `nat_prelude_tests::every_nat_declaration_is_checked_and_axiom_free` additionally checks this theorem's own `Kernel::axiom_footprint` directly (via `theorem_names`, which now lists it).

Provenance

{
  "date": "2026-08-29",
  "established_by": "not established in this ledger",
  "source": "statement-only extraction of `Nat.Coprime.dvd_mul_right` from Mathlib v4.30.0; no proof value was exposed",
  "prior_art": [
    {
      "who": "the Mathlib contributors",
      "what": "the theorem declaration `Nat.Coprime.dvd_mul_right`",
      "where": "mathlib4 commit c5ea00351c28e24afc9f0f84379aa41082b1188f (v4.30.0)",
      "year": 2026,
      "attribution": "the proposition was read from the pinned statement-only inventory; the proof term and tactic trace were not consulted"
    }
  ]
}