Metamath Proof Explorer


Theorem dchrinv

Description: The inverse of a Dirichlet character is the conjugate (which is also the multiplicative inverse, because the values of X are unimodular). (Contributed by Mario Carneiro, 28-Apr-2016)

Ref Expression
Hypotheses dchrabs.g ⊢ G = DChr ⁡ N
dchrabs.d ⊢ D = Base G
dchrabs.x ⊢ φ → X ∈ D
dchrinv.i ⊢ I = inv g ⁡ G
Assertion dchrinv ⊢ φ → I ⁡ X = * ∘ X

Proof

Step Hyp Ref Expression
1 dchrabs.g ⊢ G = DChr ⁡ N
2 dchrabs.d ⊢ D = Base G
3 dchrabs.x ⊢ φ → X ∈ D
4 dchrinv.i ⊢ I = inv g ⁡ G
5 eqid ⊢ ℤ/Nℤ = ℤ/Nℤ
6 eqid ⊢ + G = + G
7 cjf ⊢ * : ℂ ⟶ ℂ
8 eqid ⊢ Base ℤ/Nℤ = Base ℤ/Nℤ
9 1 5 2 8 3 dchrf ⊢ φ → X : Base ℤ/Nℤ ⟶ ℂ
10 fco ⊢ * : ℂ ⟶ ℂ ∧ X : Base ℤ/Nℤ ⟶ ℂ → * ∘ X : Base ℤ/Nℤ ⟶ ℂ
11 7 9 10 sylancr ⊢ φ → * ∘ X : Base ℤ/Nℤ ⟶ ℂ
12 eqid ⊢ Unit ⁡ ℤ/Nℤ = Unit ⁡ ℤ/Nℤ
13 1 2 dchrrcl ⊢ X ∈ D → N ∈ ℕ
14 3 13 syl ⊢ φ → N ∈ ℕ
15 1 5 8 12 14 2 dchrelbas3 ⊢ φ → X ∈ D ↔ X : Base ℤ/Nℤ ⟶ ℂ ∧ ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y ∧ X ⁡ 1 ℤ/Nℤ = 1 ∧ ∀ x ∈ Base ℤ/Nℤ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
16 3 15 mpbid ⊢ φ → X : Base ℤ/Nℤ ⟶ ℂ ∧ ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y ∧ X ⁡ 1 ℤ/Nℤ = 1 ∧ ∀ x ∈ Base ℤ/Nℤ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
17 16 simprd ⊢ φ → ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y ∧ X ⁡ 1 ℤ/Nℤ = 1 ∧ ∀ x ∈ Base ℤ/Nℤ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
18 17 simp1d ⊢ φ → ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y
19 18 r19.21bi ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → ∀ y ∈ Unit ⁡ ℤ/Nℤ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y
20 19 r19.21bi ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y
21 20 anasss ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⁢ X ⁡ y
22 21 fveq2d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⋅ ℤ/Nℤ y ‾ = X ⁡ x ⁢ X ⁡ y ‾
23 9 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X : Base ℤ/Nℤ ⟶ ℂ
24 8 12 unitss ⊢ Unit ⁡ ℤ/Nℤ ⊆ Base ℤ/Nℤ
25 simprl ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → x ∈ Unit ⁡ ℤ/Nℤ
26 24 25 sselid ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → x ∈ Base ℤ/Nℤ
27 23 26 ffvelcdmd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ∈ ℂ
28 simprr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → y ∈ Unit ⁡ ℤ/Nℤ
29 24 28 sselid ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → y ∈ Base ℤ/Nℤ
30 23 29 ffvelcdmd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ y ∈ ℂ
31 27 30 cjmuld ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⁢ X ⁡ y ‾ = X ⁡ x ‾ ⁢ X ⁡ y ‾
32 22 31 eqtrd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⋅ ℤ/Nℤ y ‾ = X ⁡ x ‾ ⁢ X ⁡ y ‾
33 14 nnnn0d ⊢ φ → N ∈ ℕ 0
34 5 zncrng ⊢ N ∈ ℕ 0 → ℤ/Nℤ ∈ CRing
35 crngring ⊢ ℤ/Nℤ ∈ CRing → ℤ/Nℤ ∈ Ring
36 33 34 35 3syl ⊢ φ → ℤ/Nℤ ∈ Ring
37 36 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → ℤ/Nℤ ∈ Ring
38 eqid ⊢ ⋅ ℤ/Nℤ = ⋅ ℤ/Nℤ
39 8 38 ringcl ⊢ ℤ/Nℤ ∈ Ring ∧ x ∈ Base ℤ/Nℤ ∧ y ∈ Base ℤ/Nℤ → x ⋅ ℤ/Nℤ y ∈ Base ℤ/Nℤ
40 37 26 29 39 syl3anc ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → x ⋅ ℤ/Nℤ y ∈ Base ℤ/Nℤ
41 fvco3 ⊢ X : Base ℤ/Nℤ ⟶ ℂ ∧ x ⋅ ℤ/Nℤ y ∈ Base ℤ/Nℤ → * ∘ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⋅ ℤ/Nℤ y ‾
42 23 40 41 syl2anc ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → * ∘ X ⁡ x ⋅ ℤ/Nℤ y = X ⁡ x ⋅ ℤ/Nℤ y ‾
43 fvco3 ⊢ X : Base ℤ/Nℤ ⟶ ℂ ∧ x ∈ Base ℤ/Nℤ → * ∘ X ⁡ x = X ⁡ x ‾
44 23 26 43 syl2anc ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → * ∘ X ⁡ x = X ⁡ x ‾
45 fvco3 ⊢ X : Base ℤ/Nℤ ⟶ ℂ ∧ y ∈ Base ℤ/Nℤ → * ∘ X ⁡ y = X ⁡ y ‾
46 23 29 45 syl2anc ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → * ∘ X ⁡ y = X ⁡ y ‾
47 44 46 oveq12d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → * ∘ X ⁡ x ⁢ * ∘ X ⁡ y = X ⁡ x ‾ ⁢ X ⁡ y ‾
48 32 42 47 3eqtr4d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ ∧ y ∈ Unit ⁡ ℤ/Nℤ → * ∘ X ⁡ x ⋅ ℤ/Nℤ y = * ∘ X ⁡ x ⁢ * ∘ X ⁡ y
49 48 ralrimivva ⊢ φ → ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ * ∘ X ⁡ x ⋅ ℤ/Nℤ y = * ∘ X ⁡ x ⁢ * ∘ X ⁡ y
50 eqid ⊢ 1 ℤ/Nℤ = 1 ℤ/Nℤ
51 8 50 ringidcl ⊢ ℤ/Nℤ ∈ Ring → 1 ℤ/Nℤ ∈ Base ℤ/Nℤ
52 36 51 syl ⊢ φ → 1 ℤ/Nℤ ∈ Base ℤ/Nℤ
53 fvco3 ⊢ X : Base ℤ/Nℤ ⟶ ℂ ∧ 1 ℤ/Nℤ ∈ Base ℤ/Nℤ → * ∘ X ⁡ 1 ℤ/Nℤ = X ⁡ 1 ℤ/Nℤ ‾
54 9 52 53 syl2anc ⊢ φ → * ∘ X ⁡ 1 ℤ/Nℤ = X ⁡ 1 ℤ/Nℤ ‾
55 17 simp2d ⊢ φ → X ⁡ 1 ℤ/Nℤ = 1
56 55 fveq2d ⊢ φ → X ⁡ 1 ℤ/Nℤ ‾ = 1 ‾
57 1re ⊢ 1 ∈ ℝ
58 cjre ⊢ 1 ∈ ℝ → 1 ‾ = 1
59 57 58 ax-mp ⊢ 1 ‾ = 1
60 56 59 eqtrdi ⊢ φ → X ⁡ 1 ℤ/Nℤ ‾ = 1
61 54 60 eqtrd ⊢ φ → * ∘ X ⁡ 1 ℤ/Nℤ = 1
62 17 simp3d ⊢ φ → ∀ x ∈ Base ℤ/Nℤ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
63 9 43 sylan ⊢ φ ∧ x ∈ Base ℤ/Nℤ → * ∘ X ⁡ x = X ⁡ x ‾
64 cj0 ⊢ 0 ‾ = 0
65 64 eqcomi ⊢ 0 = 0 ‾
66 65 a1i ⊢ φ ∧ x ∈ Base ℤ/Nℤ → 0 = 0 ‾
67 63 66 eqeq12d ⊢ φ ∧ x ∈ Base ℤ/Nℤ → * ∘ X ⁡ x = 0 ↔ X ⁡ x ‾ = 0 ‾
68 9 ffvelcdmda ⊢ φ ∧ x ∈ Base ℤ/Nℤ → X ⁡ x ∈ ℂ
69 0cn ⊢ 0 ∈ ℂ
70 cj11 ⊢ X ⁡ x ∈ ℂ ∧ 0 ∈ ℂ → X ⁡ x ‾ = 0 ‾ ↔ X ⁡ x = 0
71 68 69 70 sylancl ⊢ φ ∧ x ∈ Base ℤ/Nℤ → X ⁡ x ‾ = 0 ‾ ↔ X ⁡ x = 0
72 67 71 bitrd ⊢ φ ∧ x ∈ Base ℤ/Nℤ → * ∘ X ⁡ x = 0 ↔ X ⁡ x = 0
73 72 necon3bid ⊢ φ ∧ x ∈ Base ℤ/Nℤ → * ∘ X ⁡ x ≠ 0 ↔ X ⁡ x ≠ 0
74 73 imbi1d ⊢ φ ∧ x ∈ Base ℤ/Nℤ → * ∘ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ ↔ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
75 74 ralbidva ⊢ φ → ∀ x ∈ Base ℤ/Nℤ * ∘ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ ↔ ∀ x ∈ Base ℤ/Nℤ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
76 62 75 mpbird ⊢ φ → ∀ x ∈ Base ℤ/Nℤ * ∘ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
77 49 61 76 3jca ⊢ φ → ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ * ∘ X ⁡ x ⋅ ℤ/Nℤ y = * ∘ X ⁡ x ⁢ * ∘ X ⁡ y ∧ * ∘ X ⁡ 1 ℤ/Nℤ = 1 ∧ ∀ x ∈ Base ℤ/Nℤ * ∘ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
78 1 5 8 12 14 2 dchrelbas3 ⊢ φ → * ∘ X ∈ D ↔ * ∘ X : Base ℤ/Nℤ ⟶ ℂ ∧ ∀ x ∈ Unit ⁡ ℤ/Nℤ ∀ y ∈ Unit ⁡ ℤ/Nℤ * ∘ X ⁡ x ⋅ ℤ/Nℤ y = * ∘ X ⁡ x ⁢ * ∘ X ⁡ y ∧ * ∘ X ⁡ 1 ℤ/Nℤ = 1 ∧ ∀ x ∈ Base ℤ/Nℤ * ∘ X ⁡ x ≠ 0 → x ∈ Unit ⁡ ℤ/Nℤ
79 11 77 78 mpbir2and ⊢ φ → * ∘ X ∈ D
80 1 5 2 6 3 79 dchrmul ⊢ φ → X + G * ∘ X = X × f * ∘ X
81 80 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X + G * ∘ X = X × f * ∘ X
82 81 fveq1d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X + G * ∘ X ⁡ x = X × f * ∘ X ⁡ x
83 24 sseli ⊢ x ∈ Unit ⁡ ℤ/Nℤ → x ∈ Base ℤ/Nℤ
84 83 63 sylan2 ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → * ∘ X ⁡ x = X ⁡ x ‾
85 84 oveq2d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⁢ * ∘ X ⁡ x = X ⁡ x ⁢ X ⁡ x ‾
86 83 68 sylan2 ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ∈ ℂ
87 86 absvalsqd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x 2 = X ⁡ x ⁢ X ⁡ x ‾
88 3 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ∈ D
89 simpr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → x ∈ Unit ⁡ ℤ/Nℤ
90 1 2 88 5 12 89 dchrabs ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x = 1
91 90 oveq1d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x 2 = 1 2
92 sq1 ⊢ 1 2 = 1
93 91 92 eqtrdi ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x 2 = 1
94 85 87 93 3eqtr2d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X ⁡ x ⁢ * ∘ X ⁡ x = 1
95 9 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X : Base ℤ/Nℤ ⟶ ℂ
96 95 ffnd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X Fn Base ℤ/Nℤ
97 11 ffnd ⊢ φ → * ∘ X Fn Base ℤ/Nℤ
98 97 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → * ∘ X Fn Base ℤ/Nℤ
99 fvexd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → Base ℤ/Nℤ ∈ V
100 83 adantl ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → x ∈ Base ℤ/Nℤ
101 fnfvof ⊢ X Fn Base ℤ/Nℤ ∧ * ∘ X Fn Base ℤ/Nℤ ∧ Base ℤ/Nℤ ∈ V ∧ x ∈ Base ℤ/Nℤ → X × f * ∘ X ⁡ x = X ⁡ x ⁢ * ∘ X ⁡ x
102 96 98 99 100 101 syl22anc ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X × f * ∘ X ⁡ x = X ⁡ x ⁢ * ∘ X ⁡ x
103 eqid ⊢ 0 G = 0 G
104 14 adantr ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → N ∈ ℕ
105 1 5 103 12 104 89 dchr1 ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → 0 G ⁡ x = 1
106 94 102 105 3eqtr4d ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X × f * ∘ X ⁡ x = 0 G ⁡ x
107 82 106 eqtrd ⊢ φ ∧ x ∈ Unit ⁡ ℤ/Nℤ → X + G * ∘ X ⁡ x = 0 G ⁡ x
108 107 ralrimiva ⊢ φ → ∀ x ∈ Unit ⁡ ℤ/Nℤ X + G * ∘ X ⁡ x = 0 G ⁡ x
109 1 5 2 6 3 79 dchrmulcl ⊢ φ → X + G * ∘ X ∈ D
110 1 dchrabl ⊢ N ∈ ℕ → G ∈ Abel
111 ablgrp ⊢ G ∈ Abel → G ∈ Grp
112 14 110 111 3syl ⊢ φ → G ∈ Grp
113 2 103 grpidcl ⊢ G ∈ Grp → 0 G ∈ D
114 112 113 syl ⊢ φ → 0 G ∈ D
115 1 5 2 12 109 114 dchreq ⊢ φ → X + G * ∘ X = 0 G ↔ ∀ x ∈ Unit ⁡ ℤ/Nℤ X + G * ∘ X ⁡ x = 0 G ⁡ x
116 108 115 mpbird ⊢ φ → X + G * ∘ X = 0 G
117 2 6 103 4 grpinvid1 ⊢ G ∈ Grp ∧ X ∈ D ∧ * ∘ X ∈ D → I ⁡ X = * ∘ X ↔ X + G * ∘ X = 0 G
118 112 3 79 117 syl3anc ⊢ φ → I ⁡ X = * ∘ X ↔ X + G * ∘ X = 0 G
119 116 118 mpbird ⊢ φ → I ⁡ X = * ∘ X