ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  phiprmpw GIF version

Theorem phiprmpw 11073
Description: Value of the Euler ϕ function at a prime power. Theorem 2.5(a) in [ApostolNT] p. 28. (Contributed by Mario Carneiro, 24-Feb-2014.)
Assertion
Ref Expression
phiprmpw ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (ϕ‘(𝑃𝐾)) = ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)))

Proof of Theorem phiprmpw
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 prmnn 10967 . . . 4 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
2 nnnn0 8613 . . . 4 (𝐾 ∈ ℕ → 𝐾 ∈ ℕ0)
3 nnexpcl 9866 . . . 4 ((𝑃 ∈ ℕ ∧ 𝐾 ∈ ℕ0) → (𝑃𝐾) ∈ ℕ)
41, 2, 3syl2an 283 . . 3 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) ∈ ℕ)
5 phival 11064 . . 3 ((𝑃𝐾) ∈ ℕ → (ϕ‘(𝑃𝐾)) = (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}))
64, 5syl 14 . 2 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (ϕ‘(𝑃𝐾)) = (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}))
7 nnm1nn0 8647 . . . . . 6 (𝐾 ∈ ℕ → (𝐾 − 1) ∈ ℕ0)
8 nnexpcl 9866 . . . . . 6 ((𝑃 ∈ ℕ ∧ (𝐾 − 1) ∈ ℕ0) → (𝑃↑(𝐾 − 1)) ∈ ℕ)
91, 7, 8syl2an 283 . . . . 5 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) ∈ ℕ)
109nncnd 8371 . . . 4 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) ∈ ℂ)
111nncnd 8371 . . . . 5 (𝑃 ∈ ℙ → 𝑃 ∈ ℂ)
1211adantr 270 . . . 4 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝑃 ∈ ℂ)
13 ax-1cn 7382 . . . . 5 1 ∈ ℂ
14 subdi 7807 . . . . 5 (((𝑃↑(𝐾 − 1)) ∈ ℂ ∧ 𝑃 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)))
1513, 14mp3an3 1260 . . . 4 (((𝑃↑(𝐾 − 1)) ∈ ℂ ∧ 𝑃 ∈ ℂ) → ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)))
1610, 12, 15syl2anc 403 . . 3 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)))
1710mulid1d 7449 . . . 4 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) · 1) = (𝑃↑(𝐾 − 1)))
1817oveq2d 5629 . . 3 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − (𝑃↑(𝐾 − 1))))
19 phivalfi 11063 . . . . . . 7 ((𝑃𝐾) ∈ ℕ → {𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∈ Fin)
204, 19syl 14 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → {𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∈ Fin)
21 1zzd 8710 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 1 ∈ ℤ)
22 prmz 10968 . . . . . . . . 9 (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
23 zexpcl 9868 . . . . . . . . 9 ((𝑃 ∈ ℤ ∧ 𝐾 ∈ ℕ0) → (𝑃𝐾) ∈ ℤ)
2422, 2, 23syl2an 283 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) ∈ ℤ)
2521, 24fzfigd 9766 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (1...(𝑃𝐾)) ∈ Fin)
2622ad2antrr 472 . . . . . . . . 9 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → 𝑃 ∈ ℤ)
27 elfzelz 9372 . . . . . . . . . . 11 (𝑥 ∈ (1...(𝑃𝐾)) → 𝑥 ∈ ℤ)
2827adantl 271 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → 𝑥 ∈ ℤ)
29 0zd 8695 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → 0 ∈ ℤ)
3028, 29zsubcld 8806 . . . . . . . . 9 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (𝑥 − 0) ∈ ℤ)
31 zdvdsdc 10692 . . . . . . . . 9 ((𝑃 ∈ ℤ ∧ (𝑥 − 0) ∈ ℤ) → DECID 𝑃 ∥ (𝑥 − 0))
3226, 30, 31syl2anc 403 . . . . . . . 8 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → DECID 𝑃 ∥ (𝑥 − 0))
3332ralrimiva 2442 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ∀𝑥 ∈ (1...(𝑃𝐾))DECID 𝑃 ∥ (𝑥 − 0))
3425, 33ssfirab 6593 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ∈ Fin)
35 inrab 3260 . . . . . . 7 ({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∩ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = {𝑥 ∈ (1...(𝑃𝐾)) ∣ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0))}
36 rpexp 11007 . . . . . . . . . . . . . . . . 17 ((𝑃 ∈ ℤ ∧ 𝑥 ∈ ℤ ∧ 𝐾 ∈ ℕ) → (((𝑃𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
3722, 36syl3an1 1205 . . . . . . . . . . . . . . . 16 ((𝑃 ∈ ℙ ∧ 𝑥 ∈ ℤ ∧ 𝐾 ∈ ℕ) → (((𝑃𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
38373expa 1141 . . . . . . . . . . . . . . 15 (((𝑃 ∈ ℙ ∧ 𝑥 ∈ ℤ) ∧ 𝐾 ∈ ℕ) → (((𝑃𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
3938an32s 533 . . . . . . . . . . . . . 14 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (((𝑃𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
40 simpr 108 . . . . . . . . . . . . . . . 16 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → 𝑥 ∈ ℤ)
4124adantr 270 . . . . . . . . . . . . . . . 16 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑃𝐾) ∈ ℤ)
42 gcdcom 10840 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℤ ∧ (𝑃𝐾) ∈ ℤ) → (𝑥 gcd (𝑃𝐾)) = ((𝑃𝐾) gcd 𝑥))
4340, 41, 42syl2anc 403 . . . . . . . . . . . . . . 15 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑥 gcd (𝑃𝐾)) = ((𝑃𝐾) gcd 𝑥))
4443eqeq1d 2093 . . . . . . . . . . . . . 14 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → ((𝑥 gcd (𝑃𝐾)) = 1 ↔ ((𝑃𝐾) gcd 𝑥) = 1))
45 coprm 10998 . . . . . . . . . . . . . . 15 ((𝑃 ∈ ℙ ∧ 𝑥 ∈ ℤ) → (¬ 𝑃𝑥 ↔ (𝑃 gcd 𝑥) = 1))
4645adantlr 461 . . . . . . . . . . . . . 14 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (¬ 𝑃𝑥 ↔ (𝑃 gcd 𝑥) = 1))
4739, 44, 463bitr4d 218 . . . . . . . . . . . . 13 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → ((𝑥 gcd (𝑃𝐾)) = 1 ↔ ¬ 𝑃𝑥))
48 zcn 8688 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ ℤ → 𝑥 ∈ ℂ)
4948adantl 271 . . . . . . . . . . . . . . . 16 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → 𝑥 ∈ ℂ)
5049subid1d 7726 . . . . . . . . . . . . . . 15 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑥 − 0) = 𝑥)
5150breq2d 3832 . . . . . . . . . . . . . 14 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑃 ∥ (𝑥 − 0) ↔ 𝑃𝑥))
5251notbid 625 . . . . . . . . . . . . 13 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (¬ 𝑃 ∥ (𝑥 − 0) ↔ ¬ 𝑃𝑥))
5347, 52bitr4d 189 . . . . . . . . . . . 12 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → ((𝑥 gcd (𝑃𝐾)) = 1 ↔ ¬ 𝑃 ∥ (𝑥 − 0)))
5427, 53sylan2 280 . . . . . . . . . . 11 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → ((𝑥 gcd (𝑃𝐾)) = 1 ↔ ¬ 𝑃 ∥ (𝑥 − 0)))
5554biimpd 142 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → ((𝑥 gcd (𝑃𝐾)) = 1 → ¬ 𝑃 ∥ (𝑥 − 0)))
56 imnan 657 . . . . . . . . . 10 (((𝑥 gcd (𝑃𝐾)) = 1 → ¬ 𝑃 ∥ (𝑥 − 0)) ↔ ¬ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
5755, 56sylib 120 . . . . . . . . 9 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → ¬ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
5857ralrimiva 2442 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ∀𝑥 ∈ (1...(𝑃𝐾)) ¬ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
59 rabeq0 3301 . . . . . . . 8 ({𝑥 ∈ (1...(𝑃𝐾)) ∣ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0))} = ∅ ↔ ∀𝑥 ∈ (1...(𝑃𝐾)) ¬ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
6058, 59sylibr 132 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → {𝑥 ∈ (1...(𝑃𝐾)) ∣ ((𝑥 gcd (𝑃𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0))} = ∅)
6135, 60syl5eq 2129 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∩ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = ∅)
62 hashun 10109 . . . . . 6 (({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∈ Fin ∧ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ∈ Fin ∧ ({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∩ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = ∅) → (♯‘({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})))
6320, 34, 61, 62syl3anc 1172 . . . . 5 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})))
6454biimprd 156 . . . . . . . . . . . 12 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (¬ 𝑃 ∥ (𝑥 − 0) → (𝑥 gcd (𝑃𝐾)) = 1))
65 con1dc 789 . . . . . . . . . . . 12 (DECID 𝑃 ∥ (𝑥 − 0) → ((¬ 𝑃 ∥ (𝑥 − 0) → (𝑥 gcd (𝑃𝐾)) = 1) → (¬ (𝑥 gcd (𝑃𝐾)) = 1 → 𝑃 ∥ (𝑥 − 0))))
6632, 64, 65sylc 61 . . . . . . . . . . 11 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (¬ (𝑥 gcd (𝑃𝐾)) = 1 → 𝑃 ∥ (𝑥 − 0)))
6724adantr 270 . . . . . . . . . . . . . . 15 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (𝑃𝐾) ∈ ℤ)
6828, 67gcdcld 10835 . . . . . . . . . . . . . 14 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (𝑥 gcd (𝑃𝐾)) ∈ ℕ0)
6968nn0zd 8799 . . . . . . . . . . . . 13 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (𝑥 gcd (𝑃𝐾)) ∈ ℤ)
70 1zzd 8710 . . . . . . . . . . . . 13 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → 1 ∈ ℤ)
71 zdceq 8755 . . . . . . . . . . . . 13 (((𝑥 gcd (𝑃𝐾)) ∈ ℤ ∧ 1 ∈ ℤ) → DECID (𝑥 gcd (𝑃𝐾)) = 1)
7269, 70, 71syl2anc 403 . . . . . . . . . . . 12 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → DECID (𝑥 gcd (𝑃𝐾)) = 1)
73 dfordc 827 . . . . . . . . . . . 12 (DECID (𝑥 gcd (𝑃𝐾)) = 1 → (((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)) ↔ (¬ (𝑥 gcd (𝑃𝐾)) = 1 → 𝑃 ∥ (𝑥 − 0))))
7472, 73syl 14 . . . . . . . . . . 11 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → (((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)) ↔ (¬ (𝑥 gcd (𝑃𝐾)) = 1 → 𝑃 ∥ (𝑥 − 0))))
7566, 74mpbird 165 . . . . . . . . . 10 (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃𝐾))) → ((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)))
7675ralrimiva 2442 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ∀𝑥 ∈ (1...(𝑃𝐾))((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)))
77 rabid2 2539 . . . . . . . . 9 ((1...(𝑃𝐾)) = {𝑥 ∈ (1...(𝑃𝐾)) ∣ ((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0))} ↔ ∀𝑥 ∈ (1...(𝑃𝐾))((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)))
7876, 77sylibr 132 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (1...(𝑃𝐾)) = {𝑥 ∈ (1...(𝑃𝐾)) ∣ ((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0))})
79 unrab 3259 . . . . . . . 8 ({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = {𝑥 ∈ (1...(𝑃𝐾)) ∣ ((𝑥 gcd (𝑃𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0))}
8078, 79syl6reqr 2136 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = (1...(𝑃𝐾)))
8180fveq2d 5272 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = (♯‘(1...(𝑃𝐾))))
824nnnn0d 8659 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) ∈ ℕ0)
83 hashfz1 10087 . . . . . . 7 ((𝑃𝐾) ∈ ℕ0 → (♯‘(1...(𝑃𝐾))) = (𝑃𝐾))
8482, 83syl 14 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘(1...(𝑃𝐾))) = (𝑃𝐾))
85 expm1t 9881 . . . . . . 7 ((𝑃 ∈ ℂ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) = ((𝑃↑(𝐾 − 1)) · 𝑃))
8611, 85sylan 277 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) = ((𝑃↑(𝐾 − 1)) · 𝑃))
8781, 84, 863eqtrd 2121 . . . . 5 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((𝑃↑(𝐾 − 1)) · 𝑃))
88 hashcl 10085 . . . . . . . 8 ({𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1} ∈ Fin → (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) ∈ ℕ0)
8920, 88syl 14 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) ∈ ℕ0)
9089nn0cnd 8661 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) ∈ ℂ)
911adantr 270 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝑃 ∈ ℕ)
92 nn0uz 8985 . . . . . . . . . . 11 0 = (ℤ‘0)
93 1m1e0 8426 . . . . . . . . . . . 12 (1 − 1) = 0
9493fveq2i 5271 . . . . . . . . . . 11 (ℤ‘(1 − 1)) = (ℤ‘0)
9592, 94eqtr4i 2108 . . . . . . . . . 10 0 = (ℤ‘(1 − 1))
9682, 95syl6eleq 2177 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) ∈ (ℤ‘(1 − 1)))
97 0zd 8695 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 0 ∈ ℤ)
9891, 21, 96, 97hashdvds 11072 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = ((⌊‘(((𝑃𝐾) − 0) / 𝑃)) − (⌊‘(((1 − 1) − 0) / 𝑃))))
994nncnd 8371 . . . . . . . . . . . . . 14 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃𝐾) ∈ ℂ)
10099subid1d 7726 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃𝐾) − 0) = (𝑃𝐾))
101100oveq1d 5628 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃𝐾) − 0) / 𝑃) = ((𝑃𝐾) / 𝑃))
10291nnap0d 8402 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝑃 # 0)
103 nnz 8702 . . . . . . . . . . . . . 14 (𝐾 ∈ ℕ → 𝐾 ∈ ℤ)
104103adantl 271 . . . . . . . . . . . . 13 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝐾 ∈ ℤ)
10512, 102, 104expm1apd 9992 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) = ((𝑃𝐾) / 𝑃))
106101, 105eqtr4d 2120 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃𝐾) − 0) / 𝑃) = (𝑃↑(𝐾 − 1)))
107106fveq2d 5272 . . . . . . . . . 10 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((𝑃𝐾) − 0) / 𝑃)) = (⌊‘(𝑃↑(𝐾 − 1))))
1089nnzd 8800 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) ∈ ℤ)
109 flid 9619 . . . . . . . . . . 11 ((𝑃↑(𝐾 − 1)) ∈ ℤ → (⌊‘(𝑃↑(𝐾 − 1))) = (𝑃↑(𝐾 − 1)))
110108, 109syl 14 . . . . . . . . . 10 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(𝑃↑(𝐾 − 1))) = (𝑃↑(𝐾 − 1)))
111107, 110eqtrd 2117 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((𝑃𝐾) − 0) / 𝑃)) = (𝑃↑(𝐾 − 1)))
11293oveq1i 5623 . . . . . . . . . . . . . 14 ((1 − 1) − 0) = (0 − 0)
113 0m0e0 8469 . . . . . . . . . . . . . 14 (0 − 0) = 0
114112, 113eqtri 2105 . . . . . . . . . . . . 13 ((1 − 1) − 0) = 0
115114oveq1i 5623 . . . . . . . . . . . 12 (((1 − 1) − 0) / 𝑃) = (0 / 𝑃)
11612, 102div0apd 8193 . . . . . . . . . . . 12 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (0 / 𝑃) = 0)
117115, 116syl5eq 2129 . . . . . . . . . . 11 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((1 − 1) − 0) / 𝑃) = 0)
118117fveq2d 5272 . . . . . . . . . 10 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((1 − 1) − 0) / 𝑃)) = (⌊‘0))
119 0z 8694 . . . . . . . . . . 11 0 ∈ ℤ
120 flid 9619 . . . . . . . . . . 11 (0 ∈ ℤ → (⌊‘0) = 0)
121119, 120ax-mp 7 . . . . . . . . . 10 (⌊‘0) = 0
122118, 121syl6eq 2133 . . . . . . . . 9 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((1 − 1) − 0) / 𝑃)) = 0)
123111, 122oveq12d 5631 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((⌊‘(((𝑃𝐾) − 0) / 𝑃)) − (⌊‘(((1 − 1) − 0) / 𝑃))) = ((𝑃↑(𝐾 − 1)) − 0))
12410subid1d 7726 . . . . . . . 8 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) − 0) = (𝑃↑(𝐾 − 1)))
12598, 123, 1243eqtrd 2121 . . . . . . 7 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = (𝑃↑(𝐾 − 1)))
126125oveq2d 5629 . . . . . 6 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) + (𝑃↑(𝐾 − 1))))
12790, 10, 126comraddd 7583 . . . . 5 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1})))
12863, 87, 1273eqtr3rd 2126 . . . 4 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1})) = ((𝑃↑(𝐾 − 1)) · 𝑃))
12910, 12mulcld 7452 . . . . 5 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) · 𝑃) ∈ ℂ)
130129, 10, 90subaddd 7755 . . . 4 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((((𝑃↑(𝐾 − 1)) · 𝑃) − (𝑃↑(𝐾 − 1))) = (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) ↔ ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1})) = ((𝑃↑(𝐾 − 1)) · 𝑃)))
131128, 130mpbird 165 . . 3 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃↑(𝐾 − 1)) · 𝑃) − (𝑃↑(𝐾 − 1))) = (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}))
13216, 18, 1313eqtrrd 2122 . 2 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃𝐾)) ∣ (𝑥 gcd (𝑃𝐾)) = 1}) = ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)))
1336, 132eqtrd 2117 1 ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (ϕ‘(𝑃𝐾)) = ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 102  wb 103  wo 662  DECID wdc 778   = wceq 1287  wcel 1436  wral 2355  {crab 2359  cun 2986  cin 2987  c0 3275   class class class wbr 3820  cfv 4981  (class class class)co 5613  Fincfn 6409  cc 7292  0cc0 7294  1c1 7295   + caddc 7297   · cmul 7299  cmin 7597   / cdiv 8078  cn 8357  0cn0 8606  cz 8683  cuz 8951  ...cfz 9356  cfl 9603  cexp 9852  chash 10079  cdvds 10671   gcd cgcd 10813  cprime 10964  ϕcphi 11061
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1379  ax-7 1380  ax-gen 1381  ax-ie1 1425  ax-ie2 1426  ax-8 1438  ax-10 1439  ax-11 1440  ax-i12 1441  ax-bndl 1442  ax-4 1443  ax-13 1447  ax-14 1448  ax-17 1462  ax-i9 1466  ax-ial 1470  ax-i5r 1471  ax-ext 2067  ax-coll 3929  ax-sep 3932  ax-nul 3940  ax-pow 3984  ax-pr 4010  ax-un 4234  ax-setind 4326  ax-iinf 4376  ax-cnex 7380  ax-resscn 7381  ax-1cn 7382  ax-1re 7383  ax-icn 7384  ax-addcl 7385  ax-addrcl 7386  ax-mulcl 7387  ax-mulrcl 7388  ax-addcom 7389  ax-mulcom 7390  ax-addass 7391  ax-mulass 7392  ax-distr 7393  ax-i2m1 7394  ax-0lt1 7395  ax-1rid 7396  ax-0id 7397  ax-rnegex 7398  ax-precex 7399  ax-cnre 7400  ax-pre-ltirr 7401  ax-pre-ltwlin 7402  ax-pre-lttrn 7403  ax-pre-apti 7404  ax-pre-ltadd 7405  ax-pre-mulgt0 7406  ax-pre-mulext 7407  ax-arch 7408  ax-caucvg 7409
This theorem depends on definitions:  df-bi 115  df-dc 779  df-3or 923  df-3an 924  df-tru 1290  df-fal 1293  df-nf 1393  df-sb 1690  df-eu 1948  df-mo 1949  df-clab 2072  df-cleq 2078  df-clel 2081  df-nfc 2214  df-ne 2252  df-nel 2347  df-ral 2360  df-rex 2361  df-reu 2362  df-rmo 2363  df-rab 2364  df-v 2617  df-sbc 2830  df-csb 2923  df-dif 2990  df-un 2992  df-in 2994  df-ss 3001  df-nul 3276  df-if 3380  df-pw 3417  df-sn 3437  df-pr 3438  df-op 3440  df-uni 3637  df-int 3672  df-iun 3715  df-br 3821  df-opab 3875  df-mpt 3876  df-tr 3912  df-id 4094  df-po 4097  df-iso 4098  df-iord 4167  df-on 4169  df-ilim 4170  df-suc 4172  df-iom 4379  df-xp 4417  df-rel 4418  df-cnv 4419  df-co 4420  df-dm 4421  df-rn 4422  df-res 4423  df-ima 4424  df-iota 4946  df-fun 4983  df-fn 4984  df-f 4985  df-f1 4986  df-fo 4987  df-f1o 4988  df-fv 4989  df-riota 5569  df-ov 5616  df-oprab 5617  df-mpt2 5618  df-1st 5868  df-2nd 5869  df-recs 6024  df-irdg 6089  df-frec 6110  df-1o 6135  df-2o 6136  df-oadd 6139  df-er 6244  df-en 6410  df-dom 6411  df-fin 6412  df-sup 6623  df-pnf 7468  df-mnf 7469  df-xr 7470  df-ltxr 7471  df-le 7472  df-sub 7599  df-neg 7600  df-reap 7993  df-ap 8000  df-div 8079  df-inn 8358  df-2 8416  df-3 8417  df-4 8418  df-n0 8607  df-z 8684  df-uz 8952  df-q 9037  df-rp 9067  df-fz 9357  df-fzo 9482  df-fl 9605  df-mod 9658  df-iseq 9780  df-iexp 9853  df-ihash 10080  df-cj 10171  df-re 10172  df-im 10173  df-rsqrt 10326  df-abs 10327  df-dvds 10672  df-gcd 10814  df-prm 10965  df-phi 11062
This theorem is referenced by:  phiprm  11074
  Copyright terms: Public domain W3C validator