kernel-Int.dvd_gcd_nat
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {a b : ℤ} {c : ℕ}, ↑c ∣ a → ↑c ∣ b → c ∣ a.gcd b
test "$(cargo run -q -p axeyum-lean-kernel --example int_theorem_inventory -- dvd_gcd_nat 2>/dev/null | /usr/bin/grep -cE '^theorem[[:space:]]+Int\.dvd_gcd_nat[[:space:]]')" -ge 1 Evidence notes
`build_int_prelude` admits `Int.dvd_gcd_nat` 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. New proof, lane int-dvd-mirrors: `int_prelude/dvd_gcd_mirrors.rs`'s `declare_dvd_gcd_nat` -- Mathlib's actual `Int.dvd_gcd` (the Nat-typed-divisor form; the existing `p.dvd_gcd` is instead Mathlib's `Int.dvd_coe_gcd`, see F:ml430-int-dvd-coe-gcd-6bda035e). `natAbs (ofNat c) ≡ c` by `rfl`, so `nat_abs_dvd_nat_abs_of_dvd` applied to each hypothesis already produces `Nat.dvd c (natAbs a)`/`Nat.dvd c (natAbs b)` up to that defeq -- no cast bridge lemma needed. `Nat.dvd_gcd` closes it; its conclusion is defeq to the stated goal by `Int.gcd`'s own definition. Needed a mixed-binder theorem builder (`theorem_mixed`, local to the new module) since `IntDev::int_theorem` forces every binder to `Int` and this statement's divisor `c` is `Nat`-typed. `int_theorem_inventory`'s rendered type matches this fact's `formal.statement` (`∀ {a b : ℤ} {c : ℕ}, ↑c ∣ a → ↑c ∣ b → c ∣ a.gcd b`). `int_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; the anchor requires the exact name followed by whitespace, so it cannot match a longer sibling name sharing the same prefix. Verified both ways: the real name greps to a count `-ge 1`; grepping a fabricated name (`Int.dvd_gcd_nat_bogus_xyz`) makes `int_theorem_inventory` fail closed (exit 1, "no Int declaration matches").