Metamath Proof Explorer


Theorem dchrfi

Description: The group of Dirichlet characters is a finite group. (Contributed by Mario Carneiro, 19-Apr-2016)

Ref Expression
Hypotheses dchrabl.g ⊢ G = DChr ⁡ N
dchrfi.b ⊢ D = Base G
Assertion dchrfi ⊢ N ∈ ℕ → D ∈ Fin

Proof

Step Hyp Ref Expression
1 dchrabl.g ⊢ G = DChr ⁡ N
2 dchrfi.b ⊢ D = Base G
3 snfi ⊢ 0 ∈ Fin
4 cnex ⊢ ℂ ∈ V
5 4 a1i ⊢ N ∈ ℕ → ℂ ∈ V
6 ovexd ⊢ N ∈ ℕ ∧ z ∈ ℂ → z ϕ ⁡ N ∈ V
7 1cnd ⊢ N ∈ ℕ ∧ z ∈ ℂ → 1 ∈ ℂ
8 eqidd ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N = z ∈ ℂ ⟼ z ϕ ⁡ N
9 fconstmpt ⊢ ℂ × 1 = z ∈ ℂ ⟼ 1
10 9 a1i ⊢ N ∈ ℕ → ℂ × 1 = z ∈ ℂ ⟼ 1
11 5 6 7 8 10 offval2 ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − f ℂ × 1 = z ∈ ℂ ⟼ z ϕ ⁡ N − 1
12 ssid ⊢ ℂ ⊆ ℂ
13 12 a1i ⊢ N ∈ ℕ → ℂ ⊆ ℂ
14 1cnd ⊢ N ∈ ℕ → 1 ∈ ℂ
15 phicl ⊢ N ∈ ℕ → ϕ ⁡ N ∈ ℕ
16 15 nnnn0d ⊢ N ∈ ℕ → ϕ ⁡ N ∈ ℕ 0
17 plypow ⊢ ℂ ⊆ ℂ ∧ 1 ∈ ℂ ∧ ϕ ⁡ N ∈ ℕ 0 → z ∈ ℂ ⟼ z ϕ ⁡ N ∈ Poly ⁡ ℂ
18 13 14 16 17 syl3anc ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N ∈ Poly ⁡ ℂ
19 ax-1cn ⊢ 1 ∈ ℂ
20 plyconst ⊢ ℂ ⊆ ℂ ∧ 1 ∈ ℂ → ℂ × 1 ∈ Poly ⁡ ℂ
21 12 19 20 mp2an ⊢ ℂ × 1 ∈ Poly ⁡ ℂ
22 plysubcl ⊢ z ∈ ℂ ⟼ z ϕ ⁡ N ∈ Poly ⁡ ℂ ∧ ℂ × 1 ∈ Poly ⁡ ℂ → z ∈ ℂ ⟼ z ϕ ⁡ N − f ℂ × 1 ∈ Poly ⁡ ℂ
23 18 21 22 sylancl ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − f ℂ × 1 ∈ Poly ⁡ ℂ
24 11 23 eqeltrrd ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ∈ Poly ⁡ ℂ
25 0cn ⊢ 0 ∈ ℂ
26 neg1ne0 ⊢ − 1 ≠ 0
27 15 0expd ⊢ N ∈ ℕ → 0 ϕ ⁡ N = 0
28 27 oveq1d ⊢ N ∈ ℕ → 0 ϕ ⁡ N − 1 = 0 − 1
29 oveq1 ⊢ z = 0 → z ϕ ⁡ N = 0 ϕ ⁡ N
30 29 oveq1d ⊢ z = 0 → z ϕ ⁡ N − 1 = 0 ϕ ⁡ N − 1
31 eqid ⊢ z ∈ ℂ ⟼ z ϕ ⁡ N − 1 = z ∈ ℂ ⟼ z ϕ ⁡ N − 1
32 ovex ⊢ 0 ϕ ⁡ N − 1 ∈ V
33 30 31 32 fvmpt ⊢ 0 ∈ ℂ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ⁡ 0 = 0 ϕ ⁡ N − 1
34 25 33 ax-mp ⊢ z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ⁡ 0 = 0 ϕ ⁡ N − 1
35 df-neg ⊢ − 1 = 0 − 1
36 28 34 35 3eqtr4g ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ⁡ 0 = − 1
37 36 neeq1d ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ⁡ 0 ≠ 0 ↔ − 1 ≠ 0
38 26 37 mpbiri ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ⁡ 0 ≠ 0
39 ne0p ⊢ 0 ∈ ℂ ∧ z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ⁡ 0 ≠ 0 → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ≠ 0 𝑝
40 25 38 39 sylancr ⊢ N ∈ ℕ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ≠ 0 𝑝
41 31 mptiniseg ⊢ 0 ∈ ℂ → z ∈ ℂ ⟼ z ϕ ⁡ N − 1 -1 0 = z ∈ ℂ | z ϕ ⁡ N − 1 = 0
42 25 41 ax-mp ⊢ z ∈ ℂ ⟼ z ϕ ⁡ N − 1 -1 0 = z ∈ ℂ | z ϕ ⁡ N − 1 = 0
43 42 eqcomi ⊢ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 = z ∈ ℂ ⟼ z ϕ ⁡ N − 1 -1 0
44 43 fta1 ⊢ z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ∈ Poly ⁡ ℂ ∧ z ∈ ℂ ⟼ z ϕ ⁡ N − 1 ≠ 0 𝑝 → z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin ∧ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ≤ deg ⁡ z ∈ ℂ ⟼ z ϕ ⁡ N − 1
45 24 40 44 syl2anc ⊢ N ∈ ℕ → z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin ∧ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ≤ deg ⁡ z ∈ ℂ ⟼ z ϕ ⁡ N − 1
46 45 simpld ⊢ N ∈ ℕ → z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin
47 unfi ⊢ 0 ∈ Fin ∧ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin → 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin
48 3 46 47 sylancr ⊢ N ∈ ℕ → 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin
49 eqid ⊢ ℤ/Nℤ = ℤ/Nℤ
50 eqid ⊢ Base ℤ/Nℤ = Base ℤ/Nℤ
51 49 50 znfi ⊢ N ∈ ℕ → Base ℤ/Nℤ ∈ Fin
52 mapfi ⊢ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ∈ Fin ∧ Base ℤ/Nℤ ∈ Fin → 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 Base ℤ/Nℤ ∈ Fin
53 48 51 52 syl2anc ⊢ N ∈ ℕ → 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 Base ℤ/Nℤ ∈ Fin
54 simpr ⊢ N ∈ ℕ ∧ f ∈ D → f ∈ D
55 1 49 2 50 54 dchrf ⊢ N ∈ ℕ ∧ f ∈ D → f : Base ℤ/Nℤ ⟶ ℂ
56 55 ffnd ⊢ N ∈ ℕ ∧ f ∈ D → f Fn Base ℤ/Nℤ
57 df-ne ⊢ f ⁡ x ≠ 0 ↔ ¬ f ⁡ x = 0
58 fvex ⊢ f ⁡ x ∈ V
59 58 elsn ⊢ f ⁡ x ∈ 0 ↔ f ⁡ x = 0
60 57 59 xchbinxr ⊢ f ⁡ x ≠ 0 ↔ ¬ f ⁡ x ∈ 0
61 oveq1 ⊢ z = f ⁡ x → z ϕ ⁡ N = f ⁡ x ϕ ⁡ N
62 61 oveq1d ⊢ z = f ⁡ x → z ϕ ⁡ N − 1 = f ⁡ x ϕ ⁡ N − 1
63 62 eqeq1d ⊢ z = f ⁡ x → z ϕ ⁡ N − 1 = 0 ↔ f ⁡ x ϕ ⁡ N − 1 = 0
64 simpl ⊢ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → x ∈ Base ℤ/Nℤ
65 ffvelcdm ⊢ f : Base ℤ/Nℤ ⟶ ℂ ∧ x ∈ Base ℤ/Nℤ → f ⁡ x ∈ ℂ
66 55 64 65 syl2an ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ∈ ℂ
67 1 49 2 dchrmhm ⊢ D ⊆ mulGrp ℤ/Nℤ MndHom mulGrp ℂ fld
68 simplr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ∈ D
69 67 68 sselid ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ∈ mulGrp ℤ/Nℤ MndHom mulGrp ℂ fld
70 16 ad2antrr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ∈ ℕ 0
71 simprl ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → x ∈ Base ℤ/Nℤ
72 eqid ⊢ mulGrp ℤ/Nℤ = mulGrp ℤ/Nℤ
73 72 50 mgpbas ⊢ Base ℤ/Nℤ = Base mulGrp ℤ/Nℤ
74 eqid ⊢ ⋅ mulGrp ℤ/Nℤ = ⋅ mulGrp ℤ/Nℤ
75 eqid ⊢ ⋅ mulGrp ℂ fld = ⋅ mulGrp ℂ fld
76 73 74 75 mhmmulg ⊢ f ∈ mulGrp ℤ/Nℤ MndHom mulGrp ℂ fld ∧ ϕ ⁡ N ∈ ℕ 0 ∧ x ∈ Base ℤ/Nℤ → f ⁡ ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ x = ϕ ⁡ N ⋅ mulGrp ℂ fld f ⁡ x
77 69 70 71 76 syl3anc ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ x = ϕ ⁡ N ⋅ mulGrp ℂ fld f ⁡ x
78 nnnn0 ⊢ N ∈ ℕ → N ∈ ℕ 0
79 49 zncrng ⊢ N ∈ ℕ 0 → ℤ/Nℤ ∈ CRing
80 78 79 syl ⊢ N ∈ ℕ → ℤ/Nℤ ∈ CRing
81 crngring ⊢ ℤ/Nℤ ∈ CRing → ℤ/Nℤ ∈ Ring
82 80 81 syl ⊢ N ∈ ℕ → ℤ/Nℤ ∈ Ring
83 82 ad2antrr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ℤ/Nℤ ∈ Ring
84 eqid ⊢ Unit ⁡ ℤ/Nℤ = Unit ⁡ ℤ/Nℤ
85 eqid ⊢ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ = mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
86 84 85 unitgrp ⊢ ℤ/Nℤ ∈ Ring → mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ∈ Grp
87 83 86 syl ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ∈ Grp
88 49 84 znunithash ⊢ N ∈ ℕ → Unit ⁡ ℤ/Nℤ = ϕ ⁡ N
89 88 16 eqeltrd ⊢ N ∈ ℕ → Unit ⁡ ℤ/Nℤ ∈ ℕ 0
90 fvex ⊢ Unit ⁡ ℤ/Nℤ ∈ V
91 hashclb ⊢ Unit ⁡ ℤ/Nℤ ∈ V → Unit ⁡ ℤ/Nℤ ∈ Fin ↔ Unit ⁡ ℤ/Nℤ ∈ ℕ 0
92 90 91 ax-mp ⊢ Unit ⁡ ℤ/Nℤ ∈ Fin ↔ Unit ⁡ ℤ/Nℤ ∈ ℕ 0
93 89 92 sylibr ⊢ N ∈ ℕ → Unit ⁡ ℤ/Nℤ ∈ Fin
94 93 ad2antrr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → Unit ⁡ ℤ/Nℤ ∈ Fin
95 simprr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ≠ 0
96 1 49 2 50 84 68 71 dchrn0 ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ≠ 0 ↔ x ∈ Unit ⁡ ℤ/Nℤ
97 95 96 mpbid ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
98 84 85 unitgrpbas ⊢ Unit ⁡ ℤ/Nℤ = Base mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
99 eqid ⊢ od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ = od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
100 98 99 oddvds2 ⊢ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ∈ Grp ∧ Unit ⁡ ℤ/Nℤ ∈ Fin ∧ x ∈ Unit ⁡ ℤ/Nℤ → od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ⁡ x ∥ Unit ⁡ ℤ/Nℤ
101 87 94 97 100 syl3anc ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ⁡ x ∥ Unit ⁡ ℤ/Nℤ
102 88 ad2antrr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → Unit ⁡ ℤ/Nℤ = ϕ ⁡ N
103 101 102 breqtrd ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ⁡ x ∥ ϕ ⁡ N
104 15 ad2antrr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ∈ ℕ
105 104 nnzd ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ∈ ℤ
106 eqid ⊢ ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ = ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
107 eqid ⊢ 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ = 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
108 98 99 106 107 oddvds ⊢ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ∈ Grp ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ ϕ ⁡ N ∈ ℤ → od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ⁡ x ∥ ϕ ⁡ N ↔ ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ x = 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
109 87 97 105 108 syl3anc ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → od ⁡ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ ⁡ x ∥ ϕ ⁡ N ↔ ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ x = 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
110 103 109 mpbid ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ x = 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
111 84 72 unitsubm ⊢ ℤ/Nℤ ∈ Ring → Unit ⁡ ℤ/Nℤ ∈ SubMnd ⁡ mulGrp ℤ/Nℤ
112 83 111 syl ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → Unit ⁡ ℤ/Nℤ ∈ SubMnd ⁡ mulGrp ℤ/Nℤ
113 74 85 106 submmulg ⊢ Unit ⁡ ℤ/Nℤ ∈ SubMnd ⁡ mulGrp ℤ/Nℤ ∧ ϕ ⁡ N ∈ ℕ 0 ∧ x ∈ Unit ⁡ ℤ/Nℤ → ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ x = ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ x
114 112 70 97 113 syl3anc ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ x = ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ x
115 eqid ⊢ 1 ℤ/Nℤ = 1 ℤ/Nℤ
116 72 115 ringidval ⊢ 1 ℤ/Nℤ = 0 mulGrp ℤ/Nℤ
117 85 116 subm0 ⊢ Unit ⁡ ℤ/Nℤ ∈ SubMnd ⁡ mulGrp ℤ/Nℤ → 1 ℤ/Nℤ = 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
118 112 117 syl ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → 1 ℤ/Nℤ = 0 mulGrp ℤ/Nℤ ↾ 𝑠 Unit ⁡ ℤ/Nℤ
119 110 114 118 3eqtr4d ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ x = 1 ℤ/Nℤ
120 119 fveq2d ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ ϕ ⁡ N ⋅ mulGrp ℤ/Nℤ x = f ⁡ 1 ℤ/Nℤ
121 77 120 eqtr3d ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ⋅ mulGrp ℂ fld f ⁡ x = f ⁡ 1 ℤ/Nℤ
122 cnfldexp ⊢ f ⁡ x ∈ ℂ ∧ ϕ ⁡ N ∈ ℕ 0 → ϕ ⁡ N ⋅ mulGrp ℂ fld f ⁡ x = f ⁡ x ϕ ⁡ N
123 66 70 122 syl2anc ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → ϕ ⁡ N ⋅ mulGrp ℂ fld f ⁡ x = f ⁡ x ϕ ⁡ N
124 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
125 cnfld1 ⊢ 1 = 1 ℂ fld
126 124 125 ringidval ⊢ 1 = 0 mulGrp ℂ fld
127 116 126 mhm0 ⊢ f ∈ mulGrp ℤ/Nℤ MndHom mulGrp ℂ fld → f ⁡ 1 ℤ/Nℤ = 1
128 69 127 syl ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ 1 ℤ/Nℤ = 1
129 121 123 128 3eqtr3d ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ϕ ⁡ N = 1
130 129 oveq1d ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ϕ ⁡ N − 1 = 1 − 1
131 1m1e0 ⊢ 1 − 1 = 0
132 130 131 eqtrdi ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ϕ ⁡ N − 1 = 0
133 63 66 132 elrabd ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ ∧ f ⁡ x ≠ 0 → f ⁡ x ∈ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
134 133 expr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ → f ⁡ x ≠ 0 → f ⁡ x ∈ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
135 60 134 biimtrrid ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ → ¬ f ⁡ x ∈ 0 → f ⁡ x ∈ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
136 135 orrd ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ → f ⁡ x ∈ 0 ∨ f ⁡ x ∈ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
137 elun ⊢ f ⁡ x ∈ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ↔ f ⁡ x ∈ 0 ∨ f ⁡ x ∈ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
138 136 137 sylibr ⊢ N ∈ ℕ ∧ f ∈ D ∧ x ∈ Base ℤ/Nℤ → f ⁡ x ∈ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
139 138 ralrimiva ⊢ N ∈ ℕ ∧ f ∈ D → ∀ x ∈ Base ℤ/Nℤ f ⁡ x ∈ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
140 ffnfv ⊢ f : Base ℤ/Nℤ ⟶ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 ↔ f Fn Base ℤ/Nℤ ∧ ∀ x ∈ Base ℤ/Nℤ f ⁡ x ∈ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
141 56 139 140 sylanbrc ⊢ N ∈ ℕ ∧ f ∈ D → f : Base ℤ/Nℤ ⟶ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
142 141 ex ⊢ N ∈ ℕ → f ∈ D → f : Base ℤ/Nℤ ⟶ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
143 48 51 elmapd ⊢ N ∈ ℕ → f ∈ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 Base ℤ/Nℤ ↔ f : Base ℤ/Nℤ ⟶ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0
144 142 143 sylibrd ⊢ N ∈ ℕ → f ∈ D → f ∈ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 Base ℤ/Nℤ
145 144 ssrdv ⊢ N ∈ ℕ → D ⊆ 0 ∪ z ∈ ℂ | z ϕ ⁡ N − 1 = 0 Base ℤ/Nℤ
146 53 145 ssfid ⊢ N ∈ ℕ → D ∈ Fin