MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  dchrinvcl Structured version   Visualization version   GIF version

Theorem dchrinvcl 27184
Description: Closure of the group inverse operation on Dirichlet characters. (Contributed by Mario Carneiro, 19-Apr-2016.)
Hypotheses
Ref Expression
dchrmhm.g 𝐺 = (DChr‘𝑁)
dchrmhm.z 𝑍 = (ℤ/nℤ‘𝑁)
dchrmhm.b 𝐷 = (Base‘𝐺)
dchrn0.b 𝐵 = (Base‘𝑍)
dchrn0.u 𝑈 = (Unit‘𝑍)
dchr1cl.o 1 = (𝑘𝐵 ↦ if(𝑘𝑈, 1, 0))
dchrmullid.t · = (+g𝐺)
dchrmullid.x (𝜑𝑋𝐷)
dchrinvcl.n 𝐾 = (𝑘𝐵 ↦ if(𝑘𝑈, (1 / (𝑋𝑘)), 0))
Assertion
Ref Expression
dchrinvcl (𝜑 → (𝐾𝐷 ∧ (𝐾 · 𝑋) = 1 ))
Distinct variable groups:   𝐵,𝑘   𝑈,𝑘   𝑘,𝑁   𝜑,𝑘   𝑘,𝑋   𝑘,𝑍
Allowed substitution hints:   𝐷(𝑘)   · (𝑘)   1 (𝑘)   𝐺(𝑘)   𝐾(𝑘)

