Metamath Proof Explorer


Theorem dchrabs

Description: A Dirichlet character takes values on the unit circle. (Contributed by Mario Carneiro, 28-Apr-2016)

Ref Expression
Hypotheses dchrabs.g ⊢ G = DChr ⁡ N
dchrabs.d ⊢ D = Base G
dchrabs.x ⊢ φ → X ∈ D
dchrabs.z ⊢ Z = ℤ/Nℤ
dchrabs.u ⊢ U = Unit ⁡ Z
dchrabs.a ⊢ φ → A ∈ U
Assertion dchrabs ⊢ φ → X ⁡ A = 1

Proof

Step Hyp Ref Expression
1 dchrabs.g ⊢ G = DChr ⁡ N
2 dchrabs.d ⊢ D = Base G
3 dchrabs.x ⊢ φ → X ∈ D
4 dchrabs.z ⊢ Z = ℤ/Nℤ
5 dchrabs.u ⊢ U = Unit ⁡ Z
6 dchrabs.a ⊢ φ → A ∈ U
7 eqid ⊢ Base Z = Base Z
8 1 4 2 7 3 dchrf ⊢ φ → X : Base Z ⟶ ℂ
9 7 5 unitss ⊢ U ⊆ Base Z
10 9 6 sselid ⊢ φ → A ∈ Base Z
11 8 10 ffvelcdmd ⊢ φ → X ⁡ A ∈ ℂ
12 1 4 2 7 5 3 10 dchrn0 ⊢ φ → X ⁡ A ≠ 0 ↔ A ∈ U
13 6 12 mpbird ⊢ φ → X ⁡ A ≠ 0
14 11 13 absrpcld ⊢ φ → X ⁡ A ∈ ℝ +
15 1 2 dchrrcl ⊢ X ∈ D → N ∈ ℕ
16 4 7 znfi ⊢ N ∈ ℕ → Base Z ∈ Fin
17 3 15 16 3syl ⊢ φ → Base Z ∈ Fin
18 ssfi ⊢ Base Z ∈ Fin ∧ U ⊆ Base Z → U ∈ Fin
19 17 9 18 sylancl ⊢ φ → U ∈ Fin
20 hashcl ⊢ U ∈ Fin → U ∈ ℕ 0
21 19 20 syl ⊢ φ → U ∈ ℕ 0
22 21 nn0red ⊢ φ → U ∈ ℝ
23 22 recnd ⊢ φ → U ∈ ℂ
24 6 ne0d ⊢ φ → U ≠ ∅
25 hashnncl ⊢ U ∈ Fin → U ∈ ℕ ↔ U ≠ ∅
26 19 25 syl ⊢ φ → U ∈ ℕ ↔ U ≠ ∅
27 24 26 mpbird ⊢ φ → U ∈ ℕ
28 27 nnne0d ⊢ φ → U ≠ 0
29 23 28 reccld ⊢ φ → 1 U ∈ ℂ
30 14 22 29 cxpmuld ⊢ φ → X ⁡ A U ⁢ 1 U = X ⁡ A U 1 U
31 23 28 recidd ⊢ φ → U ⁢ 1 U = 1
32 31 oveq2d ⊢ φ → X ⁡ A U ⁢ 1 U = X ⁡ A 1
33 11 abscld ⊢ φ → X ⁡ A ∈ ℝ
34 33 recnd ⊢ φ → X ⁡ A ∈ ℂ
35 cxpexp ⊢ X ⁡ A ∈ ℂ ∧ U ∈ ℕ 0 → X ⁡ A U = X ⁡ A U
36 34 21 35 syl2anc ⊢ φ → X ⁡ A U = X ⁡ A U
37 11 21 absexpd ⊢ φ → X ⁡ A U = X ⁡ A U
38 cnring ⊢ ℂ fld ∈ Ring
39 cnfldbas ⊢ ℂ = Base ℂ fld
40 cnfld0 ⊢ 0 = 0 ℂ fld
41 cndrng ⊢ ℂ fld ∈ DivRing
42 39 40 41 drngui ⊢ ℂ ∖ 0 = Unit ⁡ ℂ fld
43 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
44 42 43 unitsubm ⊢ ℂ fld ∈ Ring → ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
45 38 44 mp1i ⊢ φ → ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
46 eldifsn ⊢ X ⁡ A ∈ ℂ ∖ 0 ↔ X ⁡ A ∈ ℂ ∧ X ⁡ A ≠ 0
47 11 13 46 sylanbrc ⊢ φ → X ⁡ A ∈ ℂ ∖ 0
48 eqid ⊢ ⋅ mulGrp ℂ fld = ⋅ mulGrp ℂ fld
49 eqid ⊢ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
50 eqid ⊢ ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 = ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
51 48 49 50 submmulg ⊢ ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld ∧ U ∈ ℕ 0 ∧ X ⁡ A ∈ ℂ ∖ 0 → U ⋅ mulGrp ℂ fld X ⁡ A = U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ⁡ A
52 45 21 47 51 syl3anc ⊢ φ → U ⋅ mulGrp ℂ fld X ⁡ A = U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ⁡ A
53 eqid ⊢ mulGrp Z ↾ 𝑠 U = mulGrp Z ↾ 𝑠 U
54 1 4 2 5 53 49 3 dchrghm ⊢ φ → X ↾ U ∈ mulGrp Z ↾ 𝑠 U GrpHom mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
55 21 nn0zd ⊢ φ → U ∈ ℤ
56 5 53 unitgrpbas ⊢ U = Base mulGrp Z ↾ 𝑠 U
57 eqid ⊢ ⋅ mulGrp Z ↾ 𝑠 U = ⋅ mulGrp Z ↾ 𝑠 U
58 56 57 50 ghmmulg ⊢ X ↾ U ∈ mulGrp Z ↾ 𝑠 U GrpHom mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 ∧ U ∈ ℤ ∧ A ∈ U → X ↾ U ⁡ U ⋅ mulGrp Z ↾ 𝑠 U A = U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ↾ U ⁡ A
59 54 55 6 58 syl3anc ⊢ φ → X ↾ U ⁡ U ⋅ mulGrp Z ↾ 𝑠 U A = U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ↾ U ⁡ A
60 3 15 syl ⊢ φ → N ∈ ℕ
61 60 nnnn0d ⊢ φ → N ∈ ℕ 0
62 4 zncrng ⊢ N ∈ ℕ 0 → Z ∈ CRing
63 crngring ⊢ Z ∈ CRing → Z ∈ Ring
64 61 62 63 3syl ⊢ φ → Z ∈ Ring
65 5 53 unitgrp ⊢ Z ∈ Ring → mulGrp Z ↾ 𝑠 U ∈ Grp
66 64 65 syl ⊢ φ → mulGrp Z ↾ 𝑠 U ∈ Grp
67 eqid ⊢ od ⁡ mulGrp Z ↾ 𝑠 U = od ⁡ mulGrp Z ↾ 𝑠 U
68 56 67 oddvds2 ⊢ mulGrp Z ↾ 𝑠 U ∈ Grp ∧ U ∈ Fin ∧ A ∈ U → od ⁡ mulGrp Z ↾ 𝑠 U ⁡ A ∥ U
69 66 19 6 68 syl3anc ⊢ φ → od ⁡ mulGrp Z ↾ 𝑠 U ⁡ A ∥ U
70 eqid ⊢ 0 mulGrp Z ↾ 𝑠 U = 0 mulGrp Z ↾ 𝑠 U
71 56 67 57 70 oddvds ⊢ mulGrp Z ↾ 𝑠 U ∈ Grp ∧ A ∈ U ∧ U ∈ ℤ → od ⁡ mulGrp Z ↾ 𝑠 U ⁡ A ∥ U ↔ U ⋅ mulGrp Z ↾ 𝑠 U A = 0 mulGrp Z ↾ 𝑠 U
72 66 6 55 71 syl3anc ⊢ φ → od ⁡ mulGrp Z ↾ 𝑠 U ⁡ A ∥ U ↔ U ⋅ mulGrp Z ↾ 𝑠 U A = 0 mulGrp Z ↾ 𝑠 U
73 69 72 mpbid ⊢ φ → U ⋅ mulGrp Z ↾ 𝑠 U A = 0 mulGrp Z ↾ 𝑠 U
74 eqid ⊢ 1 Z = 1 Z
75 5 53 74 unitgrpid ⊢ Z ∈ Ring → 1 Z = 0 mulGrp Z ↾ 𝑠 U
76 64 75 syl ⊢ φ → 1 Z = 0 mulGrp Z ↾ 𝑠 U
77 73 76 eqtr4d ⊢ φ → U ⋅ mulGrp Z ↾ 𝑠 U A = 1 Z
78 77 fveq2d ⊢ φ → X ↾ U ⁡ U ⋅ mulGrp Z ↾ 𝑠 U A = X ↾ U ⁡ 1 Z
79 6 fvresd ⊢ φ → X ↾ U ⁡ A = X ⁡ A
80 79 oveq2d ⊢ φ → U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ↾ U ⁡ A = U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ⁡ A
81 59 78 80 3eqtr3d ⊢ φ → X ↾ U ⁡ 1 Z = U ⋅ mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0 X ⁡ A
82 5 74 1unit ⊢ Z ∈ Ring → 1 Z ∈ U
83 fvres ⊢ 1 Z ∈ U → X ↾ U ⁡ 1 Z = X ⁡ 1 Z
84 64 82 83 3syl ⊢ φ → X ↾ U ⁡ 1 Z = X ⁡ 1 Z
85 52 81 84 3eqtr2d ⊢ φ → U ⋅ mulGrp ℂ fld X ⁡ A = X ⁡ 1 Z
86 cnfldexp ⊢ X ⁡ A ∈ ℂ ∧ U ∈ ℕ 0 → U ⋅ mulGrp ℂ fld X ⁡ A = X ⁡ A U
87 11 21 86 syl2anc ⊢ φ → U ⋅ mulGrp ℂ fld X ⁡ A = X ⁡ A U
88 1 4 2 dchrmhm ⊢ D ⊆ mulGrp Z MndHom mulGrp ℂ fld
89 88 3 sselid ⊢ φ → X ∈ mulGrp Z MndHom mulGrp ℂ fld
90 eqid ⊢ mulGrp Z = mulGrp Z
91 90 74 ringidval ⊢ 1 Z = 0 mulGrp Z
92 cnfld1 ⊢ 1 = 1 ℂ fld
93 43 92 ringidval ⊢ 1 = 0 mulGrp ℂ fld
94 91 93 mhm0 ⊢ X ∈ mulGrp Z MndHom mulGrp ℂ fld → X ⁡ 1 Z = 1
95 89 94 syl ⊢ φ → X ⁡ 1 Z = 1
96 85 87 95 3eqtr3d ⊢ φ → X ⁡ A U = 1
97 96 fveq2d ⊢ φ → X ⁡ A U = 1
98 abs1 ⊢ 1 = 1
99 97 98 eqtrdi ⊢ φ → X ⁡ A U = 1
100 36 37 99 3eqtr2d ⊢ φ → X ⁡ A U = 1
101 100 oveq1d ⊢ φ → X ⁡ A U 1 U = 1 1 U
102 30 32 101 3eqtr3d ⊢ φ → X ⁡ A 1 = 1 1 U
103 34 cxp1d ⊢ φ → X ⁡ A 1 = X ⁡ A
104 29 1cxpd ⊢ φ → 1 1 U = 1
105 102 103 104 3eqtr3d ⊢ φ → X ⁡ A = 1