kernel-Nat.coprime_add_self_left
- Kind
- kernel-term
- Status
- checked
Supports: (m + n).Coprime n iff m.Coprime n
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- coprime_add_self_left 2>/dev/null | grep -Ec '^Nat\.coprime_add_self_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 (m+n) n = 1` transports to `gcd n (m+n) = 1` via `coprime_symmetric`, which the already-proved `coprime_add_self_right` instantiated at `(n, m)` relates to `gcd n m = 1`, which transports back via `coprime_symmetric` to `gcd m n = 1` -- and the whole chain runs in both directions, giving the `Iff`. `nat_theorem_inventory` exits non-zero for a name that does not exist, and the `grep -c` requires the admitted declaration to be printed.