phiprmpw - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > phiprmpw		Structured version Visualization version GIF version

Theorem phiprmpw 16841

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.

Step	Hyp	Ref	Expression
1		prmnn 16738	. . . 4 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
2		nnnn0 12517	. . . 4 ⊢ (𝐾 ∈ ℕ → 𝐾 ∈ ℕ₀)
3		nnexpcl 14117	. . . 4 ⊢ ((𝑃 ∈ ℕ ∧ 𝐾 ∈ ℕ₀) → (𝑃↑𝐾) ∈ ℕ)
4	1, 2, 3	syl2an 607	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) ∈ ℕ)
5		phival 16832	. . 3 ⊢ ((𝑃↑𝐾) ∈ ℕ → (ϕ‘(𝑃↑𝐾)) = (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}))
6	4, 5	syl 18	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (ϕ‘(𝑃↑𝐾)) = (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}))
7		nnm1nn0 12551	. . . . . 6 ⊢ (𝐾 ∈ ℕ → (𝐾 − 1) ∈ ℕ₀)
8		nnexpcl 14117	. . . . . 6 ⊢ ((𝑃 ∈ ℕ ∧ (𝐾 − 1) ∈ ℕ₀) → (𝑃↑(𝐾 − 1)) ∈ ℕ)
9	1, 7, 8	syl2an 607	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) ∈ ℕ)
10	9	nncnd 12255	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) ∈ ℂ)
11	1	nncnd 12255	. . . . 5 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℂ)
12	11	adantr 485	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝑃 ∈ ℂ)
13		ax-1cn 11164	. . . . 5 ⊢ 1 ∈ ℂ
14		subdi 11653	. . . . 5 ⊢ (((𝑃↑(𝐾 − 1)) ∈ ℂ ∧ 𝑃 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)))
15	13, 14	mp3an3 1478	. . . 4 ⊢ (((𝑃↑(𝐾 − 1)) ∈ ℂ ∧ 𝑃 ∈ ℂ) → ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)))
16	10, 12, 15	syl2anc 595	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)))
17	10	mulridd 11232	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) · 1) = (𝑃↑(𝐾 − 1)))
18	17	oveq2d 7428	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃↑(𝐾 − 1)) · 𝑃) − ((𝑃↑(𝐾 − 1)) · 1)) = (((𝑃↑(𝐾 − 1)) · 𝑃) − (𝑃↑(𝐾 − 1))))
19		fzfi 14015	. . . . . . 7 ⊢ (1...(𝑃↑𝐾)) ∈ Fin
20		ssrab2 4033	. . . . . . 7 ⊢ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ⊆ (1...(𝑃↑𝐾))
21		ssfi 9155	. . . . . . 7 ⊢ (((1...(𝑃↑𝐾)) ∈ Fin ∧ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ⊆ (1...(𝑃↑𝐾))) → {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∈ Fin)
22	19, 20, 21	mp2an 704	. . . . . 6 ⊢ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∈ Fin
23		ssrab2 4033	. . . . . . 7 ⊢ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ⊆ (1...(𝑃↑𝐾))
24		ssfi 9155	. . . . . . 7 ⊢ (((1...(𝑃↑𝐾)) ∈ Fin ∧ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ⊆ (1...(𝑃↑𝐾))) → {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ∈ Fin)
25	19, 23, 24	mp2an 704	. . . . . 6 ⊢ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ∈ Fin
26		inrab 4268	. . . . . . 7 ⊢ ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∩ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0))}
27		elfzelz 13558	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (1...(𝑃↑𝐾)) → 𝑥 ∈ ℤ)
28		prmz 16739	. . . . . . . . . . . . . . . . 17 ⊢ (𝑃 ∈ ℙ → 𝑃 ∈ ℤ)
29		rpexp 16787	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ ℤ ∧ 𝑥 ∈ ℤ ∧ 𝐾 ∈ ℕ) → (((𝑃↑𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
30	28, 29	syl3an1 1180	. . . . . . . . . . . . . . . 16 ⊢ ((𝑃 ∈ ℙ ∧ 𝑥 ∈ ℤ ∧ 𝐾 ∈ ℕ) → (((𝑃↑𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
31	30	3expa 1135	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ ℙ ∧ 𝑥 ∈ ℤ) ∧ 𝐾 ∈ ℕ) → (((𝑃↑𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
32	31	an32s 664	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (((𝑃↑𝐾) gcd 𝑥) = 1 ↔ (𝑃 gcd 𝑥) = 1))
33		simpr 489	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → 𝑥 ∈ ℤ)
34		zexpcl 14119	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ ℤ ∧ 𝐾 ∈ ℕ₀) → (𝑃↑𝐾) ∈ ℤ)
35	28, 2, 34	syl2an 607	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) ∈ ℤ)
36	35	adantr 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑃↑𝐾) ∈ ℤ)
37	33, 36	gcdcomd 16578	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑥 gcd (𝑃↑𝐾)) = ((𝑃↑𝐾) gcd 𝑥))
38	37	eqeq1d 2764	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → ((𝑥 gcd (𝑃↑𝐾)) = 1 ↔ ((𝑃↑𝐾) gcd 𝑥) = 1))
39		coprm 16776	. . . . . . . . . . . . . . 15 ⊢ ((𝑃 ∈ ℙ ∧ 𝑥 ∈ ℤ) → (¬ 𝑃 ∥ 𝑥 ↔ (𝑃 gcd 𝑥) = 1))
40	39	adantlr 727	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (¬ 𝑃 ∥ 𝑥 ↔ (𝑃 gcd 𝑥) = 1))
41	32, 38, 40	3bitr4d 314	. . . . . . . . . . . . 13 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → ((𝑥 gcd (𝑃↑𝐾)) = 1 ↔ ¬ 𝑃 ∥ 𝑥))
42		zcn 12602	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℤ → 𝑥 ∈ ℂ)
43	42	adantl 486	. . . . . . . . . . . . . . . 16 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → 𝑥 ∈ ℂ)
44	43	subid1d 11564	. . . . . . . . . . . . . . 15 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑥 − 0) = 𝑥)
45	44	breq2d 5120	. . . . . . . . . . . . . 14 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (𝑃 ∥ (𝑥 − 0) ↔ 𝑃 ∥ 𝑥))
46	45	notbid 321	. . . . . . . . . . . . 13 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → (¬ 𝑃 ∥ (𝑥 − 0) ↔ ¬ 𝑃 ∥ 𝑥))
47	41, 46	bitr4d 285	. . . . . . . . . . . 12 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ ℤ) → ((𝑥 gcd (𝑃↑𝐾)) = 1 ↔ ¬ 𝑃 ∥ (𝑥 − 0)))
48	27, 47	sylan2 604	. . . . . . . . . . 11 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃↑𝐾))) → ((𝑥 gcd (𝑃↑𝐾)) = 1 ↔ ¬ 𝑃 ∥ (𝑥 − 0)))
49	48	biimpd 232	. . . . . . . . . 10 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃↑𝐾))) → ((𝑥 gcd (𝑃↑𝐾)) = 1 → ¬ 𝑃 ∥ (𝑥 − 0)))
50		imnan 404	. . . . . . . . . 10 ⊢ (((𝑥 gcd (𝑃↑𝐾)) = 1 → ¬ 𝑃 ∥ (𝑥 − 0)) ↔ ¬ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
51	49, 50	sylib 221	. . . . . . . . 9 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃↑𝐾))) → ¬ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
52	51	ralrimiva 3156	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ∀𝑥 ∈ (1...(𝑃↑𝐾)) ¬ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
53		rabeq0 4344	. . . . . . . 8 ⊢ ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0))} = ∅ ↔ ∀𝑥 ∈ (1...(𝑃↑𝐾)) ¬ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0)))
54	52, 53	sylibr 237	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∧ 𝑃 ∥ (𝑥 − 0))} = ∅)
55	26, 54	eqtrid 2809	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∩ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = ∅)
56		hashun 14425	. . . . . 6 ⊢ (({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∈ Fin ∧ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)} ∈ Fin ∧ ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∩ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = ∅) → (♯‘({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})))
57	22, 25, 55, 56	mp3an12i 1493	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})))
58		unrab 4267	. . . . . . . 8 ⊢ ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0))}
59	48	biimprd 251	. . . . . . . . . . . 12 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃↑𝐾))) → (¬ 𝑃 ∥ (𝑥 − 0) → (𝑥 gcd (𝑃↑𝐾)) = 1))
60	59	con1d 146	. . . . . . . . . . 11 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃↑𝐾))) → (¬ (𝑥 gcd (𝑃↑𝐾)) = 1 → 𝑃 ∥ (𝑥 − 0)))
61	60	orrd 876	. . . . . . . . . 10 ⊢ (((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) ∧ 𝑥 ∈ (1...(𝑃↑𝐾))) → ((𝑥 gcd (𝑃↑𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)))
62	61	ralrimiva 3156	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ∀𝑥 ∈ (1...(𝑃↑𝐾))((𝑥 gcd (𝑃↑𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)))
63		rabid2 3448	. . . . . . . . 9 ⊢ ((1...(𝑃↑𝐾)) = {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0))} ↔ ∀𝑥 ∈ (1...(𝑃↑𝐾))((𝑥 gcd (𝑃↑𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0)))
64	62, 63	sylibr 237	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (1...(𝑃↑𝐾)) = {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ ((𝑥 gcd (𝑃↑𝐾)) = 1 ∨ 𝑃 ∥ (𝑥 − 0))})
65	58, 64	eqtr4id 2816	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = (1...(𝑃↑𝐾)))
66	65	fveq2d 6885	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = (♯‘(1...(𝑃↑𝐾))))
67	4	nnnn0d 12571	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) ∈ ℕ₀)
68		hashfz1 14389	. . . . . . 7 ⊢ ((𝑃↑𝐾) ∈ ℕ₀ → (♯‘(1...(𝑃↑𝐾))) = (𝑃↑𝐾))
69	67, 68	syl 18	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘(1...(𝑃↑𝐾))) = (𝑃↑𝐾))
70		expm1t 14133	. . . . . . 7 ⊢ ((𝑃 ∈ ℂ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) = ((𝑃↑(𝐾 − 1)) · 𝑃))
71	11, 70	sylan 591	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) = ((𝑃↑(𝐾 − 1)) · 𝑃))
72	66, 69, 71	3eqtrd 2801	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∪ {𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((𝑃↑(𝐾 − 1)) · 𝑃))
73	1	adantr 485	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝑃 ∈ ℕ)
74		1zzd 12631	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 1 ∈ ℤ)
75		nn0uz 12906	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
76		1m1e0 12319	. . . . . . . . . . . 12 ⊢ (1 − 1) = 0
77	76	fveq2i 6884	. . . . . . . . . . 11 ⊢ (ℤ_≥‘(1 − 1)) = (ℤ_≥‘0)
78	75, 77	eqtr4i 2788	. . . . . . . . . 10 ⊢ ℕ₀ = (ℤ_≥‘(1 − 1))
79	67, 78	eleqtrdi 2872	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) ∈ (ℤ_≥‘(1 − 1)))
80		0zd 12609	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 0 ∈ ℤ)
81	73, 74, 79, 80	hashdvds 16840	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = ((⌊‘(((𝑃↑𝐾) − 0) / 𝑃)) − (⌊‘(((1 − 1) − 0) / 𝑃))))
82	4	nncnd 12255	. . . . . . . . . . . . . 14 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑𝐾) ∈ ℂ)
83	82	subid1d 11564	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑𝐾) − 0) = (𝑃↑𝐾))
84	83	oveq1d 7427	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃↑𝐾) − 0) / 𝑃) = ((𝑃↑𝐾) / 𝑃))
85	73	nnne0d 12292	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝑃 ≠ 0)
86		nnz 12618	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ ℕ → 𝐾 ∈ ℤ)
87	86	adantl 486	. . . . . . . . . . . . 13 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → 𝐾 ∈ ℤ)
88	12, 85, 87	expm1d 14199	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) = ((𝑃↑𝐾) / 𝑃))
89	84, 88	eqtr4d 2800	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃↑𝐾) − 0) / 𝑃) = (𝑃↑(𝐾 − 1)))
90	89	fveq2d 6885	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((𝑃↑𝐾) − 0) / 𝑃)) = (⌊‘(𝑃↑(𝐾 − 1))))
91	9	nnzd 12623	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (𝑃↑(𝐾 − 1)) ∈ ℤ)
92		flid 13848	. . . . . . . . . . 11 ⊢ ((𝑃↑(𝐾 − 1)) ∈ ℤ → (⌊‘(𝑃↑(𝐾 − 1))) = (𝑃↑(𝐾 − 1)))
93	91, 92	syl 18	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(𝑃↑(𝐾 − 1))) = (𝑃↑(𝐾 − 1)))
94	90, 93	eqtrd 2797	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((𝑃↑𝐾) − 0) / 𝑃)) = (𝑃↑(𝐾 − 1)))
95	76	oveq1i 7422	. . . . . . . . . . . . . 14 ⊢ ((1 − 1) − 0) = (0 − 0)
96		0m0e0 12365	. . . . . . . . . . . . . 14 ⊢ (0 − 0) = 0
97	95, 96	eqtri 2785	. . . . . . . . . . . . 13 ⊢ ((1 − 1) − 0) = 0
98	97	oveq1i 7422	. . . . . . . . . . . 12 ⊢ (((1 − 1) − 0) / 𝑃) = (0 / 𝑃)
99	12, 85	div0d 11996	. . . . . . . . . . . 12 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (0 / 𝑃) = 0)
100	98, 99	eqtrid 2809	. . . . . . . . . . 11 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((1 − 1) − 0) / 𝑃) = 0)
101	100	fveq2d 6885	. . . . . . . . . 10 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((1 − 1) − 0) / 𝑃)) = (⌊‘0))
102		0z 12608	. . . . . . . . . . 11 ⊢ 0 ∈ ℤ
103		flid 13848	. . . . . . . . . . 11 ⊢ (0 ∈ ℤ → (⌊‘0) = 0)
104	102, 103	ax-mp 5	. . . . . . . . . 10 ⊢ (⌊‘0) = 0
105	101, 104	eqtrdi 2813	. . . . . . . . 9 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (⌊‘(((1 − 1) − 0) / 𝑃)) = 0)
106	94, 105	oveq12d 7430	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((⌊‘(((𝑃↑𝐾) − 0) / 𝑃)) − (⌊‘(((1 − 1) − 0) / 𝑃))) = ((𝑃↑(𝐾 − 1)) − 0))
107	10	subid1d 11564	. . . . . . . 8 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) − 0) = (𝑃↑(𝐾 − 1)))
108	81, 106, 107	3eqtrd 2801	. . . . . . 7 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)}) = (𝑃↑(𝐾 − 1)))
109	108	oveq2d 7428	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (𝑃↑(𝐾 − 1))))
110		hashcl 14399	. . . . . . . . 9 ⊢ ({𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1} ∈ Fin → (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) ∈ ℕ₀)
111	22, 110	ax-mp 5	. . . . . . . 8 ⊢ (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) ∈ ℕ₀
112	111	nn0cni 12522	. . . . . . 7 ⊢ (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) ∈ ℂ
113		addcom 11402	. . . . . . 7 ⊢ (((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) ∈ ℂ ∧ (𝑃↑(𝐾 − 1)) ∈ ℂ) → ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (𝑃↑(𝐾 − 1))) = ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1})))
114	112, 10, 113	sylancr 598	. . . . . 6 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (𝑃↑(𝐾 − 1))) = ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1})))
115	109, 114	eqtrd 2797	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ 𝑃 ∥ (𝑥 − 0)})) = ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1})))
116	57, 72, 115	3eqtr3rd 2806	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1})) = ((𝑃↑(𝐾 − 1)) · 𝑃))
117	10, 12	mulcld 11235	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((𝑃↑(𝐾 − 1)) · 𝑃) ∈ ℂ)
118	112	a1i 11	. . . . 5 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) ∈ ℂ)
119	117, 10, 118	subaddd 11593	. . . 4 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → ((((𝑃↑(𝐾 − 1)) · 𝑃) − (𝑃↑(𝐾 − 1))) = (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) ↔ ((𝑃↑(𝐾 − 1)) + (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1})) = ((𝑃↑(𝐾 − 1)) · 𝑃)))
120	116, 119	mpbird 260	. . 3 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (((𝑃↑(𝐾 − 1)) · 𝑃) − (𝑃↑(𝐾 − 1))) = (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}))
121	16, 18, 120	3eqtrrd 2802	. 2 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (♯‘{𝑥 ∈ (1...(𝑃↑𝐾)) ∣ (𝑥 gcd (𝑃↑𝐾)) = 1}) = ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)))
122	6, 121	eqtrd 2797	1 ⊢ ((𝑃 ∈ ℙ ∧ 𝐾 ∈ ℕ) → (ϕ‘(𝑃↑𝐾)) = ((𝑃↑(𝐾 − 1)) · (𝑃 − 1)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 400 ∨ wo 860 = wceq 1569 ∈ wcel 2142 ∀wral 3078 {crab 3415 ∪ cun 3902 ∩ cin 3903 ⊆ wss 3904 ∅c0 4285 class class class wbr 5108 ‘cfv 6536 (class class class)co 7412 Fincfn 8941 ℂcc 11104 0cc0 11106 1c1 11107 + caddc 11109 · cmul 11111 − cmin 11447 / cdiv 11877 ℕcn 12239 ℕ₀cn0 12510 ℤcz 12597 ℤ_≥cuz 12868 ...cfz 13541 ⌊cfl 13830 ↑cexp 14104 ♯chash 14373 ∥ cdvds 16316 gcd cgcd 16558 ℙcprime 16735 ϕcphi 16829

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1824 ax-4 1838 ax-5 1939 ax-6 1996 ax-7 2037 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-sep 5256 ax-nul 5268 ax-pow 5335 ax-pr 5403 ax-un 7734 ax-cnex 11162 ax-resscn 11163 ax-1cn 11164 ax-icn 11165 ax-addcl 11166 ax-addrcl 11167 ax-mulcl 11168 ax-mulrcl 11169 ax-mulcom 11170 ax-addass 11171 ax-mulass 11172 ax-distr 11173 ax-i2m1 11174 ax-1ne0 11175 ax-1rid 11176 ax-rnegex 11177 ax-rrecex 11178 ax-cnre 11179 ax-pre-lttri 11180 ax-pre-lttrn 11181 ax-pre-ltadd 11182 ax-pre-mulgt0 11183 ax-pre-sup 11184

This proof depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1103 df-3an 1104 df-tru 1572 df-fal 1582 df-ex 1809 df-nf 1813 df-sb 2096 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3064 df-ral 3079 df-rex 3089 df-rmo 3368 df-reu 3369 df-rab 3416 df-v 3456 df-sbc 3744 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4487 df-pw 4563 df-sn 4589 df-pr 4591 df-op 4595 df-uni 4872 df-int 4912 df-iun 4957 df-br 5109 df-opab 5173 df-mpt 5192 df-tr 5218 df-id 5555 df-eprel 5560 df-po 5568 df-so 5569 df-fr 5613 df-we 5615 df-xp 5666 df-rel 5667 df-cnv 5668 df-co 5669 df-dm 5670 df-rn 5671 df-res 5672 df-ima 5673 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-om 7861 df-1st 7984 df-2nd 7985 df-frecs 8276 df-wrecs 8307 df-recs 8356 df-rdg 8395 df-1o 8451 df-2o 8452 df-oadd 8455 df-er 8692 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-sup 9400 df-inf 9401 df-dju 9894 df-card 9932 df-pnf 11251 df-mnf 11252 df-xr 11253 df-ltxr 11254 df-le 11255 df-sub 11449 df-neg 11450 df-div 11878 df-nn 12240 df-2 12309 df-3 12310 df-n0 12511 df-z 12598 df-uz 12869 df-rp 13023 df-fz 13542 df-fl 13832 df-mod 13910 df-seq 14045 df-exp 14105 df-hash 14374 df-cj 15157 df-re 15158 df-im 15159 df-sqrt 15293 df-abs 15294 df-dvds 16317 df-gcd 16559 df-prm 16736 df-phi 16831

This theorem is used by: phiprm 16842

W3C validator