Proof of Theorem dchrinvcl
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dchrinvcl.n . . 3 𝐾 = (𝑘𝐵 ↦ if(𝑘𝑈, (1 / (𝑋𝑘)), 0))
2 dchrmhm.g . . . 4 𝐺 = (DChr‘𝑁)
3 dchrmhm.z . . . 4 𝑍 = (ℤ/nℤ‘𝑁)
4 dchrn0.b . . . 4 𝐵 = (Base‘𝑍)
5 dchrn0.u . . . 4 𝑈 = (Unit‘𝑍)
6 dchrmullid.x . . . . 5 (𝜑𝑋𝐷)
7 dchrmhm.b . . . . . 6 𝐷 = (Base‘𝐺)
82, 7dchrrcl 27171 . . . . 5 (𝑋𝐷𝑁 ∈ ℕ)
96, 8syl 17 . . . 4 (𝜑𝑁 ∈ ℕ)
10 fveq2 6817 . . . . 5 (𝑘 = 𝑥 → (𝑋𝑘) = (𝑋𝑥))
1110oveq2d 7357 . . . 4 (𝑘 = 𝑥 → (1 / (𝑋𝑘)) = (1 / (𝑋𝑥)))
12 fveq2 6817 . . . . 5 (𝑘 = 𝑦 → (𝑋𝑘) = (𝑋𝑦))
1312oveq2d 7357 . . . 4 (𝑘 = 𝑦 → (1 / (𝑋𝑘)) = (1 / (𝑋𝑦)))
14 fveq2 6817 . . . . 5 (𝑘 = (𝑥(.r𝑍)𝑦) → (𝑋𝑘) = (𝑋‘(𝑥(.r𝑍)𝑦)))
1514oveq2d 7357 . . . 4 (𝑘 = (𝑥(.r𝑍)𝑦) → (1 / (𝑋𝑘)) = (1 / (𝑋‘(𝑥(.r𝑍)𝑦))))
16 fveq2 6817 . . . . 5 (𝑘 = (1r𝑍) → (𝑋𝑘) = (𝑋‘(1r𝑍)))
1716oveq2d 7357 . . . 4 (𝑘 = (1r𝑍) → (1 / (𝑋𝑘)) = (1 / (𝑋‘(1r𝑍))))
182, 3, 7, 4, 6dchrf 27173 . . . . . 6 (𝜑𝑋:𝐵⟶ℂ)
194, 5unitss 20287 . . . . . . 7 𝑈𝐵
2019sseli 3928 . . . . . 6 (𝑘𝑈𝑘𝐵)
21 ffvelcdm 7009 . . . . . 6 ((𝑋:𝐵⟶ℂ ∧ 𝑘𝐵) → (𝑋𝑘) ∈ ℂ)
2218, 20, 21syl2an 596 . . . . 5 ((𝜑𝑘𝑈) → (𝑋𝑘) ∈ ℂ)
23 simpr 484 . . . . . 6 ((𝜑𝑘𝑈) → 𝑘𝑈)
246adantr 480 . . . . . . 7 ((𝜑𝑘𝑈) → 𝑋𝐷)
2520adantl 481 . . . . . . 7 ((𝜑𝑘𝑈) → 𝑘𝐵)
262, 3, 7, 4, 5, 24, 25dchrn0 27181 . . . . . 6 ((𝜑𝑘𝑈) → ((𝑋𝑘) ≠ 0 ↔ 𝑘𝑈))
2723, 26mpbird 257 . . . . 5 ((𝜑𝑘𝑈) → (𝑋𝑘) ≠ 0)
2822, 27reccld 11882 . . . 4 ((𝜑𝑘𝑈) → (1 / (𝑋𝑘)) ∈ ℂ)
29 1t1e1 12274 . . . . . . . 8 (1 · 1) = 1
3029eqcomi 2739 . . . . . . 7 1 = (1 · 1)
3130a1i 11 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 1 = (1 · 1))
322, 3, 7dchrmhm 27172 . . . . . . . 8 𝐷 ⊆ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂfld))
336adantr 480 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑋𝐷)
3432, 33sselid 3930 . . . . . . 7 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂfld)))
35 simprl 770 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑥𝑈)
3619, 35sselid 3930 . . . . . . 7 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑥𝐵)
37 simprr 772 . . . . . . . 8 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑦𝑈)
3819, 37sselid 3930 . . . . . . 7 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑦𝐵)
39 eqid 2730 . . . . . . . . 9 (mulGrp‘𝑍) = (mulGrp‘𝑍)
4039, 4mgpbas 20056 . . . . . . . 8 𝐵 = (Base‘(mulGrp‘𝑍))
41 eqid 2730 . . . . . . . . 9 (.r𝑍) = (.r𝑍)
4239, 41mgpplusg 20055 . . . . . . . 8 (.r𝑍) = (+g‘(mulGrp‘𝑍))
43 eqid 2730 . . . . . . . . 9 (mulGrp‘ℂfld) = (mulGrp‘ℂfld)
44 cnfldmul 21292 . . . . . . . . 9 · = (.r‘ℂfld)
4543, 44mgpplusg 20055 . . . . . . . 8 · = (+g‘(mulGrp‘ℂfld))
4640, 42, 45mhmlin 18693 . . . . . . 7 ((𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂfld)) ∧ 𝑥𝐵𝑦𝐵) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦)))
4734, 36, 38, 46syl3anc 1373 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (𝑋‘(𝑥(.r𝑍)𝑦)) = ((𝑋𝑥) · (𝑋𝑦)))
4831, 47oveq12d 7359 . . . . 5 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (1 / (𝑋‘(𝑥(.r𝑍)𝑦))) = ((1 · 1) / ((𝑋𝑥) · (𝑋𝑦))))
49 1cnd 11099 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 1 ∈ ℂ)
5018adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → 𝑋:𝐵⟶ℂ)
5150, 36ffvelcdmd 7013 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (𝑋𝑥) ∈ ℂ)
5250, 38ffvelcdmd 7013 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (𝑋𝑦) ∈ ℂ)
532, 3, 7, 4, 5, 33, 36dchrn0 27181 . . . . . . 7 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ((𝑋𝑥) ≠ 0 ↔ 𝑥𝑈))
5435, 53mpbird 257 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (𝑋𝑥) ≠ 0)
552, 3, 7, 4, 5, 33, 38dchrn0 27181 . . . . . . 7 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ((𝑋𝑦) ≠ 0 ↔ 𝑦𝑈))
5637, 55mpbird 257 . . . . . 6 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (𝑋𝑦) ≠ 0)
5749, 51, 49, 52, 54, 56divmuldivd 11930 . . . . 5 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → ((1 / (𝑋𝑥)) · (1 / (𝑋𝑦))) = ((1 · 1) / ((𝑋𝑥) · (𝑋𝑦))))
5848, 57eqtr4d 2768 . . . 4 ((𝜑 ∧ (𝑥𝑈𝑦𝑈)) → (1 / (𝑋‘(𝑥(.r𝑍)𝑦))) = ((1 / (𝑋𝑥)) · (1 / (𝑋𝑦))))
5932, 6sselid 3930 . . . . . . 7 (𝜑𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂfld)))
60 eqid 2730 . . . . . . . . 9 (1r𝑍) = (1r𝑍)
6139, 60ringidval 20094 . . . . . . . 8 (1r𝑍) = (0g‘(mulGrp‘𝑍))
62 cnfld1 21323 . . . . . . . . 9 1 = (1r‘ℂfld)
6343, 62ringidval 20094 . . . . . . . 8 1 = (0g‘(mulGrp‘ℂfld))
6461, 63mhm0 18694 . . . . . . 7 (𝑋 ∈ ((mulGrp‘𝑍) MndHom (mulGrp‘ℂfld)) → (𝑋‘(1r𝑍)) = 1)
6559, 64syl 17 . . . . . 6 (𝜑 → (𝑋‘(1r𝑍)) = 1)
6665oveq2d 7357 . . . . 5 (𝜑 → (1 / (𝑋‘(1r𝑍))) = (1 / 1))
67 1div1e1 11804 . . . . 5 (1 / 1) = 1
6866, 67eqtrdi 2781 . . . 4 (𝜑 → (1 / (𝑋‘(1r𝑍))) = 1)
692, 3, 4, 5, 9, 7, 11, 13, 15, 17, 28, 58, 68dchrelbasd 27170 . . 3 (𝜑 → (𝑘𝐵 ↦ if(𝑘𝑈, (1 / (𝑋𝑘)), 0)) ∈ 𝐷)
701, 69eqeltrid 2833 . 2 (𝜑𝐾𝐷)
71 dchrmullid.t . . . 4 · = (+g𝐺)
722, 3, 7, 71, 70, 6dchrmul 27179 . . 3 (𝜑 → (𝐾 · 𝑋) = (𝐾f · 𝑋))
734fvexi 6831 . . . . . 6 𝐵 ∈ V
7473a1i 11 . . . . 5 (𝜑𝐵 ∈ V)
75 ovex 7374 . . . . . . 7 (1 / (𝑋𝑘)) ∈ V
76 c0ex 11098 . . . . . . 7 0 ∈ V
7775, 76ifex 4524 . . . . . 6 if(𝑘𝑈, (1 / (𝑋𝑘)), 0) ∈ V
7877a1i 11 . . . . 5 ((𝜑𝑘𝐵) → if(𝑘𝑈, (1 / (𝑋𝑘)), 0) ∈ V)
7918ffvelcdmda 7012 . . . . 5 ((𝜑𝑘𝐵) → (𝑋𝑘) ∈ ℂ)
801a1i 11 . . . . 5 (𝜑𝐾 = (𝑘𝐵 ↦ if(𝑘𝑈, (1 / (𝑋𝑘)), 0)))
8118feqmptd 6885 . . . . 5 (𝜑𝑋 = (𝑘𝐵 ↦ (𝑋𝑘)))
8274, 78, 79, 80, 81offval2 7625 . . . 4 (𝜑 → (𝐾f · 𝑋) = (𝑘𝐵 ↦ (if(𝑘𝑈, (1 / (𝑋𝑘)), 0) · (𝑋𝑘))))
83 dchr1cl.o . . . . 5 1 = (𝑘𝐵 ↦ if(𝑘𝑈, 1, 0))
84 ovif 7439 . . . . . . 7 (if(𝑘𝑈, (1 / (𝑋𝑘)), 0) · (𝑋𝑘)) = if(𝑘𝑈, ((1 / (𝑋𝑘)) · (𝑋𝑘)), (0 · (𝑋𝑘)))
8579adantr 480 . . . . . . . . . 10 (((𝜑𝑘𝐵) ∧ 𝑘𝑈) → (𝑋𝑘) ∈ ℂ)
866adantr 480 . . . . . . . . . . . 12 ((𝜑𝑘𝐵) → 𝑋𝐷)
87 simpr 484 . . . . . . . . . . . 12 ((𝜑𝑘𝐵) → 𝑘𝐵)
882, 3, 7, 4, 5, 86, 87dchrn0 27181 . . . . . . . . . . 11 ((𝜑𝑘𝐵) → ((𝑋𝑘) ≠ 0 ↔ 𝑘𝑈))
8988biimpar 477 . . . . . . . . . 10 (((𝜑𝑘𝐵) ∧ 𝑘𝑈) → (𝑋𝑘) ≠ 0)
9085, 89recid2d 11885 . . . . . . . . 9 (((𝜑𝑘𝐵) ∧ 𝑘𝑈) → ((1 / (𝑋𝑘)) · (𝑋𝑘)) = 1)
9190ifeq1da 4505 . . . . . . . 8 ((𝜑𝑘𝐵) → if(𝑘𝑈, ((1 / (𝑋𝑘)) · (𝑋𝑘)), (0 · (𝑋𝑘))) = if(𝑘𝑈, 1, (0 · (𝑋𝑘))))
9279mul02d 11303 . . . . . . . . 9 ((𝜑𝑘𝐵) → (0 · (𝑋𝑘)) = 0)
9392ifeq2d 4494 . . . . . . . 8 ((𝜑𝑘𝐵) → if(𝑘𝑈, 1, (0 · (𝑋𝑘))) = if(𝑘𝑈, 1, 0))
9491, 93eqtrd 2765 . . . . . . 7 ((𝜑𝑘𝐵) → if(𝑘𝑈, ((1 / (𝑋𝑘)) · (𝑋𝑘)), (0 · (𝑋𝑘))) = if(𝑘𝑈, 1, 0))
9584, 94eqtrid 2777 . . . . . 6 ((𝜑𝑘𝐵) → (if(𝑘𝑈, (1 / (𝑋𝑘)), 0) · (𝑋𝑘)) = if(𝑘𝑈, 1, 0))
9695mpteq2dva 5182 . . . . 5 (𝜑 → (𝑘𝐵 ↦ (if(𝑘𝑈, (1 / (𝑋𝑘)), 0) · (𝑋𝑘))) = (𝑘𝐵 ↦ if(𝑘𝑈, 1, 0)))
9783, 96eqtr4id 2784 . . . 4 (𝜑1 = (𝑘𝐵 ↦ (if(𝑘𝑈, (1 / (𝑋𝑘)), 0) · (𝑋𝑘))))
9882, 97eqtr4d 2768 . . 3 (𝜑 → (𝐾f · 𝑋) = 1 )
9972, 98eqtrd 2765 . 2 (𝜑 → (𝐾 · 𝑋) = 1 )
10070, 99jca 511 1 (𝜑 → (𝐾𝐷 ∧ (𝐾 · 𝑋) = 1 ))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1541  wcel 2110  wne 2926  Vcvv 3434  ifcif 4473  cmpt 5170  wf 6473  cfv 6477  (class class class)co 7341  f cof 7603  cc 10996  0cc0 10998  1c1 10999   · cmul 11003   / cdiv 11766  cn 12117  Basecbs 17112  +gcplusg 17153  .rcmulr 17154   MndHom cmhm 18681  mulGrpcmgp 20051  1rcur 20092  Unitcui 20266  fldccnfld 21284  ℤ/nczn 21432  DChrcdchr 27163
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2112  ax-9 2120  ax-10 2143  ax-11 2159  ax-12 2179  ax-ext 2702  ax-rep 5215  ax-sep 5232  ax-nul 5242  ax-pow 5301  ax-pr 5368  ax-un 7663  ax-cnex 11054  ax-resscn 11055  ax-1cn 11056  ax-icn 11057  ax-addcl 11058  ax-addrcl 11059  ax-mulcl 11060  ax-mulrcl 11061  ax-mulcom 11062  ax-addass 11063  ax-mulass 11064  ax-distr 11065  ax-i2m1 11066  ax-1ne0 11067  ax-1rid 11068  ax-rnegex 11069  ax-rrecex 11070  ax-cnre 11071  ax-pre-lttri 11072  ax-pre-lttrn 11073  ax-pre-ltadd 11074  ax-pre-mulgt0 11075  ax-addf 11077  ax-mulf 11078
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3344  df-reu 3345  df-rab 3394  df-v 3436  df-sbc 3740  df-csb 3849  df-dif 3903  df-un 3905  df-in 3907  df-ss 3917  df-pss 3920  df-nul 4282  df-if 4474  df-pw 4550  df-sn 4575  df-pr 4577  df-tp 4579  df-op 4581  df-uni 4858  df-int 4896  df-iun 4941  df-br 5090  df-opab 5152  df-mpt 5171  df-tr 5197  df-id 5509  df-eprel 5514  df-po 5522  df-so 5523  df-fr 5567  df-we 5569  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6244  df-ord 6305  df-on 6306  df-lim 6307  df-suc 6308  df-iota 6433  df-fun 6479  df-fn 6480  df-f 6481  df-f1 6482  df-fo 6483  df-f1o 6484  df-fv 6485  df-riota 7298  df-ov 7344  df-oprab 7345  df-mpo 7346  df-of 7605  df-om 7792  df-1st 7916  df-2nd 7917  df-tpos 8151  df-frecs 8206  df-wrecs 8237  df-recs 8286  df-rdg 8324  df-1o 8380  df-er 8617  df-ec 8619  df-qs 8623  df-map 8747  df-en 8865  df-dom 8866  df-sdom 8867  df-fin 8868  df-sup 9321  df-inf 9322  df-pnf 11140  df-mnf 11141  df-xr 11142  df-ltxr 11143  df-le 11144  df-sub 11338  df-neg 11339  df-div 11767  df-nn 12118  df-2 12180  df-3 12181  df-4 12182  df-5 12183  df-6 12184  df-7 12185  df-8 12186  df-9 12187  df-n0 12374  df-z 12461  df-dec 12581  df-uz 12725  df-fz 13400  df-struct 17050  df-sets 17067  df-slot 17085  df-ndx 17097  df-base 17113  df-ress 17134  df-plusg 17166  df-mulr 17167  df-starv 17168  df-sca 17169  df-vsca 17170  df-ip 17171  df-tset 17172  df-ple 17173  df-ds 17175  df-unif 17176  df-0g 17337  df-imas 17404  df-qus 17405  df-mgm 18540  df-sgrp 18619  df-mnd 18635  df-mhm 18683  df-grp 18841  df-minusg 18842  df-sbg 18843  df-subg 19028  df-nsg 19029  df-eqg 19030  df-cmn 19687  df-abl 19688  df-mgp 20052  df-rng 20064  df-ur 20093  df-ring 20146  df-cring 20147  df-oppr 20248  df-dvdsr 20268  df-unit 20269  df-invr 20299  df-subrng 20454  df-subrg 20478  df-lmod 20788  df-lss 20858  df-lsp 20898  df-sra 21100  df-rgmod 21101  df-lidl 21138  df-rsp 21139  df-2idl 21180  df-cnfld 21285  df-zring 21377  df-zn 21436  df-dchr 27164
This theorem is referenced by:  dchrabl  27185
  Copyright terms: Public domain W3C validator