Theorem zrhpsgnmhm 19655

Description: Embedding of permutation signs into an arbitrary ring is a homomorphism. (Contributed by SO, 9-Jul-2018.)

Assertion

Ref	Expression
zrhpsgnmhm	⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝐴)) ∈ ((SymGrp‘𝐴) MndHom (mulGrp‘𝑅)))

Proof of Theorem zrhpsgnmhm

Step	Hyp	Ref	Expression
1		eqid 2514	. . . 4 ⊢ (ℤRHom‘𝑅) = (ℤRHom‘𝑅)
2	1	zrhrhm 19585	. . 3 ⊢ (𝑅 ∈ Ring → (ℤRHom‘𝑅) ∈ (ℤring RingHom 𝑅))
3		eqid 2514	. . . 4 ⊢ (mulGrp‘ℤring) = (mulGrp‘ℤring)
4		eqid 2514	. . . 4 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
5	3, 4	rhmmhm 18452	. . 3 ⊢ ((ℤRHom‘𝑅) ∈ (ℤring RingHom 𝑅) → (ℤRHom‘𝑅) ∈ ((mulGrp‘ℤring) MndHom (mulGrp‘𝑅)))
6	2, 5	syl 17	. 2 ⊢ (𝑅 ∈ Ring → (ℤRHom‘𝑅) ∈ ((mulGrp‘ℤring) MndHom (mulGrp‘𝑅)))
7		eqid 2514	. . . . 5 ⊢ (SymGrp‘𝐴) = (SymGrp‘𝐴)
8		eqid 2514	. . . . 5 ⊢ (pmSgn‘𝐴) = (pmSgn‘𝐴)
9		eqid 2514	. . . . 5 ⊢ ((mulGrp‘ℂfld) ↾s {1, -1}) = ((mulGrp‘ℂfld) ↾s {1, -1})
10	7, 8, 9	psgnghm2 19652	. . . 4 ⊢ (𝐴 ∈ Fin → (pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) GrpHom ((mulGrp‘ℂfld) ↾s {1, -1})))
11		ghmmhm 17385	. . . 4 ⊢ ((pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) GrpHom ((mulGrp‘ℂfld) ↾s {1, -1})) → (pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) MndHom ((mulGrp‘ℂfld) ↾s {1, -1})))
12	10, 11	syl 17	. . 3 ⊢ (𝐴 ∈ Fin → (pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) MndHom ((mulGrp‘ℂfld) ↾s {1, -1})))
13		eqid 2514	. . . . . . . 8 ⊢ ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})) = ((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))
14	13	cnmsgnsubg 19648	. . . . . . 7 ⊢ {1, -1} ∈ (SubGrp‘((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})))
15		subgsubm 17331	. . . . . . 7 ⊢ ({1, -1} ∈ (SubGrp‘((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) → {1, -1} ∈ (SubMnd‘((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))))
16	14, 15	ax-mp 5	. . . . . 6 ⊢ {1, -1} ∈ (SubMnd‘((mulGrp‘ℂfld) ↾s (ℂ ∖ {0})))
17		cnring 19491	. . . . . . 7 ⊢ ℂfld ∈ Ring
18		cnfldbas 19475	. . . . . . . . 9 ⊢ ℂ = (Base‘ℂfld)
19		cnfld0 19493	. . . . . . . . 9 ⊢ 0 = (0g‘ℂfld)
20		cndrng 19498	. . . . . . . . 9 ⊢ ℂfld ∈ DivRing
21	18, 19, 20	drngui 18483	. . . . . . . 8 ⊢ (ℂ ∖ {0}) = (Unit‘ℂfld)
22		eqid 2514	. . . . . . . 8 ⊢ (mulGrp‘ℂfld) = (mulGrp‘ℂfld)
23	21, 22	unitsubm 18400	. . . . . . 7 ⊢ (ℂfld ∈ Ring → (ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld)))
24	13	subsubm 17072	. . . . . . 7 ⊢ ((ℂ ∖ {0}) ∈ (SubMnd‘(mulGrp‘ℂfld)) → ({1, -1} ∈ (SubMnd‘((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) ↔ ({1, -1} ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ {1, -1} ⊆ (ℂ ∖ {0}))))
25	17, 23, 24	mp2b 10	. . . . . 6 ⊢ ({1, -1} ∈ (SubMnd‘((mulGrp‘ℂfld) ↾s (ℂ ∖ {0}))) ↔ ({1, -1} ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ {1, -1} ⊆ (ℂ ∖ {0})))
26	16, 25	mpbi 218	. . . . 5 ⊢ ({1, -1} ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ {1, -1} ⊆ (ℂ ∖ {0}))
27	26	simpli 472	. . . 4 ⊢ {1, -1} ∈ (SubMnd‘(mulGrp‘ℂfld))
28		1z 11148	. . . . 5 ⊢ 1 ∈ ℤ
29		neg1z 11154	. . . . 5 ⊢ -1 ∈ ℤ
30		prssi 4196	. . . . 5 ⊢ ((1 ∈ ℤ ∧ -1 ∈ ℤ) → {1, -1} ⊆ ℤ)
31	28, 29, 30	mp2an 703	. . . 4 ⊢ {1, -1} ⊆ ℤ
32		zsubrg 19522	. . . . 5 ⊢ ℤ ∈ (SubRing‘ℂfld)
33	22	subrgsubm 18523	. . . . 5 ⊢ (ℤ ∈ (SubRing‘ℂfld) → ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)))
34		zringmpg 19565	. . . . . . 7 ⊢ ((mulGrp‘ℂfld) ↾s ℤ) = (mulGrp‘ℤring)
35	34	eqcomi 2523	. . . . . 6 ⊢ (mulGrp‘ℤring) = ((mulGrp‘ℂfld) ↾s ℤ)
36	35	subsubm 17072	. . . . 5 ⊢ (ℤ ∈ (SubMnd‘(mulGrp‘ℂfld)) → ({1, -1} ∈ (SubMnd‘(mulGrp‘ℤring)) ↔ ({1, -1} ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ {1, -1} ⊆ ℤ)))
37	32, 33, 36	mp2b 10	. . . 4 ⊢ ({1, -1} ∈ (SubMnd‘(mulGrp‘ℤring)) ↔ ({1, -1} ∈ (SubMnd‘(mulGrp‘ℂfld)) ∧ {1, -1} ⊆ ℤ))
38	27, 31, 37	mpbir2an 956	. . 3 ⊢ {1, -1} ∈ (SubMnd‘(mulGrp‘ℤring))
39		zex 11127	. . . . . 6 ⊢ ℤ ∈ V
40		ressabs 15650	. . . . . 6 ⊢ ((ℤ ∈ V ∧ {1, -1} ⊆ ℤ) → (((mulGrp‘ℂfld) ↾s ℤ) ↾s {1, -1}) = ((mulGrp‘ℂfld) ↾s {1, -1}))
41	39, 31, 40	mp2an 703	. . . . 5 ⊢ (((mulGrp‘ℂfld) ↾s ℤ) ↾s {1, -1}) = ((mulGrp‘ℂfld) ↾s {1, -1})
42	34	oveq1i 6436	. . . . 5 ⊢ (((mulGrp‘ℂfld) ↾s ℤ) ↾s {1, -1}) = ((mulGrp‘ℤring) ↾s {1, -1})
43	41, 42	eqtr3i 2538	. . . 4 ⊢ ((mulGrp‘ℂfld) ↾s {1, -1}) = ((mulGrp‘ℤring) ↾s {1, -1})
44	43	resmhm2 17075	. . 3 ⊢ (((pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) MndHom ((mulGrp‘ℂfld) ↾s {1, -1})) ∧ {1, -1} ∈ (SubMnd‘(mulGrp‘ℤring))) → (pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) MndHom (mulGrp‘ℤring)))
45	12, 38, 44	sylancl 692	. 2 ⊢ (𝐴 ∈ Fin → (pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) MndHom (mulGrp‘ℤring)))
46		mhmco 17077	. 2 ⊢ (((ℤRHom‘𝑅) ∈ ((mulGrp‘ℤring) MndHom (mulGrp‘𝑅)) ∧ (pmSgn‘𝐴) ∈ ((SymGrp‘𝐴) MndHom (mulGrp‘ℤring))) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝐴)) ∈ ((SymGrp‘𝐴) MndHom (mulGrp‘𝑅)))
47	6, 45, 46	syl2an 492	1 ⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ Fin) → ((ℤRHom‘𝑅) ∘ (pmSgn‘𝐴)) ∈ ((SymGrp‘𝐴) MndHom (mulGrp‘𝑅)))

