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 16739

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 12870	. 2 ⊢ (𝑁 ∈ ℕ ↔ (𝑁 = 1 ∨ 𝑁 ∈ (ℤ_≥‘2)))
2		phi1 16738	. . . . 5 ⊢ (ϕ‘1) = 1
3		0z 12530	. . . . . 6 ⊢ 0 ∈ ℤ
4		hashsng 14326	. . . . . 6 ⊢ (0 ∈ ℤ → (♯‘{0}) = 1)
5	3, 4	ax-mp 5	. . . . 5 ⊢ (♯‘{0}) = 1
6		rabid2 3426	. . . . . . 7 ⊢ ({0} = {𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1} ↔ ∀𝑥 ∈ {0} (𝑥 gcd 1) = 1)
7		elsni 4574	. . . . . . . . 9 ⊢ (𝑥 ∈ {0} → 𝑥 = 0)
8	7	oveq1d 7374	. . . . . . . 8 ⊢ (𝑥 ∈ {0} → (𝑥 gcd 1) = (0 gcd 1))
9		gcd1 16492	. . . . . . . . 9 ⊢ (0 ∈ ℤ → (0 gcd 1) = 1)
10	3, 9	ax-mp 5	. . . . . . . 8 ⊢ (0 gcd 1) = 1
11	8, 10	eqtrdi 2792	. . . . . . 7 ⊢ (𝑥 ∈ {0} → (𝑥 gcd 1) = 1)
12	6, 11	mprgbir 3062	. . . . . 6 ⊢ {0} = {𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1}
13	12	fveq2i 6833	. . . . 5 ⊢ (♯‘{0}) = (♯‘{𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1})
14	2, 5, 13	3eqtr2i 2770	. . . 4 ⊢ (ϕ‘1) = (♯‘{𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1})
15		fveq2 6830	. . . 4 ⊢ (𝑁 = 1 → (ϕ‘𝑁) = (ϕ‘1))
16		oveq2 7367	. . . . . . 7 ⊢ (𝑁 = 1 → (0..^𝑁) = (0..^1))
17		fzo01 13697	. . . . . . 7 ⊢ (0..^1) = {0}
18	16, 17	eqtrdi 2792	. . . . . 6 ⊢ (𝑁 = 1 → (0..^𝑁) = {0})
19		oveq2 7367	. . . . . . 7 ⊢ (𝑁 = 1 → (𝑥 gcd 𝑁) = (𝑥 gcd 1))
20	19	eqeq1d 2743	. . . . . 6 ⊢ (𝑁 = 1 → ((𝑥 gcd 𝑁) = 1 ↔ (𝑥 gcd 1) = 1))
21	18, 20	rabeqbidv 3411	. . . . 5 ⊢ (𝑁 = 1 → {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} = {𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1})
22	21	fveq2d 6834	. . . 4 ⊢ (𝑁 = 1 → (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}) = (♯‘{𝑥 ∈ {0} ∣ (𝑥 gcd 1) = 1}))
23	14, 15, 22	3eqtr4a 2802	. . 3 ⊢ (𝑁 = 1 → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
24		eluz2nn 12833	. . . . 5 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℕ)
25		phival 16732	. . . . 5 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
26	24, 25	syl 17	. . . 4 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
27		fzossfz 13628	. . . . . . . . . . 11 ⊢ (1..^𝑁) ⊆ (1...𝑁)
28	27	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (1..^𝑁) ⊆ (1...𝑁))
29		sseqin2 4154	. . . . . . . . . 10 ⊢ ((1..^𝑁) ⊆ (1...𝑁) ↔ ((1...𝑁) ∩ (1..^𝑁)) = (1..^𝑁))
30	28, 29	sylib 220	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ((1...𝑁) ∩ (1..^𝑁)) = (1..^𝑁))
31		fzo0ss1 13639	. . . . . . . . . 10 ⊢ (1..^𝑁) ⊆ (0..^𝑁)
32		sseqin2 4154	. . . . . . . . . 10 ⊢ ((1..^𝑁) ⊆ (0..^𝑁) ↔ ((0..^𝑁) ∩ (1..^𝑁)) = (1..^𝑁))
33	31, 32	mpbi 232	. . . . . . . . 9 ⊢ ((0..^𝑁) ∩ (1..^𝑁)) = (1..^𝑁)
34	30, 33	eqtr4di 2794	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ((1...𝑁) ∩ (1..^𝑁)) = ((0..^𝑁) ∩ (1..^𝑁)))
35	34	rabeqdv 3408	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ ((1...𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1} = {𝑥 ∈ ((0..^𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1})
36		inrab2 4247	. . . . . . 7 ⊢ ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ ((1...𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1}
37		inrab2 4247	. . . . . . 7 ⊢ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ ((0..^𝑁) ∩ (1..^𝑁)) ∣ (𝑥 gcd 𝑁) = 1}
38	35, 36, 37	3eqtr4g 2801	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)))
39		phibndlem 16735	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1...(𝑁 − 1)))
40		eluzelz 12793	. . . . . . . . 9 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℤ)
41		fzoval 13609	. . . . . . . . 9 ⊢ (𝑁 ∈ ℤ → (1..^𝑁) = (1...(𝑁 − 1)))
42	40, 41	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (1..^𝑁) = (1...(𝑁 − 1)))
43	39, 42	sseqtrrd 3953	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁))
44		dfss2 3902	. . . . . . 7 ⊢ ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁) ↔ ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
45	43, 44	sylib 220	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ({𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1})
46		gcd0id 16483	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℤ → (0 gcd 𝑁) = (abs‘𝑁))
47	40, 46	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (0 gcd 𝑁) = (abs‘𝑁))
48		eluzelre 12794	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℝ)
49		eluzge2nn0 12837	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℕ₀)
50	49	nn0ge0d 12496	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 0 ≤ 𝑁)
51	48, 50	absidd 15380	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (abs‘𝑁) = 𝑁)
52	47, 51	eqtrd 2776	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (0 gcd 𝑁) = 𝑁)
53		eluz2b3 12867	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ (ℤ_≥‘2) ↔ (𝑁 ∈ ℕ ∧ 𝑁 ≠ 1))
54	53	simprbi 499	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ≠ 1)
55	52, 54	eqnetrd 3003	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (0 gcd 𝑁) ≠ 1)
56	55	adantr 482	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (0 gcd 𝑁) ≠ 1)
57	7	oveq1d 7374	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ {0} → (𝑥 gcd 𝑁) = (0 gcd 𝑁))
58	57, 17	eleq2s 2859	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (0..^1) → (𝑥 gcd 𝑁) = (0 gcd 𝑁))
59	58	neeq1d 2995	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (0..^1) → ((𝑥 gcd 𝑁) ≠ 1 ↔ (0 gcd 𝑁) ≠ 1))
60	56, 59	syl5ibrcom 249	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (𝑥 ∈ (0..^1) → (𝑥 gcd 𝑁) ≠ 1))
61	60	necon2bd 2952	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → ((𝑥 gcd 𝑁) = 1 → ¬ 𝑥 ∈ (0..^1)))
62		simpr 486	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → 𝑥 ∈ (0..^𝑁))
63		1z 12552	. . . . . . . . . . . 12 ⊢ 1 ∈ ℤ
64		fzospliti 13641	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ (0..^𝑁) ∧ 1 ∈ ℤ) → (𝑥 ∈ (0..^1) ∨ 𝑥 ∈ (1..^𝑁)))
65	62, 63, 64	sylancl 593	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (𝑥 ∈ (0..^1) ∨ 𝑥 ∈ (1..^𝑁)))
66	65	ord 871	. . . . . . . . . 10 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → (¬ 𝑥 ∈ (0..^1) → 𝑥 ∈ (1..^𝑁)))
67	61, 66	syld 47	. . . . . . . . 9 ⊢ ((𝑁 ∈ (ℤ_≥‘2) ∧ 𝑥 ∈ (0..^𝑁)) → ((𝑥 gcd 𝑁) = 1 → 𝑥 ∈ (1..^𝑁)))
68	67	ralrimiva 3133	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ∀𝑥 ∈ (0..^𝑁)((𝑥 gcd 𝑁) = 1 → 𝑥 ∈ (1..^𝑁)))
69		rabss 4003	. . . . . . . 8 ⊢ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁) ↔ ∀𝑥 ∈ (0..^𝑁)((𝑥 gcd 𝑁) = 1 → 𝑥 ∈ (1..^𝑁)))
70	68, 69	sylibr 236	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁))
71		dfss2 3902	. . . . . . 7 ⊢ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ⊆ (1..^𝑁) ↔ ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1})
72	70, 71	sylib 220	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘2) → ({𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1} ∩ (1..^𝑁)) = {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1})
73	38, 45, 72	3eqtr3d 2784	. . . . 5 ⊢ (𝑁 ∈ (ℤ_≥‘2) → {𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1} = {𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1})
74	73	fveq2d 6834	. . . 4 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (♯‘{𝑥 ∈ (1...𝑁) ∣ (𝑥 gcd 𝑁) = 1}) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
75	26, 74	eqtrd 2776	. . 3 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
76	23, 75	jaoi 864	. 2 ⊢ ((𝑁 = 1 ∨ 𝑁 ∈ (ℤ_≥‘2)) → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))
77	1, 76	sylbi 219	1 ⊢ (𝑁 ∈ ℕ → (ϕ‘𝑁) = (♯‘{𝑥 ∈ (0..^𝑁) ∣ (𝑥 gcd 𝑁) = 1}))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 397 ∨ wo 854 = wceq 1548 ∈ wcel 2121 ≠ wne 2936 ∀wral 3055 {crab 3393 ∩ cin 3883 ⊆ wss 3884 {csn 4557 ‘cfv 6488 (class class class)co 7359 0cc0 11034 1c1 11035 − cmin 11373 ℕcn 12169 2c2 12231 ℤcz 12519 ℤ_≥cuz 12783 ...cfz 13456 ..^cfzo 13603 ♯chash 14287 abscabs 15191 gcd cgcd 16458 ϕcphi 16729

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1803 ax-4 1817 ax-5 1918 ax-6 1975 ax-7 2016 ax-8 2123 ax-9 2131 ax-10 2154 ax-11 2170 ax-12 2191 ax-ext 2713 ax-sep 5220 ax-nul 5230 ax-pow 5296 ax-pr 5364 ax-un 7681 ax-cnex 11090 ax-resscn 11091 ax-1cn 11092 ax-icn 11093 ax-addcl 11094 ax-addrcl 11095 ax-mulcl 11096 ax-mulrcl 11097 ax-mulcom 11098 ax-addass 11099 ax-mulass 11100 ax-distr 11101 ax-i2m1 11102 ax-1ne0 11103 ax-1rid 11104 ax-rnegex 11105 ax-rrecex 11106 ax-cnre 11107 ax-pre-lttri 11108 ax-pre-lttrn 11109 ax-pre-ltadd 11110 ax-pre-mulgt0 11111 ax-pre-sup 11112

This theorem depends on definitions: df-bi 209 df-an 398 df-or 855 df-3or 1094 df-3an 1095 df-tru 1551 df-fal 1561 df-ex 1788 df-nf 1792 df-sb 2075 df-mo 2545 df-eu 2575 df-clab 2720 df-cleq 2733 df-clel 2816 df-nfc 2890 df-ne 2937 df-nel 3041 df-ral 3056 df-rex 3066 df-rmo 3346 df-reu 3347 df-rab 3394 df-v 3435 df-sbc 3725 df-csb 3833 df-dif 3887 df-un 3889 df-in 3891 df-ss 3901 df-pss 3904 df-nul 4264 df-if 4457 df-pw 4533 df-sn 4558 df-pr 4560 df-op 4564 df-uni 4841 df-int 4880 df-iun 4925 df-br 5075 df-opab 5137 df-mpt 5156 df-tr 5182 df-id 5515 df-eprel 5520 df-po 5528 df-so 5529 df-fr 5573 df-we 5575 df-xp 5626 df-rel 5627 df-cnv 5628 df-co 5629 df-dm 5630 df-rn 5631 df-res 5632 df-ima 5633 df-pred 6255 df-ord 6316 df-on 6317 df-lim 6318 df-suc 6319 df-iota 6444 df-fun 6490 df-fn 6491 df-f 6492 df-f1 6493 df-fo 6494 df-f1o 6495 df-fv 6496 df-riota 7316 df-ov 7362 df-oprab 7363 df-mpo 7364 df-om 7810 df-1st 7933 df-2nd 7934 df-frecs 8224 df-wrecs 8255 df-recs 8304 df-rdg 8343 df-1o 8399 df-oadd 8403 df-er 8637 df-en 8888 df-dom 8889 df-sdom 8890 df-fin 8891 df-sup 9349 df-inf 9350 df-card 9858 df-pnf 11177 df-mnf 11178 df-xr 11179 df-ltxr 11180 df-le 11181 df-sub 11375 df-neg 11376 df-div 11804 df-nn 12170 df-2 12239 df-3 12240 df-n0 12433 df-xnn0 12506 df-z 12520 df-uz 12784 df-rp 12938 df-fz 13457 df-fzo 13604 df-seq 13959 df-exp 14019 df-hash 14288 df-cj 15056 df-re 15057 df-im 15058 df-sqrt 15192 df-abs 15193 df-dvds 16217 df-gcd 16459 df-phi 16731

This theorem is referenced by: phimullem 16744 eulerth 16748 hashgcdeq 16755 odngen 19546 znunithash 21542

W3C validator