dfphi2 - Metamath Proof Explorer

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

Theorem dfphi2 16980

Description: Alternate definition of the Euler ϕ function. (Contributed by Mario Carneiro, 23-Feb-2014.) (Revised by Mario Carneiro, 2-May-2016.)

**Assertion**
Ref	Expression
dfphi2	⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))

Distinct variable group: 𝑥,𝑁

**Proof of Theorem dfphi2**
Step	Hyp	Ref	Expression
1		elnn1uz2 13079	. 2 ⊢ (𝑁 ∈ ℕ ↔ (𝑁 = 1 ∨ 𝑁 ∈ (ℤ_≥‘2)))
2		phi1 16979	. . . . 5 ⊢ (ϕ‘1) = 1
3		0z 12731	. . . . . 6 ⊢ 0 ∈ ℤ
4		hashsng 14540	. . . . . 6 ⊢ (0 ∈ ℤ → (♯‘{0}) = 1)
5	3, 4	ax-mp 5	. . . . 5 ⊢ (♯‘{0}) = 1
6		rabid2 3448	. . . . . . 7 ⊢ ({0} = {𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1} ↔ ∀𝑥 ∈ {0} (𝑥 gcd 1) = 1)
7		elsni 4601	. . . . . . . . 9 ⊢ (𝑥 ∈ {0} → 𝑥 = 0)
8	7	oveq1d 7458	. . . . . . . 8 ⊢ (𝑥 ∈ {0} → (𝑥 gcd 1) = (0 gcd 1))
9		gcd1 16730	. . . . . . . . 9 ⊢ (0 ∈ ℤ → (0 gcd 1) = 1)
10	3, 9	ax-mp 5	. . . . . . . 8 ⊢ (0 gcd 1) = 1
11	8, 10	eqtrdi 2814	. . . . . . 7 ⊢ (𝑥 ∈ {0} → (𝑥 gcd 1) = 1)
12	6, 11	mprgbir 3087	. . . . . 6 ⊢ {0} = {𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1}
13	12	fveq2i 6911	. . . . 5 ⊢ (♯‘{0}) = (♯‘{𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1})
14	2, 5, 13	3eqtr2i 2792	. . . 4 ⊢ (ϕ‘1) = (♯‘{𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1})
15		fveq2 6908	. . . 4 ⊢ (𝑁 = 1 → (ϕ‘𝑁) = (ϕ‘1))
16		oveq2 7451	. . . . . . 7 ⊢ (𝑁 = 1 → (0..^𝑁) = (0..^1))
17		fzo01 13909	. . . . . . 7 ⊢ (0..^1) = {0}
18	16, 17	eqtrdi 2814	. . . . . 6 ⊢ (𝑁 = 1 → (0..^𝑁) = {0})
19		oveq2 7451	. . . . . . 7 ⊢ (𝑁 = 1 → (𝑥 gcd 𝑁) = (𝑥 gcd 1))
20	19	eqeq1d 2765	. . . . . 6 ⊢ (𝑁 = 1 → ((𝑥 gcd 𝑁) = 1 ↔ (𝑥 gcd 1) = 1))
21	18, 20	rabeqbidv 3433	. . . . 5 ⊢ (𝑁 = 1 → {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} = {𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1})
22	21	fveq2d 6912	. . . 4 ⊢ (𝑁 = 1 → (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}) = (♯‘{𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1}))
23	14, 15, 22	3eqtr4a 2824	. . 3 ⊢ (𝑁 = 1 → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
24		eluz2nn 13042	. . . . 5 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℕ)
25		phival 16973	. . . . 5 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
26	24, 25	syl 18	. . . 4 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
27		fzossfz 13840	. . . . . . . . . . 11 ⊢ (1..^𝑁) ⊆ (1...𝑁)
28	27	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (1..^𝑁) ⊆ (1...𝑁))
29		sseqin2 4123	. . . . . . . . . 10 ⊢ ((1..^𝑁) ⊆ (1...𝑁) ↔ ((1...𝑁) ∩ (1..^𝑁)) = (1..^𝑁))
30	28, 29	sylib 221	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ((1...𝑁) ∩ (1..^𝑁)) = (1..^𝑁))
31		fzo0ss1 13851	. . . . . . . . . 10 ⊢ (1..^𝑁) ⊆ (0..^𝑁)
32		sseqin2 4123	. . . . . . . . . 10 ⊢ ((1..^𝑁) ⊆ (0..^𝑁) ↔ ((0..^𝑁) ∩ (1..^𝑁)) = (1..^𝑁))
33	31, 32	mpbi 233	. . . . . . . . 9 ⊢ ((0..^𝑁) ∩ (1..^𝑁)) = (1..^𝑁)
34	30, 33	eqtr4di 2816	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ((1...𝑁) ∩ (1..^𝑁)) = ((0..^𝑁) ∩ (1..^𝑁)))
35	34	rabeqdv 3431	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ ((1...𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1} = {𝑥 ∈ ((0..^𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1})
36		inrab2 4265	. . . . . . 7 ⊢ ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ ((1...𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1}
37		inrab2 4265	. . . . . . 7 ⊢ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ ((0..^𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1}
38	35, 36, 37	3eqtr4g 2823	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)))
39		phibndlem 16976	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1...(𝑁 − 1)))
40		eluzelz 13002	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℤ)
41		fzoval 13821	. . . . . . . . 9 ⊢ (𝑁 ∈ ℤ → (1..^𝑁) = (1...(𝑁 − 1)))
42	40, 41	syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (1..^𝑁) = (1...(𝑁 − 1)))
43	39, 42	sseqtrrd 3950	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁))
44		dfss2 4097	. . . . . . 7 ⊢ ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁) ↔ ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
45	43, 44	sylib 221	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
46		gcd0id 16720	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℤ → (0 gcd 𝑁) = (abs‘𝑁))
47	40, 46	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (0 gcd 𝑁) = (abs‘𝑁))
48		eluzelre 13003	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℝ)
49		eluzge2nn0 13046	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℕ₀)
50	49	nn0ge0d 12697	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 0 ≤ 𝑁)
51	48, 50	absidd 15619	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (abs‘𝑁) = 𝑁)
52	47, 51	eqtrd 2798	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (0 gcd 𝑁) = 𝑁)
53		eluz2b3 13076	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (ℤ_≥‘2) ↔ (𝑁 ∈ ℕ ∧ 𝑁 ≠ 1))
54	53	simprbi 503	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ≠ 1)
55	52, 54	eqnetrd 3026	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (0 gcd 𝑁) ≠ 1)
56	55	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (0 gcd 𝑁) ≠ 1)
57	7	oveq1d 7458	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ {0} → (𝑥 gcd 𝑁) = (0 gcd 𝑁))
58	57, 17	eleq2s 2882	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (0..^1) → (𝑥 gcd 𝑁) = (0 gcd 𝑁))
59	58	neeq1d 3018	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (0..^1) → ((𝑥 gcd 𝑁) ≠ 1 ↔ (0 gcd 𝑁) ≠ 1))
60	56, 59	syl5ibrcom 250	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (𝑥 ∈ (0..^1) → (𝑥 gcd 𝑁) ≠ 1))
61	60	necon2bd 2975	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → ((𝑥 gcd 𝑁) = 1 → ¬ 𝑥 ∈ (0..^1)))
62		simpr 490	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → 𝑥 ∈ (0..^𝑁))
63		1z 12753	. . . . . . . . . . . 12 ⊢ 1 ∈ ℤ
64		fzospliti 13853	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ (0..^𝑁) ∧ 1 ∈ ℤ) → (𝑥 ∈ (0..^1) ∨ 𝑥 ∈ (1..^𝑁)))
65	62, 63, 64	sylancl 598	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (𝑥 ∈ (0..^1) ∨ 𝑥 ∈ (1..^𝑁)))
66	65	ord 878	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (¬ 𝑥 ∈ (0..^1) → 𝑥 ∈ (1..^𝑁)))
67	61, 66	syld 48	. . . . . . . . 9 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → ((𝑥 gcd 𝑁) = 1 → 𝑥 ∈ (1..^𝑁)))
68	67	ralrimiva 3158	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ∀𝑥 ∈ (0..^𝑁)((𝑥 gcd 𝑁) = 1 → 𝑥 ∈ (1..^𝑁)))
69		rabss 3998	. . . . . . . 8 ⊢ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁) ↔ ∀𝑥 ∈ (0..^𝑁)((𝑥 gcd 𝑁) = 1 → 𝑥 ∈ (1..^𝑁)))
70	68, 69	sylibr 237	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁))
71		dfss2 4097	. . . . . . 7 ⊢ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁) ↔ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1})
72	70, 71	sylib 221	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1})
73	38, 45, 72	3eqtr3d 2806	. . . . 5 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} = {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1})
74	73	fveq2d 6912	. . . 4 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
75	26, 74	eqtrd 2798	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
76	23, 75	jaoi 871	. 2 ⊢ ((𝑁 = 1 ∨ 𝑁 ∈ (ℤ_≥‘2)) → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
77	1, 76	sylbi 220	1 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 401 ∨ wo 861 = wceq 1570 ∈ wcel 2147 ≠ wne 2959 ∀wral 3080 {crab 3416 ⊆ wss 3900 ∩ cin 4092 {csn 4588 ‘cfv 6558 (class class class)co 7443 0cc0 11227 1c1 11228 − cmin 11568 ℕcn 12362 2c2 12424 ℤcz 12720 ℤ_≥cuz 12992 ...cfz 13666 ..^cfzo 13815 ♯chash 14501 abscabs 15430 gcd cgcd 16693 ϕcphi 16970

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-11 2197 ax-12 2216 ax-ext 2735 ax-sep 5252 ax-nul 5263 ax-pow 5331 ax-pr 5395 ax-un 7775 ax-cnex 11283 ax-resscn 11284 ax-1cn 11285 ax-icn 11286 ax-addcl 11287 ax-addrcl 11288 ax-mulcl 11289 ax-mulrcl 11290 ax-mulcom 11291 ax-addass 11292 ax-mulass 11293 ax-distr 11294 ax-i2m1 11295 ax-1ne0 11296 ax-1rid 11297 ax-rnegex 11298 ax-rrecex 11299 ax-cnre 11300 ax-pre-lttri 11301 ax-pre-lttrn 11302 ax-pre-ltadd 11303 ax-pre-mulgt0 11304 ax-pre-sup 11305

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-op 4839 df-uni 4871 df-int 4911 df-iun 4956 df-br 5107 df-opab 5171 df-mpt 5190 df-tr 5216 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6322 df-ord 6383 df-on 6384 df-lim 6385 df-suc 6386 df-iota 6512 df-fun 6560 df-fn 6561 df-f 6562 df-f1 6563 df-fo 6564 df-f1o 6565 df-fv 6566 df-riota 7400 df-ov 7446 df-oprab 7447 df-mpo 7448 df-om 7902 df-1st 8025 df-2nd 8026 df-frecs 8327 df-wrecs 8358 df-recs 8407 df-rdg 8446 df-1o 8504 df-oadd 8508 df-er 8745 df-en 9002 df-dom 9003 df-sdom 9004 df-fin 9005 df-sup 9461 df-inf 9462 df-card 10047 df-pnf 11372 df-mnf 11373 df-xr 11374 df-ltxr 11375 df-le 11376 df-sub 11570 df-neg 11571 df-div 12001 df-nn 12363 df-2 12432 df-3 12433 df-n0 12634 df-xnn0 12707 df-z 12721 df-uz 12993 df-rp 13148 df-fz 13667 df-fzo 13816 df-seq 14172 df-exp 14232 df-hash 14502 df-cj 15295 df-re 15296 df-im 15297 df-sqrt 15431 df-abs 15432 df-dvds 16452 df-gcd 16694 df-phi 16972

This theorem is used by: phimullem 16985 eulerth 16989 hashgcdeq 16996 odngen 19821 znunithash 21900

W3C validator