Metamath Proof Explorer


Theorem dchrsum2

Description: An orthogonality relation for Dirichlet characters: the sum of all the values of a Dirichlet character X is 0 if X is non-principal and phi ( n ) otherwise. Part of Theorem 6.5.1 of Shapiro p. 230. (Contributed by Mario Carneiro, 28-Apr-2016)

Ref Expression
Hypotheses dchrsum.g ⊢ G = DChr ⁡ N
dchrsum.z ⊢ Z = ℤ/Nℤ
dchrsum.d ⊢ D = Base G
dchrsum.1 ⊢ 1 ˙ = 0 G
dchrsum.x ⊢ φ → X ∈ D
dchrsum2.u ⊢ U = Unit ⁡ Z
Assertion dchrsum2 ⊢ φ → ∑ a ∈ U X ⁡ a = if X = 1 ˙ ϕ ⁡ N 0

Proof

Step Hyp Ref Expression
1 dchrsum.g ⊢ G = DChr ⁡ N
2 dchrsum.z ⊢ Z = ℤ/Nℤ
3 dchrsum.d ⊢ D = Base G
4 dchrsum.1 ⊢ 1 ˙ = 0 G
5 dchrsum.x ⊢ φ → X ∈ D
6 dchrsum2.u ⊢ U = Unit ⁡ Z
7 eqeq2 ⊢ ϕ ⁡ N = if X = 1 ˙ ϕ ⁡ N 0 → ∑ a ∈ U X ⁡ a = ϕ ⁡ N ↔ ∑ a ∈ U X ⁡ a = if X = 1 ˙ ϕ ⁡ N 0
8 eqeq2 ⊢ 0 = if X = 1 ˙ ϕ ⁡ N 0 → ∑ a ∈ U X ⁡ a = 0 ↔ ∑ a ∈ U X ⁡ a = if X = 1 ˙ ϕ ⁡ N 0
9 fveq1 ⊢ X = 1 ˙ → X ⁡ a = 1 ˙ ⁡ a
10 1 3 dchrrcl ⊢ X ∈ D → N ∈ ℕ
11 5 10 syl ⊢ φ → N ∈ ℕ
12 11 adantr ⊢ φ ∧ a ∈ U → N ∈ ℕ
13 simpr ⊢ φ ∧ a ∈ U → a ∈ U
14 1 2 4 6 12 13 dchr1 ⊢ φ ∧ a ∈ U → 1 ˙ ⁡ a = 1
15 9 14 sylan9eqr ⊢ φ ∧ a ∈ U ∧ X = 1 ˙ → X ⁡ a = 1
16 15 an32s ⊢ φ ∧ X = 1 ˙ ∧ a ∈ U → X ⁡ a = 1
17 16 sumeq2dv ⊢ φ ∧ X = 1 ˙ → ∑ a ∈ U X ⁡ a = ∑ a ∈ U 1
18 2 6 znunithash ⊢ N ∈ ℕ → U = ϕ ⁡ N
19 11 18 syl ⊢ φ → U = ϕ ⁡ N
20 11 phicld ⊢ φ → ϕ ⁡ N ∈ ℕ
21 20 nnnn0d ⊢ φ → ϕ ⁡ N ∈ ℕ 0
22 19 21 eqeltrd ⊢ φ → U ∈ ℕ 0
23 6 fvexi ⊢ U ∈ V
24 hashclb ⊢ U ∈ V → U ∈ Fin ↔ U ∈ ℕ 0
25 23 24 ax-mp ⊢ U ∈ Fin ↔ U ∈ ℕ 0
26 22 25 sylibr ⊢ φ → U ∈ Fin
27 ax-1cn ⊢ 1 ∈ ℂ
28 fsumconst ⊢ U ∈ Fin ∧ 1 ∈ ℂ → ∑ a ∈ U 1 = U ⋅ 1
29 26 27 28 sylancl ⊢ φ → ∑ a ∈ U 1 = U ⋅ 1
30 19 oveq1d ⊢ φ → U ⋅ 1 = ϕ ⁡ N ⋅ 1
31 20 nncnd ⊢ φ → ϕ ⁡ N ∈ ℂ
32 31 mulridd ⊢ φ → ϕ ⁡ N ⋅ 1 = ϕ ⁡ N
33 29 30 32 3eqtrd ⊢ φ → ∑ a ∈ U 1 = ϕ ⁡ N
34 33 adantr ⊢ φ ∧ X = 1 ˙ → ∑ a ∈ U 1 = ϕ ⁡ N
35 17 34 eqtrd ⊢ φ ∧ X = 1 ˙ → ∑ a ∈ U X ⁡ a = ϕ ⁡ N
36 1 dchrabl ⊢ N ∈ ℕ → G ∈ Abel
37 ablgrp ⊢ G ∈ Abel → G ∈ Grp
38 3 4 grpidcl ⊢ G ∈ Grp → 1 ˙ ∈ D
39 11 36 37 38 4syl ⊢ φ → 1 ˙ ∈ D
40 1 2 3 6 5 39 dchreq ⊢ φ → X = 1 ˙ ↔ ∀ k ∈ U X ⁡ k = 1 ˙ ⁡ k
41 40 notbid ⊢ φ → ¬ X = 1 ˙ ↔ ¬ ∀ k ∈ U X ⁡ k = 1 ˙ ⁡ k
42 rexnal ⊢ ∃ k ∈ U ¬ X ⁡ k = 1 ˙ ⁡ k ↔ ¬ ∀ k ∈ U X ⁡ k = 1 ˙ ⁡ k
43 41 42 bitr4di ⊢ φ → ¬ X = 1 ˙ ↔ ∃ k ∈ U ¬ X ⁡ k = 1 ˙ ⁡ k
44 df-ne ⊢ X ⁡ k ≠ 1 ˙ ⁡ k ↔ ¬ X ⁡ k = 1 ˙ ⁡ k
45 11 adantr ⊢ φ ∧ k ∈ U → N ∈ ℕ
46 simpr ⊢ φ ∧ k ∈ U → k ∈ U
47 1 2 4 6 45 46 dchr1 ⊢ φ ∧ k ∈ U → 1 ˙ ⁡ k = 1
48 47 neeq2d ⊢ φ ∧ k ∈ U → X ⁡ k ≠ 1 ˙ ⁡ k ↔ X ⁡ k ≠ 1
49 26 adantr ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → U ∈ Fin
50 eqid ⊢ Base Z = Base Z
51 1 2 3 50 5 dchrf ⊢ φ → X : Base Z ⟶ ℂ
52 50 6 unitss ⊢ U ⊆ Base Z
53 52 sseli ⊢ a ∈ U → a ∈ Base Z
54 ffvelcdm ⊢ X : Base Z ⟶ ℂ ∧ a ∈ Base Z → X ⁡ a ∈ ℂ
55 51 53 54 syl2an ⊢ φ ∧ a ∈ U → X ⁡ a ∈ ℂ
56 55 adantlr ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 ∧ a ∈ U → X ⁡ a ∈ ℂ
57 49 56 fsumcl ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → ∑ a ∈ U X ⁡ a ∈ ℂ
58 0cnd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → 0 ∈ ℂ
59 51 adantr ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X : Base Z ⟶ ℂ
60 simprl ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → k ∈ U
61 52 60 sselid ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → k ∈ Base Z
62 59 61 ffvelcdmd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k ∈ ℂ
63 subcl ⊢ X ⁡ k ∈ ℂ ∧ 1 ∈ ℂ → X ⁡ k − 1 ∈ ℂ
64 62 27 63 sylancl ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 ∈ ℂ
65 simprr ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k ≠ 1
66 subeq0 ⊢ X ⁡ k ∈ ℂ ∧ 1 ∈ ℂ → X ⁡ k − 1 = 0 ↔ X ⁡ k = 1
67 62 27 66 sylancl ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 = 0 ↔ X ⁡ k = 1
68 67 necon3bid ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 ≠ 0 ↔ X ⁡ k ≠ 1
69 65 68 mpbird ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 ≠ 0
70 oveq2 ⊢ x = a → k ⋅ Z x = k ⋅ Z a
71 70 fveq2d ⊢ x = a → X ⁡ k ⋅ Z x = X ⁡ k ⋅ Z a
72 71 cbvsumv ⊢ ∑ x ∈ U X ⁡ k ⋅ Z x = ∑ a ∈ U X ⁡ k ⋅ Z a
73 1 2 3 dchrmhm ⊢ D ⊆ mulGrp Z MndHom mulGrp ℂ fld
74 73 5 sselid ⊢ φ → X ∈ mulGrp Z MndHom mulGrp ℂ fld
75 74 ad2antrr ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 ∧ a ∈ U → X ∈ mulGrp Z MndHom mulGrp ℂ fld
76 61 adantr ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 ∧ a ∈ U → k ∈ Base Z
77 53 adantl ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 ∧ a ∈ U → a ∈ Base Z
78 eqid ⊢ mulGrp Z = mulGrp Z
79 78 50 mgpbas ⊢ Base Z = Base mulGrp Z
80 eqid ⊢ ⋅ Z = ⋅ Z
81 78 80 mgpplusg ⊢ ⋅ Z = + mulGrp Z
82 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
83 cnfldmul ⊢ × = ⋅ ℂ fld
84 82 83 mgpplusg ⊢ × = + mulGrp ℂ fld
85 79 81 84 mhmlin ⊢ X ∈ mulGrp Z MndHom mulGrp ℂ fld ∧ k ∈ Base Z ∧ a ∈ Base Z → X ⁡ k ⋅ Z a = X ⁡ k ⁢ X ⁡ a
86 75 76 77 85 syl3anc ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 ∧ a ∈ U → X ⁡ k ⋅ Z a = X ⁡ k ⁢ X ⁡ a
87 86 sumeq2dv ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → ∑ a ∈ U X ⁡ k ⋅ Z a = ∑ a ∈ U X ⁡ k ⁢ X ⁡ a
88 72 87 eqtrid ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → ∑ x ∈ U X ⁡ k ⋅ Z x = ∑ a ∈ U X ⁡ k ⁢ X ⁡ a
89 fveq2 ⊢ a = k ⋅ Z x → X ⁡ a = X ⁡ k ⋅ Z x
90 11 nnnn0d ⊢ φ → N ∈ ℕ 0
91 2 zncrng ⊢ N ∈ ℕ 0 → Z ∈ CRing
92 crngring ⊢ Z ∈ CRing → Z ∈ Ring
93 eqid ⊢ mulGrp Z ↾ 𝑠 U = mulGrp Z ↾ 𝑠 U
94 6 93 unitgrp ⊢ Z ∈ Ring → mulGrp Z ↾ 𝑠 U ∈ Grp
95 90 91 92 94 4syl ⊢ φ → mulGrp Z ↾ 𝑠 U ∈ Grp
96 eqid ⊢ b ∈ U ⟼ c ∈ U ⟼ b ⋅ Z c = b ∈ U ⟼ c ∈ U ⟼ b ⋅ Z c
97 6 93 unitgrpbas ⊢ U = Base mulGrp Z ↾ 𝑠 U
98 93 81 ressplusg ⊢ U ∈ V → ⋅ Z = + mulGrp Z ↾ 𝑠 U
99 23 98 ax-mp ⊢ ⋅ Z = + mulGrp Z ↾ 𝑠 U
100 96 97 99 grplactf1o ⊢ mulGrp Z ↾ 𝑠 U ∈ Grp ∧ k ∈ U → b ∈ U ⟼ c ∈ U ⟼ b ⋅ Z c ⁡ k : U ⟶ 1-1 onto U
101 95 60 100 syl2an2r ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → b ∈ U ⟼ c ∈ U ⟼ b ⋅ Z c ⁡ k : U ⟶ 1-1 onto U
102 96 97 grplactval ⊢ k ∈ U ∧ x ∈ U → b ∈ U ⟼ c ∈ U ⟼ b ⋅ Z c ⁡ k ⁡ x = k ⋅ Z x
103 60 102 sylan ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 ∧ x ∈ U → b ∈ U ⟼ c ∈ U ⟼ b ⋅ Z c ⁡ k ⁡ x = k ⋅ Z x
104 89 49 101 103 56 fsumf1o ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → ∑ a ∈ U X ⁡ a = ∑ x ∈ U X ⁡ k ⋅ Z x
105 49 62 56 fsummulc2 ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k ⁢ ∑ a ∈ U X ⁡ a = ∑ a ∈ U X ⁡ k ⁢ X ⁡ a
106 88 104 105 3eqtr4rd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k ⁢ ∑ a ∈ U X ⁡ a = ∑ a ∈ U X ⁡ a
107 57 mullidd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → 1 ⁢ ∑ a ∈ U X ⁡ a = ∑ a ∈ U X ⁡ a
108 106 107 oveq12d ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k ⁢ ∑ a ∈ U X ⁡ a − 1 ⁢ ∑ a ∈ U X ⁡ a = ∑ a ∈ U X ⁡ a − ∑ a ∈ U X ⁡ a
109 57 subidd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → ∑ a ∈ U X ⁡ a − ∑ a ∈ U X ⁡ a = 0
110 108 109 eqtrd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k ⁢ ∑ a ∈ U X ⁡ a − 1 ⁢ ∑ a ∈ U X ⁡ a = 0
111 1cnd ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → 1 ∈ ℂ
112 62 111 57 subdird ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 ⁢ ∑ a ∈ U X ⁡ a = X ⁡ k ⁢ ∑ a ∈ U X ⁡ a − 1 ⁢ ∑ a ∈ U X ⁡ a
113 64 mul01d ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 ⋅ 0 = 0
114 110 112 113 3eqtr4d ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → X ⁡ k − 1 ⁢ ∑ a ∈ U X ⁡ a = X ⁡ k − 1 ⋅ 0
115 57 58 64 69 114 mulcanad ⊢ φ ∧ k ∈ U ∧ X ⁡ k ≠ 1 → ∑ a ∈ U X ⁡ a = 0
116 115 expr ⊢ φ ∧ k ∈ U → X ⁡ k ≠ 1 → ∑ a ∈ U X ⁡ a = 0
117 48 116 sylbid ⊢ φ ∧ k ∈ U → X ⁡ k ≠ 1 ˙ ⁡ k → ∑ a ∈ U X ⁡ a = 0
118 44 117 biimtrrid ⊢ φ ∧ k ∈ U → ¬ X ⁡ k = 1 ˙ ⁡ k → ∑ a ∈ U X ⁡ a = 0
119 118 rexlimdva ⊢ φ → ∃ k ∈ U ¬ X ⁡ k = 1 ˙ ⁡ k → ∑ a ∈ U X ⁡ a = 0
120 43 119 sylbid ⊢ φ → ¬ X = 1 ˙ → ∑ a ∈ U X ⁡ a = 0
121 120 imp ⊢ φ ∧ ¬ X = 1 ˙ → ∑ a ∈ U X ⁡ a = 0
122 7 8 35 121 ifbothda ⊢ φ → ∑ a ∈ U X ⁡ a = if X = 1 ˙ ϕ ⁡ N 0