Syntax hints:   → wi 4   ↔ wb 194   ∧ wa 382   = wceq 1474   ∈ wcel 1938  Vcvv 3077   ∖ cdif 3441   ⊆ wss 3444  {csn 4028  {cpr 4030   ∘ ccom 4936  ‘cfv 5689  (class class class)co 6426  Fincfn 7717  ℂcc 9689  0cc0 9691  1c1 9692  -cneg 10018  ℤcz 11118   ↾_s cress 15580   MndHom cmhm 17048  SubMndcsubmnd 17049  SubGrpcsubg 17303   GrpHom cghm 17372  SymGrpcsymg 17512  pmSgncpsgn 17624  mulGrpcmgp 18219  Ringcrg 18277   RingHom crh 18442  SubRingcsubrg 18506  ℂ_fldccnfld 19471  ℤ_ringzring 19541  ℤRHomczrh 19573

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1700  ax-4 1713  ax-5 1793  ax-6 1838  ax-7 1885  ax-8 1940  ax-9 1947  ax-10 1966  ax-11 1971  ax-12 1983  ax-13 2137  ax-ext 2494  ax-rep 4597  ax-sep 4607  ax-nul 4616  ax-pow 4668  ax-pr 4732  ax-un 6723  ax-inf2 8297  ax-cnex 9747  ax-resscn 9748  ax-1cn 9749  ax-icn 9750  ax-addcl 9751  ax-addrcl 9752  ax-mulcl 9753  ax-mulrcl 9754  ax-mulcom 9755  ax-addass 9756  ax-mulass 9757  ax-distr 9758  ax-i2m1 9759  ax-1ne0 9760  ax-1rid 9761  ax-rnegex 9762  ax-rrecex 9763  ax-cnre 9764  ax-pre-lttri 9765  ax-pre-lttrn 9766  ax-pre-ltadd 9767  ax-pre-mulgt0 9768  ax-addf 9770  ax-mulf 9771

This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-xor 1456  df-tru 1477  df-ex 1695  df-nf 1699  df-sb 1831  df-eu 2366  df-mo 2367  df-clab 2501  df-cleq 2507  df-clel 2510  df-nfc 2644  df-ne 2686  df-nel 2687  df-ral 2805  df-rex 2806  df-reu 2807  df-rmo 2808  df-rab 2809  df-v 3079  df-sbc 3307  df-csb 3404  df-dif 3447  df-un 3449  df-in 3451  df-ss 3458  df-pss 3460  df-nul 3778  df-if 3940  df-pw 4013  df-sn 4029  df-pr 4031  df-tp 4033  df-op 4035  df-ot 4037  df-uni 4271  df-int 4309  df-iun 4355  df-iin 4356  df-br 4482  df-opab 4542  df-mpt 4543  df-tr 4579  df-eprel 4843  df-id 4847  df-po 4853  df-so 4854  df-fr 4891  df-se 4892  df-we 4893  df-xp 4938  df-rel 4939  df-cnv 4940  df-co 4941  df-dm 4942  df-rn 4943  df-res 4944  df-ima 4945  df-pred 5487  df-ord 5533  df-on 5534  df-lim 5535  df-suc 5536  df-iota 5653  df-fun 5691  df-fn 5692  df-f 5693  df-f1 5694  df-fo 5695  df-f1o 5696  df-fv 5697  df-isom 5698  df-riota 6388  df-ov 6429  df-oprab 6430  df-mpt2 6431  df-om 6834  df-1st 6934  df-2nd 6935  df-tpos 7114  df-wrecs 7169  df-recs 7231  df-rdg 7269  df-1o 7323  df-2o 7324  df-oadd 7327  df-er 7505  df-map 7622  df-en 7718  df-dom 7719  df-sdom 7720  df-fin 7721  df-card 8524  df-pnf 9831  df-mnf 9832  df-xr 9833  df-ltxr 9834  df-le 9835  df-sub 10019  df-neg 10020  df-div 10434  df-nn 10776  df-2 10834  df-3 10835  df-4 10836  df-5 10837  df-6 10838  df-7 10839  df-8 10840  df-9 10841  df-n0 11048  df-z 11119  df-dec 11234  df-uz 11428  df-rp 11575  df-fz 12066  df-fzo 12203  df-seq 12532  df-exp 12591  df-hash 12848  df-word 13013  df-lsw 13014  df-concat 13015  df-s1 13016  df-substr 13017  df-splice 13018  df-reverse 13019  df-s2 13303  df-struct 15581  df-ndx 15582  df-slot 15583  df-base 15584  df-sets 15585  df-ress 15586  df-plusg 15665  df-mulr 15666  df-starv 15667  df-tset 15671  df-ple 15672  df-ds 15675  df-unif 15676  df-0g 15809  df-gsum 15810  df-mre 15961  df-mrc 15962  df-acs 15964  df-mgm 16957  df-sgrp 16999  df-mnd 17010  df-mhm 17050  df-submnd 17051  df-grp 17140  df-minusg 17141  df-mulg 17256  df-subg 17306  df-ghm 17373  df-gim 17416  df-oppg 17491  df-symg 17513  df-pmtr 17577  df-psgn 17626  df-cmn 17926  df-abl 17927  df-mgp 18220  df-ur 18232  df-ring 18279  df-cring 18280  df-oppr 18353  df-dvdsr 18371  df-unit 18372  df-invr 18402  df-dvr 18413  df-rnghom 18445  df-drng 18479  df-subrg 18508  df-cnfld 19472  df-zring 19542  df-zrh 19577

This theorem is referenced by:  madetsumid  19989  mdetleib2  20116  mdetf  20123  mdetdiaglem  20126  mdetrlin  20130  mdetrsca  20131  mdetralt  20136  mdetunilem7  20146  mdetunilem8  20147