kernel-Nat.prime_coprime_pow_of_not_dvd
- Kind
- kernel-term
- Status
- checked
Supports: ∀ {p m a : ℕ}, Nat.Prime p → ¬p ∣ a → a.Coprime (p ^ m)
test "$(cargo run -q -p axeyum-lean-kernel --example nat_theorem_inventory -- prime_coprime_pow_of_not_dvd 2>/dev/null | grep -Ec '^Nat\.prime_coprime_pow_of_not_dvd[[:space:]]')" -ge 1 Evidence notes
Induction on `m`. `m=0`: `pow p 0` is defeq to `1`, and `gcd a 1=1` always (`coprime_one_right_iff`). `m=succ j`: `pow p (succ j)` is defeq to `mul (pow p j) p`, and `coprime_mul_of_coprime` combines the induction hypothesis with `gcd a p=1` -- derived once, outside the induction, from `prime_coprime_iff_not_dvd`'s `mpr` plus `coprime_symmetric`.