Theorem qusrhm 14604

Description: If S is a two-sided ideal in R, then the "natural map" from elements to their cosets is a ring homomorphism from R to R / S. (Contributed by Mario Carneiro, 15-Jun-2015.)

Hypotheses

Ref	Expression
qusring.u	|- U = ( R /.s ( R ~QG S ) )
qusring.i	|- I = (2Ideal ` R )
qusrhm.x	|- X = ( Base ` R )
qusrhm.f	|- F = ( x e. X |-> [ x ] ( R ~QG S ) )

Assertion

Ref	Expression
qusrhm	|- ( ( R e. Ring /\ S e. I ) -> F e. ( R RingHom U ) )

Distinct variable groups:   x, I   x, R   x, S   x, U   x, X

Allowed substitution hint:   F( x)

Proof of Theorem qusrhm

Dummy variables y z a b c d are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		qusrhm.x	. 2 |- X = ( Base ` R )
2		eqid 2231	. 2 |- ( 1r ` R ) = ( 1r ` R )
3		eqid 2231	. 2 |- ( 1r ` U ) = ( 1r ` U )
4		eqid 2231	. 2 |- ( .r ` R ) = ( .r ` R )
5		eqid 2231	. 2 |- ( .r ` U ) = ( .r ` U )
6		simpl 109	. 2 |- ( ( R e. Ring /\ S e. I ) -> R e. Ring )
7		qusring.u	. . 3 |- U = ( R /.s ( R ~QG S ) )
8		qusring.i	. . 3 |- I = (2Ideal ` R )
9	7, 8	qusring 14603	. 2 |- ( ( R e. Ring /\ S e. I ) -> U e. Ring )
10		eqid 2231	. . . . . . . 8 |- (LIdeal ` R ) = (LIdeal ` R )
11		eqid 2231	. . . . . . . 8 |- (oppr ` R ) = (oppr ` R )
12		eqid 2231	. . . . . . . 8 |- (LIdeal ` (oppr ` R ) ) = (LIdeal ` (oppr ` R ) )
13	10, 11, 12, 8	2idlelb 14581	. . . . . . 7 |- ( S e. I <-> ( S e. (LIdeal ` R ) /\ S e. (LIdeal ` (oppr ` R ) ) ) )
14	13	simplbi 274	. . . . . 6 |- ( S e. I -> S e. (LIdeal ` R ) )
15	10	lidlsubg 14562	. . . . . 6 |- ( ( R e. Ring /\ S e. (LIdeal ` R ) ) -> S e. (SubGrp ` R ) )
16	14, 15	sylan2 286	. . . . 5 |- ( ( R e. Ring /\ S e. I ) -> S e. (SubGrp ` R ) )
17		eqid 2231	. . . . . 6 |- ( R ~QG S ) = ( R ~QG S )
18	1, 17	eqger 13872	. . . . 5 |- ( S e. (SubGrp ` R ) -> ( R ~QG S ) Er X )
19	16, 18	syl 14	. . . 4 |- ( ( R e. Ring /\ S e. I ) -> ( R ~QG S ) Er X )
20		basfn 13202	. . . . . 6 |- Base Fn _V
21	6	elexd 2817	. . . . . 6 |- ( ( R e. Ring /\ S e. I ) -> R e. _V )
22		funfvex 5665	. . . . . . 7 |- ( ( Fun Base /\ R e. dom Base ) -> ( Base ` R ) e. _V )
23	22	funfni 5439	. . . . . 6 |- ( ( Base Fn _V /\ R e. _V ) -> ( Base ` R ) e. _V )
24	20, 21, 23	sylancr 414	. . . . 5 |- ( ( R e. Ring /\ S e. I ) -> ( Base ` R ) e. _V )
25	1, 24	eqeltrid 2318	. . . 4 |- ( ( R e. Ring /\ S e. I ) -> X e. _V )
26		qusrhm.f	. . . 4 |- F = ( x e. X |-> [ x ] ( R ~QG S ) )
27	19, 25, 26	divsfval 13472	. . 3 |- ( ( R e. Ring /\ S e. I ) -> ( F ` ( 1r ` R ) ) = [ ( 1r ` R ) ] ( R ~QG S ) )
28	7, 8, 2	qus1 14602	. . . 4 |- ( ( R e. Ring /\ S e. I ) -> ( U e. Ring /\ [ ( 1r ` R ) ] ( R ~QG S ) = ( 1r ` U ) ) )
29	28	simprd 114	. . 3 |- ( ( R e. Ring /\ S e. I ) -> [ ( 1r ` R ) ] ( R ~QG S ) = ( 1r ` U ) )
30	27, 29	eqtrd 2264	. 2 |- ( ( R e. Ring /\ S e. I ) -> ( F ` ( 1r ` R ) ) = ( 1r ` U ) )
31	7	a1i 9	. . . . 5 |- ( ( R e. Ring /\ S e. I ) -> U = ( R /.s ( R ~QG S ) ) )
32	1	a1i 9	. . . . 5 |- ( ( R e. Ring /\ S e. I ) -> X = ( Base ` R ) )
33	1, 17, 8, 4	2idlcpbl 14600	. . . . 5 |- ( ( R e. Ring /\ S e. I ) -> ( ( a ( R ~QG S ) c /\ b ( R ~QG S ) d ) -> ( a ( .r ` R ) b ) ( R ~QG S ) ( c ( .r ` R ) d ) ) )
34	1, 4	ringcl 14088	. . . . . . . 8 |- ( ( R e. Ring /\ y e. X /\ z e. X ) -> ( y ( .r ` R ) z ) e. X )
35	34	3expb 1231	. . . . . . 7 |- ( ( R e. Ring /\ ( y e. X /\ z e. X ) ) -> ( y ( .r ` R ) z ) e. X )
36	35	adantlr 477	. . . . . 6 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( y ( .r ` R ) z ) e. X )
37	36	caovclg 6185	. . . . 5 |- ( ( ( R e. Ring /\ S e. I ) /\ ( c e. X /\ d e. X ) ) -> ( c ( .r ` R ) d ) e. X )
38	31, 32, 19, 6, 33, 37, 4, 5	qusmulval 13481	. . . 4 |- ( ( ( R e. Ring /\ S e. I ) /\ y e. X /\ z e. X ) -> ( [ y ] ( R ~QG S ) ( .r ` U ) [ z ] ( R ~QG S ) ) = [ ( y ( .r ` R ) z ) ] ( R ~QG S ) )
39	38	3expb 1231	. . 3 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( [ y ] ( R ~QG S ) ( .r ` U ) [ z ] ( R ~QG S ) ) = [ ( y ( .r ` R ) z ) ] ( R ~QG S ) )
40	19	adantr 276	. . . . 5 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( R ~QG S ) Er X )
41	25	adantr 276	. . . . 5 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> X e. _V )
42	40, 41, 26	divsfval 13472	. . . 4 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( F ` y ) = [ y ] ( R ~QG S ) )
43	40, 41, 26	divsfval 13472	. . . 4 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( F ` z ) = [ z ] ( R ~QG S ) )
44	42, 43	oveq12d 6046	. . 3 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( ( F ` y ) ( .r ` U ) ( F ` z ) ) = ( [ y ] ( R ~QG S ) ( .r ` U ) [ z ] ( R ~QG S ) ) )
45	40, 41, 26	divsfval 13472	. . 3 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( F ` ( y ( .r ` R ) z ) ) = [ ( y ( .r ` R ) z ) ] ( R ~QG S ) )
46	39, 44, 45	3eqtr4rd 2275	. 2 |- ( ( ( R e. Ring /\ S e. I ) /\ ( y e. X /\ z e. X ) ) -> ( F ` ( y ( .r ` R ) z ) ) = ( ( F ` y ) ( .r ` U ) ( F ` z ) ) )
47		ringabl 14107	. . . . . 6 |- ( R e. Ring -> R e. Abel )
48	47	adantr 276	. . . . 5 |- ( ( R e. Ring /\ S e. I ) -> R e. Abel )
49		ablnsg 13982	. . . . 5 |- ( R e. Abel -> (NrmSGrp ` R ) = (SubGrp ` R ) )
50	48, 49	syl 14	. . . 4 |- ( ( R e. Ring /\ S e. I ) -> (NrmSGrp ` R ) = (SubGrp ` R ) )
51	16, 50	eleqtrrd 2311	. . 3 |- ( ( R e. Ring /\ S e. I ) -> S e. (NrmSGrp ` R ) )
52	1, 7, 26	qusghm 13930	. . 3 |- ( S e. (NrmSGrp ` R ) -> F e. ( R GrpHom U ) )
53	51, 52	syl 14	. 2 |- ( ( R e. Ring /\ S e. I ) -> F e. ( R GrpHom U ) )
54	1, 2, 3, 4, 5, 6, 9, 30, 46, 53	isrhm2d 14241	1 |- ( ( R e. Ring /\ S e. I ) -> F e. ( R RingHom U ) )

Syntax hints:   -> wi 4   /\ wa 104   = wceq 1398   e. wcel 2202   _Vcvv 2803   |-> cmpt 4155   Fn wfn 5328   ` cfv 5333  (class class class)co 6028   Er wer 6742   [cec 6743   Basecbs 13143   .rcmulr 13222   /._s cqus 13444  SubGrpcsubg 13815  NrmSGrpcnsg 13816   ~_QG cqg 13817   GrpHom cghm 13888   Abelcabl 13933   1rcur 14034   Ringcrg 14071  opp_rcoppr 14142   RingHom crh 14226  LIdealclidl 14543  2Idealc2idl 14575

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4209  ax-sep 4212  ax-nul 4220  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-cnex 8166  ax-resscn 8167  ax-1cn 8168  ax-1re 8169  ax-icn 8170  ax-addcl 8171  ax-addrcl 8172  ax-mulcl 8173  ax-addcom 8175  ax-addass 8177  ax-i2m1 8180  ax-0lt1 8181  ax-0id 8183  ax-rnegex 8184  ax-pre-ltirr 8187  ax-pre-lttrn 8189  ax-pre-ltadd 8191

This theorem depends on definitions:  df-bi 117  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-nel 2499  df-ral 2516  df-rex 2517  df-reu 2518  df-rmo 2519  df-rab 2520  df-v 2805  df-sbc 3033  df-csb 3129  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-nul 3497  df-pw 3658  df-sn 3679  df-pr 3680  df-tp 3681  df-op 3682  df-uni 3899  df-int 3934  df-iun 3977  df-br 4094  df-opab 4156  df-mpt 4157  df-id 4396  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-rn 4742  df-res 4743  df-ima 4744  df-iota 5293  df-fun 5335  df-fn 5336  df-f 5337  df-f1 5338  df-fo 5339  df-f1o 5340  df-fv 5341  df-riota 5981  df-ov 6031  df-oprab 6032  df-mpo 6033  df-1st 6312  df-2nd 6313  df-tpos 6454  df-er 6745  df-ec 6747  df-qs 6751  df-map 6862  df-pnf 8259  df-mnf 8260  df-ltxr 8262  df-inn 9187  df-2 9245  df-3 9246  df-4 9247  df-5 9248  df-6 9249  df-7 9250  df-8 9251  df-ndx 13146  df-slot 13147  df-base 13149  df-sets 13150  df-iress 13151  df-plusg 13234  df-mulr 13235  df-sca 13237  df-vsca 13238  df-ip 13239  df-0g 13402  df-iimas 13446  df-qus 13447  df-mgm 13500  df-sgrp 13546  df-mnd 13561  df-mhm 13603  df-grp 13647  df-minusg 13648  df-sbg 13649  df-subg 13818  df-nsg 13819  df-eqg 13820  df-ghm 13889  df-cmn 13934  df-abl 13935  df-mgp 13996  df-rng 14008  df-ur 14035  df-srg 14039  df-ring 14073  df-oppr 14143  df-rhm 14228  df-subrg 14295  df-lmod 14365  df-lssm 14429  df-sra 14511  df-rgmod 14512  df-lidl 14545  df-2idl 14576

This theorem is referenced by:  znzrh2  14722