kernel-Nat.coprime_self_add_right
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {m n : ℕ}, m.Coprime (m + n) ↔ m.Coprime n
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- coprime_self_add_right 2>/dev/null | grep -Ec '^Nat\.coprime_self_add_right[[:space:]]')" -ge 1 Evidence notes
`build_nat_prelude` admits `Nat.coprime_self_add_right` 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. Instantiates `coprime_add_self_right`'s `Iff (gcd m (n+m) = 1) (gcd m n = 1)` and transports its left side along `add_comm m n : m+n = n+m` to reach `gcd m (m+n) = 1` instead -- the only difference from `coprime_add_self_right` is which side of the sum `m` lands on.