kernel-Nat.coprime_self_add_left
- Kind
- kernel-term
- Status
- checked
Supports: (m + n).Coprime m iff n.Coprime m
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- coprime_self_add_left 2>/dev/null | grep -Ec '^Nat\.coprime_self_add_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: `coprime_add_self_left` instantiated at `(n, m)` gives `Iff (gcd (n+m) m = 1) (gcd n m = 1)`; `add_comm` congr'd through `gcd _ m` transports its left side from `gcd (n+m) m` to `gcd (m+n) m`, the same congruence-transport shape `coprime_self_add_right` uses over `coprime_add_self_right`. `nat_theorem_inventory` exits non-zero for a name that does not exist, and the `grep -c` requires the admitted declaration to be printed.