ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  dfrhm2 Unicode version
Theorem dfrhm2 13529
Description: The property of a ring homomorphism can be decomposed into separate homomorphic conditions for addition and multiplication. (Contributed by Stefan O'Rear, 7-Mar-2015.)
Assertion
Ref Expression
dfrhm2 |- RingHom = ( r e. Ring , s e. Ring |-> ( ( r GrpHom s ) i^i ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) ) )
Distinct variable group:   s, r
Proof of Theorem dfrhm2
Dummy variables v w f x y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 df-rhm 13527 . 2 |- RingHom = ( r e. Ring , s e. Ring |-> [_ ( Base ` r ) / v ]_ [_ ( Base ` s ) / w ]_ { f e. ( w ^m v ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } )
2 ancom 266 . . . . . . 7 |- ( ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) <-> ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) )
3 r19.26-2 2619 . . . . . . . 8 |- ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) <-> ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) )
43anbi1i 458 . . . . . . 7 |- ( ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) <-> ( ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) )
5 anass 401 . . . . . . 7 |- ( ( ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) <-> ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
62, 4, 53bitri 206 . . . . . 6 |- ( ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) <-> ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
76rabbii 2738 . . . . 5 |- { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } = { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) }
8 basfn 12581 . . . . . . 7 |- Base Fn _V
9 vex 2755 . . . . . . 7 |- r e. _V
10 funfvex 5554 . . . . . . . 8 |- ( ( Fun Base /\ r e. dom Base ) -> ( Base ` r ) e. _V )
1110funfni 5338 . . . . . . 7 |- ( ( Base Fn _V /\ r e. _V ) -> ( Base ` r ) e. _V )
128, 9, 11mp2an 426 . . . . . 6 |- ( Base ` r ) e. _V
13 vex 2755 . . . . . . 7 |- s e. _V
14 funfvex 5554 . . . . . . . 8 |- ( ( Fun Base /\ s e. dom Base ) -> ( Base ` s ) e. _V )
1514funfni 5338 . . . . . . 7 |- ( ( Base Fn _V /\ s e. _V ) -> ( Base ` s ) e. _V )
168, 13, 15mp2an 426 . . . . . 6 |- ( Base ` s ) e. _V
17 oveq12 5909 . . . . . . . 8 |- ( ( w = ( Base ` s ) /\ v = ( Base ` r ) ) -> ( w ^m v ) = ( ( Base ` s ) ^m ( Base ` r ) ) )
1817ancoms 268 . . . . . . 7 |- ( ( v = ( Base ` r ) /\ w = ( Base ` s ) ) -> ( w ^m v ) = ( ( Base ` s ) ^m ( Base ` r ) ) )
19 raleq 2686 . . . . . . . . . 10 |- ( v = ( Base ` r ) -> ( A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) <-> A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) )
2019raleqbi1dv 2694 . . . . . . . . 9 |- ( v = ( Base ` r ) -> ( A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) <-> A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) )
2120adantr 276 . . . . . . . 8 |- ( ( v = ( Base ` r ) /\ w = ( Base ` s ) ) -> ( A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) <-> A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) )
2221anbi2d 464 . . . . . . 7 |- ( ( v = ( Base ` r ) /\ w = ( Base ` s ) ) -> ( ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) <-> ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) ) )
2318, 22rabeqbidv 2747 . . . . . 6 |- ( ( v = ( Base ` r ) /\ w = ( Base ` s ) ) -> { f e. ( w ^m v ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } = { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } )
2412, 16, 23csbie2 3121 . . . . 5 |- [_ ( Base ` r ) / v ]_ [_ ( Base ` s ) / w ]_ { f e. ( w ^m v ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } = { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) }
25 inrab 3422 . . . . 5 |- ( { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) } i^i { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } ) = { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) }
267, 24, 253eqtr4i 2220 . . . 4 |- [_ ( Base ` r ) / v ]_ [_ ( Base ` s ) / w ]_ { f e. ( w ^m v ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } = ( { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) } i^i { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } )
27 ringgrp 13380 . . . . . . . 8 |- ( r e. Ring -> r e. Grp )
28 ringgrp 13380 . . . . . . . 8 |- ( s e. Ring -> s e. Grp )
29 eqid 2189 . . . . . . . . 9 |- ( Base ` r ) = ( Base ` r )
30 eqid 2189 . . . . . . . . 9 |- ( Base ` s ) = ( Base ` s )
31 eqid 2189 . . . . . . . . 9 |- ( +g ` r ) = ( +g ` r )
32 eqid 2189 . . . . . . . . 9 |- ( +g ` s ) = ( +g ` s )
3329, 30, 31, 32isghm3 13208 . . . . . . . 8 |- ( ( r e. Grp /\ s e. Grp ) -> ( f e. ( r GrpHom s ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) ) )
3427, 28, 33syl2an 289 . . . . . . 7 |- ( ( r e. Ring /\ s e. Ring ) -> ( f e. ( r GrpHom s ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) ) )
3534eqabdv 2318 . . . . . 6 |- ( ( r e. Ring /\ s e. Ring ) -> ( r GrpHom s ) = { f | ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) } )
36 df-rab 2477 . . . . . . 7 |- { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) } = { f | ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) }
3716, 12elmap 6707 . . . . . . . . 9 |- ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) <-> f : ( Base ` r ) --> ( Base ` s ) )
3837anbi1i 458 . . . . . . . 8 |- ( ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) )
3938abbii 2305 . . . . . . 7 |- { f | ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) } = { f | ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) }
4036, 39eqtri 2210 . . . . . 6 |- { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) } = { f | ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) ) }
4135, 40eqtr4di 2240 . . . . 5 |- ( ( r e. Ring /\ s e. Ring ) -> ( r GrpHom s ) = { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) } )
42 eqid 2189 . . . . . . . . 9 |- (mulGrp ` r ) = (mulGrp ` r )
4342ringmgp 13381 . . . . . . . 8 |- ( r e. Ring -> (mulGrp ` r ) e. Mnd )
44 eqid 2189 . . . . . . . . 9 |- (mulGrp ` s ) = (mulGrp ` s )
4544ringmgp 13381 . . . . . . . 8 |- ( s e. Ring -> (mulGrp ` s ) e. Mnd )
4642, 29mgpbasg 13305 . . . . . . . . . . 11 |- ( r e. _V -> ( Base ` r ) = ( Base ` (mulGrp ` r ) ) )
4746elv 2756 . . . . . . . . . 10 |- ( Base ` r ) = ( Base ` (mulGrp ` r ) )
4844, 30mgpbasg 13305 . . . . . . . . . . 11 |- ( s e. _V -> ( Base ` s ) = ( Base ` (mulGrp ` s ) ) )
4948elv 2756 . . . . . . . . . 10 |- ( Base ` s ) = ( Base ` (mulGrp ` s ) )
50 eqid 2189 . . . . . . . . . . . 12 |- ( .r ` r ) = ( .r ` r )
5142, 50mgpplusgg 13303 . . . . . . . . . . 11 |- ( r e. _V -> ( .r ` r ) = ( +g ` (mulGrp ` r ) ) )
5251elv 2756 . . . . . . . . . 10 |- ( .r ` r ) = ( +g ` (mulGrp ` r ) )
53 eqid 2189 . . . . . . . . . . . 12 |- ( .r ` s ) = ( .r ` s )
5444, 53mgpplusgg 13303 . . . . . . . . . . 11 |- ( s e. _V -> ( .r ` s ) = ( +g ` (mulGrp ` s ) ) )
5554elv 2756 . . . . . . . . . 10 |- ( .r ` s ) = ( +g ` (mulGrp ` s ) )
56 eqid 2189 . . . . . . . . . . . 12 |- ( 1r ` r ) = ( 1r ` r )
5742, 56ringidvalg 13340 . . . . . . . . . . 11 |- ( r e. _V -> ( 1r ` r ) = ( 0g ` (mulGrp ` r ) ) )
5857elv 2756 . . . . . . . . . 10 |- ( 1r ` r ) = ( 0g ` (mulGrp ` r ) )
59 eqid 2189 . . . . . . . . . . . 12 |- ( 1r ` s ) = ( 1r ` s )
6044, 59ringidvalg 13340 . . . . . . . . . . 11 |- ( s e. _V -> ( 1r ` s ) = ( 0g ` (mulGrp ` s ) ) )
6160elv 2756 . . . . . . . . . 10 |- ( 1r ` s ) = ( 0g ` (mulGrp ` s ) )
6247, 49, 52, 55, 58, 61ismhm 12936 . . . . . . . . 9 |- ( f e. ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) <-> ( ( (mulGrp ` r ) e. Mnd /\ (mulGrp ` s ) e. Mnd ) /\ ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
6362baib 920 . . . . . . . 8 |- ( ( (mulGrp ` r ) e. Mnd /\ (mulGrp ` s ) e. Mnd ) -> ( f e. ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
6443, 45, 63syl2an 289 . . . . . . 7 |- ( ( r e. Ring /\ s e. Ring ) -> ( f e. ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
6564eqabdv 2318 . . . . . 6 |- ( ( r e. Ring /\ s e. Ring ) -> ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) = { f | ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } )
66 df-rab 2477 . . . . . . 7 |- { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } = { f | ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) }
6737anbi1i 458 . . . . . . . . 9 |- ( ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
68 3anass 984 . . . . . . . . 9 |- ( ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) )
6967, 68bitr4i 187 . . . . . . . 8 |- ( ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) <-> ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) )
7069abbii 2305 . . . . . . 7 |- { f | ( f e. ( ( Base ` s ) ^m ( Base ` r ) ) /\ ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) ) } = { f | ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) }
7166, 70eqtri 2210 . . . . . 6 |- { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } = { f | ( f : ( Base ` r ) --> ( Base ` s ) /\ A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) }
7265, 71eqtr4di 2240 . . . . 5 |- ( ( r e. Ring /\ s e. Ring ) -> ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) = { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } )
7341, 72ineq12d 3352 . . . 4 |- ( ( r e. Ring /\ s e. Ring ) -> ( ( r GrpHom s ) i^i ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) ) = ( { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) } i^i { f e. ( ( Base ` s ) ^m ( Base ` r ) ) | ( A. x e. ( Base ` r ) A. y e. ( Base ` r ) ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) /\ ( f ` ( 1r ` r ) ) = ( 1r ` s ) ) } ) )
7426, 73eqtr4id 2241 . . 3 |- ( ( r e. Ring /\ s e. Ring ) -> [_ ( Base ` r ) / v ]_ [_ ( Base ` s ) / w ]_ { f e. ( w ^m v ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } = ( ( r GrpHom s ) i^i ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) ) )
7574mpoeq3ia 5965 . 2 |- ( r e. Ring , s e. Ring |-> [_ ( Base ` r ) / v ]_ [_ ( Base ` s ) / w ]_ { f e. ( w ^m v ) | ( ( f ` ( 1r ` r ) ) = ( 1r ` s ) /\ A. x e. v A. y e. v ( ( f ` ( x ( +g ` r ) y ) ) = ( ( f ` x ) ( +g ` s ) ( f ` y ) ) /\ ( f ` ( x ( .r ` r ) y ) ) = ( ( f ` x ) ( .r ` s ) ( f ` y ) ) ) ) } ) = ( r e. Ring , s e. Ring |-> ( ( r GrpHom s ) i^i ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) ) )
761, 75eqtri 2210 1 |- RingHom = ( r e. Ring , s e. Ring |-> ( ( r GrpHom s ) i^i ( (mulGrp ` r ) MndHom (mulGrp ` s ) ) ) )
Colors of variables: wff set class
Syntax hints:   /\ wa 104   <-> wb 105   /\ w3a 980   = wceq 1364   e. wcel 2160   {cab 2175   A.wral 2468   {crab 2472   _Vcvv 2752   [_csb 3072   i^i cin 3143   Fn wfn 5233   -->wf 5234   ` cfv 5238  (class class class)co 5900   e. cmpo 5902   ^m cmap 6678   Basecbs 12523   +g cplusg 12600   .rcmulr 12601   0gc0g 12772   Mndcmnd 12900   MndHom cmhm 12932   Grpcgrp 12968   GrpHom cghm 13204  mulGrpcmgp 13299   1rcur 13338   Ringcrg 13375   RingHom crh 13525
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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-coll 4136  ax-sep 4139  ax-pow 4195  ax-pr 4230  ax-un 4454  ax-setind 4557  ax-cnex 7937  ax-resscn 7938  ax-1cn 7939  ax-1re 7940  ax-icn 7941  ax-addcl 7942  ax-addrcl 7943  ax-mulcl 7944  ax-addcom 7946  ax-addass 7948  ax-i2m1 7951  ax-0lt1 7952  ax-0id 7954  ax-rnegex 7955  ax-pre-ltirr 7958  ax-pre-ltadd 7962
This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-nel 2456  df-ral 2473  df-rex 2474  df-reu 2475  df-rab 2477  df-v 2754  df-sbc 2978  df-csb 3073  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-pw 3595  df-sn 3616  df-pr 3617  df-op 3619  df-uni 3828  df-int 3863  df-iun 3906  df-br 4022  df-opab 4083  df-mpt 4084  df-id 4314  df-xp 4653  df-rel 4654  df-cnv 4655  df-co 4656  df-dm 4657  df-rn 4658  df-res 4659  df-ima 4660  df-iota 5199  df-fun 5240  df-fn 5241  df-f 5242  df-f1 5243  df-fo 5244  df-f1o 5245  df-fv 5246  df-ov 5903  df-oprab 5904  df-mpo 5905  df-1st 6169  df-2nd 6170  df-map 6680  df-pnf 8029  df-mnf 8030  df-ltxr 8032  df-inn 8955  df-2 9013  df-3 9014  df-ndx 12526  df-slot 12527  df-base 12529  df-sets 12530  df-plusg 12613  df-mulr 12614  df-mhm 12934  df-ghm 13205  df-mgp 13300  df-ur 13339  df-ring 13377  df-rhm 13527
This theorem is referenced by:  rhmrcl1  13530  rhmrcl2  13531  isrhm  13533  rhmfn  13547  rhmval  13548
  Copyright terms: Public domain W3C validator