Metamath Proof Explorer


Theorem dchrghm

Description: A Dirichlet character restricted to the unit group of Z/nZ is a group homomorphism into the multiplicative group of nonzero complex numbers. (Contributed by Mario Carneiro, 21-Apr-2016)

Ref Expression
Hypotheses dchrghm.g ⊢ G = DChr ⁡ N
dchrghm.z ⊢ Z = ℤ/Nℤ
dchrghm.b ⊢ D = Base G
dchrghm.u ⊢ U = Unit ⁡ Z
dchrghm.h ⊢ H = mulGrp Z ↾ 𝑠 U
dchrghm.m ⊢ M = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
dchrghm.x ⊢ φ → X ∈ D
Assertion dchrghm ⊢ φ → X ↾ U ∈ H GrpHom M

Proof

Step Hyp Ref Expression
1 dchrghm.g ⊢ G = DChr ⁡ N
2 dchrghm.z ⊢ Z = ℤ/Nℤ
3 dchrghm.b ⊢ D = Base G
4 dchrghm.u ⊢ U = Unit ⁡ Z
5 dchrghm.h ⊢ H = mulGrp Z ↾ 𝑠 U
6 dchrghm.m ⊢ M = mulGrp ℂ fld ↾ 𝑠 ℂ ∖ 0
7 dchrghm.x ⊢ φ → X ∈ D
8 1 2 3 dchrmhm ⊢ D ⊆ mulGrp Z MndHom mulGrp ℂ fld
9 8 7 sselid ⊢ φ → X ∈ mulGrp Z MndHom mulGrp ℂ fld
10 1 3 dchrrcl ⊢ X ∈ D → N ∈ ℕ
11 7 10 syl ⊢ φ → N ∈ ℕ
12 11 nnnn0d ⊢ φ → N ∈ ℕ 0
13 2 zncrng ⊢ N ∈ ℕ 0 → Z ∈ CRing
14 12 13 syl ⊢ φ → Z ∈ CRing
15 crngring ⊢ Z ∈ CRing → Z ∈ Ring
16 14 15 syl ⊢ φ → Z ∈ Ring
17 eqid ⊢ mulGrp Z = mulGrp Z
18 4 17 unitsubm ⊢ Z ∈ Ring → U ∈ SubMnd ⁡ mulGrp Z
19 16 18 syl ⊢ φ → U ∈ SubMnd ⁡ mulGrp Z
20 5 resmhm ⊢ X ∈ mulGrp Z MndHom mulGrp ℂ fld ∧ U ∈ SubMnd ⁡ mulGrp Z → X ↾ U ∈ H MndHom mulGrp ℂ fld
21 9 19 20 syl2anc ⊢ φ → X ↾ U ∈ H MndHom mulGrp ℂ fld
22 cnring ⊢ ℂ fld ∈ Ring
23 cnfldbas ⊢ ℂ = Base ℂ fld
24 cnfld0 ⊢ 0 = 0 ℂ fld
25 cndrng ⊢ ℂ fld ∈ DivRing
26 23 24 25 drngui ⊢ ℂ ∖ 0 = Unit ⁡ ℂ fld
27 eqid ⊢ mulGrp ℂ fld = mulGrp ℂ fld
28 26 27 unitsubm ⊢ ℂ fld ∈ Ring → ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
29 22 28 ax-mp ⊢ ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld
30 df-ima ⊢ X U = ran ⁡ X ↾ U
31 eqid ⊢ Base Z = Base Z
32 1 2 3 31 7 dchrf ⊢ φ → X : Base Z ⟶ ℂ
33 31 4 unitss ⊢ U ⊆ Base Z
34 33 sseli ⊢ x ∈ U → x ∈ Base Z
35 ffvelcdm ⊢ X : Base Z ⟶ ℂ ∧ x ∈ Base Z → X ⁡ x ∈ ℂ
36 32 34 35 syl2an ⊢ φ ∧ x ∈ U → X ⁡ x ∈ ℂ
37 simpr ⊢ φ ∧ x ∈ U → x ∈ U
38 7 adantr ⊢ φ ∧ x ∈ U → X ∈ D
39 34 adantl ⊢ φ ∧ x ∈ U → x ∈ Base Z
40 1 2 3 31 4 38 39 dchrn0 ⊢ φ ∧ x ∈ U → X ⁡ x ≠ 0 ↔ x ∈ U
41 37 40 mpbird ⊢ φ ∧ x ∈ U → X ⁡ x ≠ 0
42 eldifsn ⊢ X ⁡ x ∈ ℂ ∖ 0 ↔ X ⁡ x ∈ ℂ ∧ X ⁡ x ≠ 0
43 36 41 42 sylanbrc ⊢ φ ∧ x ∈ U → X ⁡ x ∈ ℂ ∖ 0
44 43 ralrimiva ⊢ φ → ∀ x ∈ U X ⁡ x ∈ ℂ ∖ 0
45 32 ffund ⊢ φ → Fun ⁡ X
46 32 fdmd ⊢ φ → dom ⁡ X = Base Z
47 33 46 sseqtrrid ⊢ φ → U ⊆ dom ⁡ X
48 funimass4 ⊢ Fun ⁡ X ∧ U ⊆ dom ⁡ X → X U ⊆ ℂ ∖ 0 ↔ ∀ x ∈ U X ⁡ x ∈ ℂ ∖ 0
49 45 47 48 syl2anc ⊢ φ → X U ⊆ ℂ ∖ 0 ↔ ∀ x ∈ U X ⁡ x ∈ ℂ ∖ 0
50 44 49 mpbird ⊢ φ → X U ⊆ ℂ ∖ 0
51 30 50 eqsstrrid ⊢ φ → ran ⁡ X ↾ U ⊆ ℂ ∖ 0
52 6 resmhm2b ⊢ ℂ ∖ 0 ∈ SubMnd ⁡ mulGrp ℂ fld ∧ ran ⁡ X ↾ U ⊆ ℂ ∖ 0 → X ↾ U ∈ H MndHom mulGrp ℂ fld ↔ X ↾ U ∈ H MndHom M
53 29 51 52 sylancr ⊢ φ → X ↾ U ∈ H MndHom mulGrp ℂ fld ↔ X ↾ U ∈ H MndHom M
54 21 53 mpbid ⊢ φ → X ↾ U ∈ H MndHom M
55 4 5 unitgrp ⊢ Z ∈ Ring → H ∈ Grp
56 16 55 syl ⊢ φ → H ∈ Grp
57 6 cnmgpabl ⊢ M ∈ Abel
58 ablgrp ⊢ M ∈ Abel → M ∈ Grp
59 57 58 ax-mp ⊢ M ∈ Grp
60 ghmmhmb ⊢ H ∈ Grp ∧ M ∈ Grp → H GrpHom M = H MndHom M
61 56 59 60 sylancl ⊢ φ → H GrpHom M = H MndHom M
62 54 61 eleqtrrd ⊢ φ → X ↾ U ∈ H GrpHom M