Metamath Proof Explorer


Theorem phisum

Description: The divisor sum identity of the totient function. Theorem 2.2 in ApostolNT p. 26. (Contributed by Stefan O'Rear, 12-Sep-2015)

Ref Expression
Assertion phisum ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ϕ ⁡ d = N

Proof

Step Hyp Ref Expression
1 breq1 ⊢ x = y → x ∥ N ↔ y ∥ N
2 1 elrab ⊢ y ∈ x ∈ ℕ | x ∥ N ↔ y ∈ ℕ ∧ y ∥ N
3 hashgcdeq ⊢ N ∈ ℕ ∧ y ∈ ℕ → z ∈ 0 ..^ N | z gcd N = y = if y ∥ N ϕ ⁡ N y 0
4 3 adantrr ⊢ N ∈ ℕ ∧ y ∈ ℕ ∧ y ∥ N → z ∈ 0 ..^ N | z gcd N = y = if y ∥ N ϕ ⁡ N y 0
5 iftrue ⊢ y ∥ N → if y ∥ N ϕ ⁡ N y 0 = ϕ ⁡ N y
6 5 ad2antll ⊢ N ∈ ℕ ∧ y ∈ ℕ ∧ y ∥ N → if y ∥ N ϕ ⁡ N y 0 = ϕ ⁡ N y
7 4 6 eqtrd ⊢ N ∈ ℕ ∧ y ∈ ℕ ∧ y ∥ N → z ∈ 0 ..^ N | z gcd N = y = ϕ ⁡ N y
8 2 7 sylan2b ⊢ N ∈ ℕ ∧ y ∈ x ∈ ℕ | x ∥ N → z ∈ 0 ..^ N | z gcd N = y = ϕ ⁡ N y
9 8 sumeq2dv ⊢ N ∈ ℕ → ∑ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y = ∑ y ∈ x ∈ ℕ | x ∥ N ϕ ⁡ N y
10 dvdsfi ⊢ N ∈ ℕ → x ∈ ℕ | x ∥ N ∈ Fin
11 fzofi ⊢ 0 ..^ N ∈ Fin
12 ssrab2 ⊢ z ∈ 0 ..^ N | z gcd N = y ⊆ 0 ..^ N
13 ssfi ⊢ 0 ..^ N ∈ Fin ∧ z ∈ 0 ..^ N | z gcd N = y ⊆ 0 ..^ N → z ∈ 0 ..^ N | z gcd N = y ∈ Fin
14 11 12 13 mp2an ⊢ z ∈ 0 ..^ N | z gcd N = y ∈ Fin
15 14 a1i ⊢ N ∈ ℕ ∧ y ∈ x ∈ ℕ | x ∥ N → z ∈ 0 ..^ N | z gcd N = y ∈ Fin
16 oveq1 ⊢ z = w → z gcd N = w gcd N
17 16 eqeq1d ⊢ z = w → z gcd N = y ↔ w gcd N = y
18 17 elrab ⊢ w ∈ z ∈ 0 ..^ N | z gcd N = y ↔ w ∈ 0 ..^ N ∧ w gcd N = y
19 18 simprbi ⊢ w ∈ z ∈ 0 ..^ N | z gcd N = y → w gcd N = y
20 19 rgen ⊢ ∀ w ∈ z ∈ 0 ..^ N | z gcd N = y w gcd N = y
21 20 rgenw ⊢ ∀ y ∈ x ∈ ℕ | x ∥ N ∀ w ∈ z ∈ 0 ..^ N | z gcd N = y w gcd N = y
22 invdisj ⊢ ∀ y ∈ x ∈ ℕ | x ∥ N ∀ w ∈ z ∈ 0 ..^ N | z gcd N = y w gcd N = y → Disj y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y
23 21 22 mp1i ⊢ N ∈ ℕ → Disj y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y
24 10 15 23 hashiun ⊢ N ∈ ℕ → ⋃ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y = ∑ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y
25 fveq2 ⊢ d = N y → ϕ ⁡ d = ϕ ⁡ N y
26 eqid ⊢ x ∈ ℕ | x ∥ N = x ∈ ℕ | x ∥ N
27 eqid ⊢ z ∈ x ∈ ℕ | x ∥ N ⟼ N z = z ∈ x ∈ ℕ | x ∥ N ⟼ N z
28 26 27 dvdsflip ⊢ N ∈ ℕ → z ∈ x ∈ ℕ | x ∥ N ⟼ N z : x ∈ ℕ | x ∥ N ⟶ 1-1 onto x ∈ ℕ | x ∥ N
29 oveq2 ⊢ z = y → N z = N y
30 ovex ⊢ N y ∈ V
31 29 27 30 fvmpt ⊢ y ∈ x ∈ ℕ | x ∥ N → z ∈ x ∈ ℕ | x ∥ N ⟼ N z ⁡ y = N y
32 31 adantl ⊢ N ∈ ℕ ∧ y ∈ x ∈ ℕ | x ∥ N → z ∈ x ∈ ℕ | x ∥ N ⟼ N z ⁡ y = N y
33 elrabi ⊢ d ∈ x ∈ ℕ | x ∥ N → d ∈ ℕ
34 33 adantl ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → d ∈ ℕ
35 34 phicld ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → ϕ ⁡ d ∈ ℕ
36 35 nncnd ⊢ N ∈ ℕ ∧ d ∈ x ∈ ℕ | x ∥ N → ϕ ⁡ d ∈ ℂ
37 25 10 28 32 36 fsumf1o ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ϕ ⁡ d = ∑ y ∈ x ∈ ℕ | x ∥ N ϕ ⁡ N y
38 9 24 37 3eqtr4rd ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ϕ ⁡ d = ⋃ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y
39 iunrab ⊢ ⋃ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y = z ∈ 0 ..^ N | ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y
40 breq1 ⊢ x = z gcd N → x ∥ N ↔ z gcd N ∥ N
41 elfzoelz ⊢ z ∈ 0 ..^ N → z ∈ ℤ
42 41 adantl ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → z ∈ ℤ
43 nnz ⊢ N ∈ ℕ → N ∈ ℤ
44 43 adantr ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → N ∈ ℤ
45 nnne0 ⊢ N ∈ ℕ → N ≠ 0
46 45 neneqd ⊢ N ∈ ℕ → ¬ N = 0
47 46 intnand ⊢ N ∈ ℕ → ¬ z = 0 ∧ N = 0
48 47 adantr ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → ¬ z = 0 ∧ N = 0
49 gcdn0cl ⊢ z ∈ ℤ ∧ N ∈ ℤ ∧ ¬ z = 0 ∧ N = 0 → z gcd N ∈ ℕ
50 42 44 48 49 syl21anc ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → z gcd N ∈ ℕ
51 gcddvds ⊢ z ∈ ℤ ∧ N ∈ ℤ → z gcd N ∥ z ∧ z gcd N ∥ N
52 42 44 51 syl2anc ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → z gcd N ∥ z ∧ z gcd N ∥ N
53 52 simprd ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → z gcd N ∥ N
54 40 50 53 elrabd ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → z gcd N ∈ x ∈ ℕ | x ∥ N
55 clel5 ⊢ z gcd N ∈ x ∈ ℕ | x ∥ N ↔ ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y
56 54 55 sylib ⊢ N ∈ ℕ ∧ z ∈ 0 ..^ N → ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y
57 56 ralrimiva ⊢ N ∈ ℕ → ∀ z ∈ 0 ..^ N ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y
58 rabid2 ⊢ 0 ..^ N = z ∈ 0 ..^ N | ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y ↔ ∀ z ∈ 0 ..^ N ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y
59 57 58 sylibr ⊢ N ∈ ℕ → 0 ..^ N = z ∈ 0 ..^ N | ∃ y ∈ x ∈ ℕ | x ∥ N z gcd N = y
60 39 59 eqtr4id ⊢ N ∈ ℕ → ⋃ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y = 0 ..^ N
61 60 fveq2d ⊢ N ∈ ℕ → ⋃ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y = 0 ..^ N
62 nnnn0 ⊢ N ∈ ℕ → N ∈ ℕ 0
63 hashfzo0 ⊢ N ∈ ℕ 0 → 0 ..^ N = N
64 62 63 syl ⊢ N ∈ ℕ → 0 ..^ N = N
65 61 64 eqtrd ⊢ N ∈ ℕ → ⋃ y ∈ x ∈ ℕ | x ∥ N z ∈ 0 ..^ N | z gcd N = y = N
66 38 65 eqtrd ⊢ N ∈ ℕ → ∑ d ∈ x ∈ ℕ | x ∥ N ϕ ⁡ d = N