MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  evlseu Structured version   Unicode version

Theorem evlseu 18682
Description: For a given interpretation of the variables  G and of the scalars  F, this extends to a homomorphic interpretation of the polynomial ring in exactly one way. (Contributed by Stefan O'Rear, 9-Mar-2015.)
Hypotheses
Ref Expression
evlseu.p  |-  P  =  ( I mPoly  R )
evlseu.c  |-  C  =  ( Base `  S
)
evlseu.a  |-  A  =  (algSc `  P )
evlseu.v  |-  V  =  ( I mVar  R )
evlseu.i  |-  ( ph  ->  I  e.  _V )
evlseu.r  |-  ( ph  ->  R  e.  CRing )
evlseu.s  |-  ( ph  ->  S  e.  CRing )
evlseu.f  |-  ( ph  ->  F  e.  ( R RingHom  S ) )
evlseu.g  |-  ( ph  ->  G : I --> C )
Assertion
Ref Expression
evlseu  |-  ( ph  ->  E! m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G ) )
Distinct variable groups:    A, m    m, F    m, G    m, I    P, m    ph, m    S, m    m, V
Allowed substitution hints:    C( m)    R( m)

Proof of Theorem evlseu
Dummy variables  n  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 evlseu.p . . . 4  |-  P  =  ( I mPoly  R )
2 eqid 2428 . . . 4  |-  ( Base `  P )  =  (
Base `  P )
3 evlseu.c . . . 4  |-  C  =  ( Base `  S
)
4 eqid 2428 . . . 4  |-  ( Base `  R )  =  (
Base `  R )
5 eqid 2428 . . . 4  |-  { z  e.  ( NN0  ^m  I )  |  ( `' z " NN )  e.  Fin }  =  { z  e.  ( NN0  ^m  I )  |  ( `' z
" NN )  e. 
Fin }
6 eqid 2428 . . . 4  |-  (mulGrp `  S )  =  (mulGrp `  S )
7 eqid 2428 . . . 4  |-  (.g `  (mulGrp `  S ) )  =  (.g `  (mulGrp `  S
) )
8 eqid 2428 . . . 4  |-  ( .r
`  S )  =  ( .r `  S
)
9 evlseu.v . . . 4  |-  V  =  ( I mVar  R )
10 eqid 2428 . . . 4  |-  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  =  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )
11 evlseu.i . . . 4  |-  ( ph  ->  I  e.  _V )
12 evlseu.r . . . 4  |-  ( ph  ->  R  e.  CRing )
13 evlseu.s . . . 4  |-  ( ph  ->  S  e.  CRing )
14 evlseu.f . . . 4  |-  ( ph  ->  F  e.  ( R RingHom  S ) )
15 evlseu.g . . . 4  |-  ( ph  ->  G : I --> C )
16 evlseu.a . . . 4  |-  A  =  (algSc `  P )
171, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16evlslem1 18681 . . 3  |-  ( ph  ->  ( ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  e.  ( P RingHom  S )  /\  (
( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  A )  =  F  /\  ( ( x  e.  ( Base `  P )  |->  ( S 
gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  V )  =  G ) )
18 coeq1 4954 . . . . . . 7  |-  ( m  =  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  ->  ( m  o.  A )  =  ( ( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  A ) )
1918eqeq1d 2430 . . . . . 6  |-  ( m  =  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  ->  ( (
m  o.  A )  =  F  <->  ( (
x  e.  ( Base `  P )  |->  ( S 
gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  A )  =  F ) )
20 coeq1 4954 . . . . . . 7  |-  ( m  =  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  ->  ( m  o.  V )  =  ( ( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  V ) )
2120eqeq1d 2430 . . . . . 6  |-  ( m  =  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  ->  ( (
m  o.  V )  =  G  <->  ( (
x  e.  ( Base `  P )  |->  ( S 
gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  V )  =  G ) )
2219, 21anbi12d 715 . . . . 5  |-  ( m  =  ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  ->  ( (
( m  o.  A
)  =  F  /\  ( m  o.  V
)  =  G )  <-> 
( ( ( x  e.  ( Base `  P
)  |->  ( S  gsumg  ( y  e.  { z  e.  ( NN0  ^m  I
)  |  ( `' z " NN )  e.  Fin }  |->  ( ( F `  (
x `  y )
) ( .r `  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S
) ) G ) ) ) ) ) )  o.  A )  =  F  /\  (
( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  V )  =  G ) ) )
2322rspcev 3125 . . . 4  |-  ( ( ( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  e.  ( P RingHom  S
)  /\  ( (
( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  A )  =  F  /\  ( ( x  e.  ( Base `  P )  |->  ( S 
gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  V )  =  G ) )  ->  E. m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G ) )
24233impb 1201 . . 3  |-  ( ( ( x  e.  (
Base `  P )  |->  ( S  gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  e.  ( P RingHom  S
)  /\  ( (
x  e.  ( Base `  P )  |->  ( S 
gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  A )  =  F  /\  ( ( x  e.  ( Base `  P )  |->  ( S 
gsumg  ( y  e.  {
z  e.  ( NN0 
^m  I )  |  ( `' z " NN )  e.  Fin } 
|->  ( ( F `  ( x `  y
) ) ( .r
`  S ) ( (mulGrp `  S )  gsumg  ( y  oF (.g `  (mulGrp `  S )
) G ) ) ) ) ) )  o.  V )  =  G )  ->  E. m  e.  ( P RingHom  S )
( ( m  o.  A )  =  F  /\  ( m  o.  V )  =  G ) )
2517, 24syl 17 . 2  |-  ( ph  ->  E. m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G ) )
26 crngring 17734 . . . . . . . . . . 11  |-  ( R  e.  CRing  ->  R  e.  Ring )
2712, 26syl 17 . . . . . . . . . 10  |-  ( ph  ->  R  e.  Ring )
28 eqid 2428 . . . . . . . . . . 11  |-  (Scalar `  P )  =  (Scalar `  P )
291mplring 18619 . . . . . . . . . . 11  |-  ( ( I  e.  _V  /\  R  e.  Ring )  ->  P  e.  Ring )
301mpllmod 18618 . . . . . . . . . . 11  |-  ( ( I  e.  _V  /\  R  e.  Ring )  ->  P  e.  LMod )
31 eqid 2428 . . . . . . . . . . 11  |-  ( Base `  (Scalar `  P )
)  =  ( Base `  (Scalar `  P )
)
3216, 28, 29, 30, 31, 2asclf 18504 . . . . . . . . . 10  |-  ( ( I  e.  _V  /\  R  e.  Ring )  ->  A : ( Base `  (Scalar `  P ) ) --> (
Base `  P )
)
3311, 27, 32syl2anc 665 . . . . . . . . 9  |-  ( ph  ->  A : ( Base `  (Scalar `  P )
) --> ( Base `  P
) )
34 ffun 5691 . . . . . . . . 9  |-  ( A : ( Base `  (Scalar `  P ) ) --> (
Base `  P )  ->  Fun  A )
3533, 34syl 17 . . . . . . . 8  |-  ( ph  ->  Fun  A )
36 funcoeqres 5804 . . . . . . . 8  |-  ( ( Fun  A  /\  (
m  o.  A )  =  F )  -> 
( m  |`  ran  A
)  =  ( F  o.  `' A ) )
3735, 36sylan 473 . . . . . . 7  |-  ( (
ph  /\  ( m  o.  A )  =  F )  ->  ( m  |` 
ran  A )  =  ( F  o.  `' A ) )
381, 9, 2, 11, 27mvrf2 18658 . . . . . . . . 9  |-  ( ph  ->  V : I --> ( Base `  P ) )
39 ffun 5691 . . . . . . . . 9  |-  ( V : I --> ( Base `  P )  ->  Fun  V )
4038, 39syl 17 . . . . . . . 8  |-  ( ph  ->  Fun  V )
41 funcoeqres 5804 . . . . . . . 8  |-  ( ( Fun  V  /\  (
m  o.  V )  =  G )  -> 
( m  |`  ran  V
)  =  ( G  o.  `' V ) )
4240, 41sylan 473 . . . . . . 7  |-  ( (
ph  /\  ( m  o.  V )  =  G )  ->  ( m  |` 
ran  V )  =  ( G  o.  `' V ) )
4337, 42anim12dan 845 . . . . . 6  |-  ( (
ph  /\  ( (
m  o.  A )  =  F  /\  (
m  o.  V )  =  G ) )  ->  ( ( m  |`  ran  A )  =  ( F  o.  `' A )  /\  (
m  |`  ran  V )  =  ( G  o.  `' V ) ) )
4443ex 435 . . . . 5  |-  ( ph  ->  ( ( ( m  o.  A )  =  F  /\  ( m  o.  V )  =  G )  ->  (
( m  |`  ran  A
)  =  ( F  o.  `' A )  /\  ( m  |`  ran  V )  =  ( G  o.  `' V
) ) ) )
45 resundi 5080 . . . . . 6  |-  ( m  |`  ( ran  A  u.  ran  V ) )  =  ( ( m  |`  ran  A )  u.  (
m  |`  ran  V ) )
46 uneq12 3558 . . . . . 6  |-  ( ( ( m  |`  ran  A
)  =  ( F  o.  `' A )  /\  ( m  |`  ran  V )  =  ( G  o.  `' V
) )  ->  (
( m  |`  ran  A
)  u.  ( m  |`  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V ) ) )
4745, 46syl5eq 2474 . . . . 5  |-  ( ( ( m  |`  ran  A
)  =  ( F  o.  `' A )  /\  ( m  |`  ran  V )  =  ( G  o.  `' V
) )  ->  (
m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V ) ) )
4844, 47syl6 34 . . . 4  |-  ( ph  ->  ( ( ( m  o.  A )  =  F  /\  ( m  o.  V )  =  G )  ->  (
m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V ) ) ) )
4948ralrimivw 2780 . . 3  |-  ( ph  ->  A. m  e.  ( P RingHom  S ) ( ( ( m  o.  A
)  =  F  /\  ( m  o.  V
)  =  G )  ->  ( m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) ) ) )
50 eqtr3 2449 . . . . . 6  |-  ( ( ( m  |`  ( ran  A  u.  ran  V
) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) )  /\  (
n  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V ) ) )  ->  ( m  |`  ( ran  A  u.  ran  V ) )  =  ( n  |`  ( ran  A  u.  ran  V ) ) )
51 eqid 2428 . . . . . . . . . . . . 13  |-  ( I mPwSer  R )  =  ( I mPwSer  R )
5251, 11, 12psrassa 18581 . . . . . . . . . . . 12  |-  ( ph  ->  ( I mPwSer  R )  e. AssAlg )
53 eqid 2428 . . . . . . . . . . . . . 14  |-  ( Base `  ( I mPwSer  R ) )  =  ( Base `  ( I mPwSer  R ) )
5451, 9, 53, 11, 27mvrf 18591 . . . . . . . . . . . . 13  |-  ( ph  ->  V : I --> ( Base `  ( I mPwSer  R ) ) )
55 frn 5695 . . . . . . . . . . . . 13  |-  ( V : I --> ( Base `  ( I mPwSer  R ) )  ->  ran  V  C_  ( Base `  ( I mPwSer  R ) ) )
5654, 55syl 17 . . . . . . . . . . . 12  |-  ( ph  ->  ran  V  C_  ( Base `  ( I mPwSer  R
) ) )
57 eqid 2428 . . . . . . . . . . . . 13  |-  (AlgSpan `  (
I mPwSer  R ) )  =  (AlgSpan `  ( I mPwSer  R ) )
58 eqid 2428 . . . . . . . . . . . . 13  |-  (algSc `  ( I mPwSer  R ) )  =  (algSc `  (
I mPwSer  R ) )
59 eqid 2428 . . . . . . . . . . . . 13  |-  (mrCls `  (SubRing `  ( I mPwSer  R
) ) )  =  (mrCls `  (SubRing `  (
I mPwSer  R ) ) )
6057, 58, 59, 53aspval2 18514 . . . . . . . . . . . 12  |-  ( ( ( I mPwSer  R )  e. AssAlg  /\  ran  V  C_  ( Base `  ( I mPwSer  R ) ) )  -> 
( (AlgSpan `  (
I mPwSer  R ) ) `  ran  V )  =  ( (mrCls `  (SubRing `  (
I mPwSer  R ) ) ) `
 ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V
) ) )
6152, 56, 60syl2anc 665 . . . . . . . . . . 11  |-  ( ph  ->  ( (AlgSpan `  (
I mPwSer  R ) ) `  ran  V )  =  ( (mrCls `  (SubRing `  (
I mPwSer  R ) ) ) `
 ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V
) ) )
621, 51, 9, 57, 11, 12mplbas2 18637 . . . . . . . . . . 11  |-  ( ph  ->  ( (AlgSpan `  (
I mPwSer  R ) ) `  ran  V )  =  (
Base `  P )
)
6351, 1, 2, 11, 27mplsubrg 18607 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( Base `  P
)  e.  (SubRing `  (
I mPwSer  R ) ) )
641, 51, 2mplval2 18598 . . . . . . . . . . . . . . . 16  |-  P  =  ( ( I mPwSer  R
)s  ( Base `  P
) )
6564subsubrg2 17978 . . . . . . . . . . . . . . 15  |-  ( (
Base `  P )  e.  (SubRing `  ( I mPwSer  R ) )  ->  (SubRing `  P )  =  ( (SubRing `  ( I mPwSer  R ) )  i^i  ~P ( Base `  P )
) )
6663, 65syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  (SubRing `  P )  =  ( (SubRing `  (
I mPwSer  R ) )  i^i 
~P ( Base `  P
) ) )
6766fveq2d 5829 . . . . . . . . . . . . 13  |-  ( ph  ->  (mrCls `  (SubRing `  P
) )  =  (mrCls `  ( (SubRing `  (
I mPwSer  R ) )  i^i 
~P ( Base `  P
) ) ) )
6858, 64ressascl 18511 . . . . . . . . . . . . . . . . 17  |-  ( (
Base `  P )  e.  (SubRing `  ( I mPwSer  R ) )  ->  (algSc `  ( I mPwSer  R ) )  =  (algSc `  P ) )
6963, 68syl 17 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  (algSc `  ( I mPwSer  R ) )  =  (algSc `  P ) )
7069, 16syl6reqr 2481 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  =  (algSc `  ( I mPwSer  R ) ) )
7170rneqd 5024 . . . . . . . . . . . . . 14  |-  ( ph  ->  ran  A  =  ran  (algSc `  ( I mPwSer  R
) ) )
7271uneq1d 3562 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ran  A  u.  ran  V )  =  ( ran  (algSc `  (
I mPwSer  R ) )  u. 
ran  V ) )
7367, 72fveq12d 5831 . . . . . . . . . . . 12  |-  ( ph  ->  ( (mrCls `  (SubRing `  P ) ) `  ( ran  A  u.  ran  V ) )  =  ( (mrCls `  ( (SubRing `  ( I mPwSer  R ) )  i^i  ~P ( Base `  P ) ) ) `  ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V ) ) )
74 assaring 18487 . . . . . . . . . . . . . 14  |-  ( ( I mPwSer  R )  e. AssAlg  ->  ( I mPwSer  R )  e.  Ring )
7553subrgmre 17975 . . . . . . . . . . . . . 14  |-  ( ( I mPwSer  R )  e. 
Ring  ->  (SubRing `  ( I mPwSer  R ) )  e.  (Moore `  ( Base `  (
I mPwSer  R ) ) ) )
7652, 74, 753syl 18 . . . . . . . . . . . . 13  |-  ( ph  ->  (SubRing `  ( I mPwSer  R ) )  e.  (Moore `  ( Base `  (
I mPwSer  R ) ) ) )
77 frn 5695 . . . . . . . . . . . . . . . 16  |-  ( A : ( Base `  (Scalar `  P ) ) --> (
Base `  P )  ->  ran  A  C_  ( Base `  P ) )
7833, 77syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ran  A  C_  ( Base `  P ) )
7971, 78eqsstr3d 3442 . . . . . . . . . . . . . 14  |-  ( ph  ->  ran  (algSc `  (
I mPwSer  R ) )  C_  ( Base `  P )
)
80 frn 5695 . . . . . . . . . . . . . . 15  |-  ( V : I --> ( Base `  P )  ->  ran  V 
C_  ( Base `  P
) )
8138, 80syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ran  V  C_  ( Base `  P ) )
8279, 81unssd 3585 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V ) 
C_  ( Base `  P
) )
83 eqid 2428 . . . . . . . . . . . . . 14  |-  (mrCls `  ( (SubRing `  ( I mPwSer  R ) )  i^i  ~P ( Base `  P )
) )  =  (mrCls `  ( (SubRing `  (
I mPwSer  R ) )  i^i 
~P ( Base `  P
) ) )
8459, 83submrc 15477 . . . . . . . . . . . . 13  |-  ( ( (SubRing `  ( I mPwSer  R ) )  e.  (Moore `  ( Base `  (
I mPwSer  R ) ) )  /\  ( Base `  P
)  e.  (SubRing `  (
I mPwSer  R ) )  /\  ( ran  (algSc `  (
I mPwSer  R ) )  u. 
ran  V )  C_  ( Base `  P )
)  ->  ( (mrCls `  ( (SubRing `  (
I mPwSer  R ) )  i^i 
~P ( Base `  P
) ) ) `  ( ran  (algSc `  (
I mPwSer  R ) )  u. 
ran  V ) )  =  ( (mrCls `  (SubRing `  ( I mPwSer  R
) ) ) `  ( ran  (algSc `  (
I mPwSer  R ) )  u. 
ran  V ) ) )
8576, 63, 82, 84syl3anc 1264 . . . . . . . . . . . 12  |-  ( ph  ->  ( (mrCls `  (
(SubRing `  ( I mPwSer  R
) )  i^i  ~P ( Base `  P )
) ) `  ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V ) )  =  ( (mrCls `  (SubRing `  (
I mPwSer  R ) ) ) `
 ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V
) ) )
8673, 85eqtr2d 2463 . . . . . . . . . . 11  |-  ( ph  ->  ( (mrCls `  (SubRing `  ( I mPwSer  R ) ) ) `  ( ran  (algSc `  ( I mPwSer  R ) )  u.  ran  V ) )  =  ( (mrCls `  (SubRing `  P
) ) `  ( ran  A  u.  ran  V
) ) )
8761, 62, 863eqtr3d 2470 . . . . . . . . . 10  |-  ( ph  ->  ( Base `  P
)  =  ( (mrCls `  (SubRing `  P )
) `  ( ran  A  u.  ran  V ) ) )
8887ad2antrr 730 . . . . . . . . 9  |-  ( ( ( ph  /\  (
m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
) )  /\  ( ran  A  u.  ran  V
)  C_  dom  ( m  i^i  n ) )  ->  ( Base `  P
)  =  ( (mrCls `  (SubRing `  P )
) `  ( ran  A  u.  ran  V ) ) )
8911, 27, 29syl2anc 665 . . . . . . . . . . . 12  |-  ( ph  ->  P  e.  Ring )
902subrgmre 17975 . . . . . . . . . . . 12  |-  ( P  e.  Ring  ->  (SubRing `  P
)  e.  (Moore `  ( Base `  P )
) )
9189, 90syl 17 . . . . . . . . . . 11  |-  ( ph  ->  (SubRing `  P )  e.  (Moore `  ( Base `  P ) ) )
9291ad2antrr 730 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
) )  /\  ( ran  A  u.  ran  V
)  C_  dom  ( m  i^i  n ) )  ->  (SubRing `  P )  e.  (Moore `  ( Base `  P ) ) )
93 simpr 462 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
) )  /\  ( ran  A  u.  ran  V
)  C_  dom  ( m  i^i  n ) )  ->  ( ran  A  u.  ran  V )  C_  dom  ( m  i^i  n
) )
94 rhmeql 17981 . . . . . . . . . . 11  |-  ( ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
)  ->  dom  ( m  i^i  n )  e.  (SubRing `  P )
)
9594ad2antlr 731 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
) )  /\  ( ran  A  u.  ran  V
)  C_  dom  ( m  i^i  n ) )  ->  dom  ( m  i^i  n )  e.  (SubRing `  P ) )
96 eqid 2428 . . . . . . . . . . 11  |-  (mrCls `  (SubRing `  P ) )  =  (mrCls `  (SubRing `  P ) )
9796mrcsscl 15469 . . . . . . . . . 10  |-  ( ( (SubRing `  P )  e.  (Moore `  ( Base `  P ) )  /\  ( ran  A  u.  ran  V )  C_  dom  ( m  i^i  n )  /\  dom  ( m  i^i  n
)  e.  (SubRing `  P
) )  ->  (
(mrCls `  (SubRing `  P
) ) `  ( ran  A  u.  ran  V
) )  C_  dom  ( m  i^i  n
) )
9892, 93, 95, 97syl3anc 1264 . . . . . . . . 9  |-  ( ( ( ph  /\  (
m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
) )  /\  ( ran  A  u.  ran  V
)  C_  dom  ( m  i^i  n ) )  ->  ( (mrCls `  (SubRing `  P ) ) `
 ( ran  A  u.  ran  V ) ) 
C_  dom  ( m  i^i  n ) )
9988, 98eqsstrd 3441 . . . . . . . 8  |-  ( ( ( ph  /\  (
m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S )
) )  /\  ( ran  A  u.  ran  V
)  C_  dom  ( m  i^i  n ) )  ->  ( Base `  P
)  C_  dom  ( m  i^i  n ) )
10099ex 435 . . . . . . 7  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ( ( ran 
A  u.  ran  V
)  C_  dom  ( m  i^i  n )  -> 
( Base `  P )  C_ 
dom  ( m  i^i  n ) ) )
101 simprl 762 . . . . . . . . 9  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  m  e.  ( P RingHom  S ) )
1022, 3rhmf 17897 . . . . . . . . 9  |-  ( m  e.  ( P RingHom  S
)  ->  m :
( Base `  P ) --> C )
103 ffn 5689 . . . . . . . . 9  |-  ( m : ( Base `  P
) --> C  ->  m  Fn  ( Base `  P
) )
104101, 102, 1033syl 18 . . . . . . . 8  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  m  Fn  ( Base `  P ) )
105 simprr 764 . . . . . . . . 9  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  n  e.  ( P RingHom  S ) )
1062, 3rhmf 17897 . . . . . . . . 9  |-  ( n  e.  ( P RingHom  S
)  ->  n :
( Base `  P ) --> C )
107 ffn 5689 . . . . . . . . 9  |-  ( n : ( Base `  P
) --> C  ->  n  Fn  ( Base `  P
) )
108105, 106, 1073syl 18 . . . . . . . 8  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  n  Fn  ( Base `  P ) )
10978adantr 466 . . . . . . . . 9  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ran  A  C_  ( Base `  P ) )
11081adantr 466 . . . . . . . . 9  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ran  V  C_  ( Base `  P ) )
111109, 110unssd 3585 . . . . . . . 8  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ( ran  A  u.  ran  V )  C_  ( Base `  P )
)
112 fnreseql 5951 . . . . . . . 8  |-  ( ( m  Fn  ( Base `  P )  /\  n  Fn  ( Base `  P
)  /\  ( ran  A  u.  ran  V ) 
C_  ( Base `  P
) )  ->  (
( m  |`  ( ran  A  u.  ran  V
) )  =  ( n  |`  ( ran  A  u.  ran  V ) )  <->  ( ran  A  u.  ran  V )  C_  dom  ( m  i^i  n
) ) )
113104, 108, 111, 112syl3anc 1264 . . . . . . 7  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ( ( m  |`  ( ran  A  u.  ran  V ) )  =  ( n  |`  ( ran  A  u.  ran  V
) )  <->  ( ran  A  u.  ran  V ) 
C_  dom  ( m  i^i  n ) ) )
114 fneqeql2 5950 . . . . . . . 8  |-  ( ( m  Fn  ( Base `  P )  /\  n  Fn  ( Base `  P
) )  ->  (
m  =  n  <->  ( Base `  P )  C_  dom  ( m  i^i  n
) ) )
115104, 108, 114syl2anc 665 . . . . . . 7  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ( m  =  n  <->  ( Base `  P
)  C_  dom  ( m  i^i  n ) ) )
116100, 113, 1153imtr4d 271 . . . . . 6  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ( ( m  |`  ( ran  A  u.  ran  V ) )  =  ( n  |`  ( ran  A  u.  ran  V
) )  ->  m  =  n ) )
11750, 116syl5 33 . . . . 5  |-  ( (
ph  /\  ( m  e.  ( P RingHom  S )  /\  n  e.  ( P RingHom  S ) ) )  ->  ( ( ( m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A
)  u.  ( G  o.  `' V ) )  /\  ( n  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) ) )  ->  m  =  n )
)
118117ralrimivva 2786 . . . 4  |-  ( ph  ->  A. m  e.  ( P RingHom  S ) A. n  e.  ( P RingHom  S )
( ( ( m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) )  /\  (
n  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V ) ) )  ->  m  =  n ) )
119 reseq1 5061 . . . . . 6  |-  ( m  =  n  ->  (
m  |`  ( ran  A  u.  ran  V ) )  =  ( n  |`  ( ran  A  u.  ran  V ) ) )
120119eqeq1d 2430 . . . . 5  |-  ( m  =  n  ->  (
( m  |`  ( ran  A  u.  ran  V
) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) )  <->  ( n  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) ) ) )
121120rmo4 3206 . . . 4  |-  ( E* m  e.  ( P RingHom  S ) ( m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) )  <->  A. m  e.  ( P RingHom  S ) A. n  e.  ( P RingHom  S ) ( ( ( m  |`  ( ran  A  u.  ran  V
) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) )  /\  (
n  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V ) ) )  ->  m  =  n ) )
122118, 121sylibr 215 . . 3  |-  ( ph  ->  E* m  e.  ( P RingHom  S ) ( m  |`  ( ran  A  u.  ran  V ) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) ) )
123 rmoim 3214 . . 3  |-  ( A. m  e.  ( P RingHom  S ) ( ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G )  -> 
( m  |`  ( ran  A  u.  ran  V
) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) ) )  -> 
( E* m  e.  ( P RingHom  S )
( m  |`  ( ran  A  u.  ran  V
) )  =  ( ( F  o.  `' A )  u.  ( G  o.  `' V
) )  ->  E* m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  ( m  o.  V )  =  G ) ) )
12449, 122, 123sylc 62 . 2  |-  ( ph  ->  E* m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G ) )
125 reu5 2985 . 2  |-  ( E! m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G )  <->  ( E. m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  ( m  o.  V )  =  G )  /\  E* m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  ( m  o.  V )  =  G ) ) )
12625, 124, 125sylanbrc 668 1  |-  ( ph  ->  E! m  e.  ( P RingHom  S ) ( ( m  o.  A )  =  F  /\  (
m  o.  V )  =  G ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 187    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1872   A.wral 2714   E.wrex 2715   E!wreu 2716   E*wrmo 2717   {crab 2718   _Vcvv 3022    u. cun 3377    i^i cin 3378    C_ wss 3379   ~Pcpw 3924    |-> cmpt 4425   `'ccnv 4795   dom cdm 4796   ran crn 4797    |` cres 4798   "cima 4799    o. ccom 4800   Fun wfun 5538    Fn wfn 5539   -->wf 5540   ` cfv 5544  (class class class)co 6249    oFcof 6487    ^m cmap 7427   Fincfn 7524   NNcn 10560   NN0cn0 10820   Basecbs 15064   .rcmulr 15134  Scalarcsca 15136    gsumg cgsu 15282  Moorecmre 15431  mrClscmrc 15432  .gcmg 16615  mulGrpcmgp 17666   Ringcrg 17723   CRingccrg 17724   RingHom crh 17883  SubRingcsubrg 17947  AssAlgcasa 18476  AlgSpancasp 18477  algSccascl 18478   mPwSer cmps 18518   mVar cmvr 18519   mPoly cmpl 18520
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2063  ax-ext 2408  ax-rep 4479  ax-sep 4489  ax-nul 4498  ax-pow 4545  ax-pr 4603  ax-un 6541  ax-inf2 8099  ax-cnex 9546  ax-resscn 9547  ax-1cn 9548  ax-icn 9549  ax-addcl 9550  ax-addrcl 9551  ax-mulcl 9552  ax-mulrcl 9553  ax-mulcom 9554  ax-addass 9555  ax-mulass 9556  ax-distr 9557  ax-i2m1 9558  ax-1ne0 9559  ax-1rid 9560  ax-rnegex 9561  ax-rrecex 9562  ax-cnre 9563  ax-pre-lttri 9564  ax-pre-lttrn 9565  ax-pre-ltadd 9566  ax-pre-mulgt0 9567
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2280  df-mo 2281  df-clab 2415  df-cleq 2421  df-clel 2424  df-nfc 2558  df-ne 2601  df-nel 2602  df-ral 2719  df-rex 2720  df-reu 2721  df-rmo 2722  df-rab 2723  df-v 3024  df-sbc 3243  df-csb 3339  df-dif 3382  df-un 3384  df-in 3386  df-ss 3393  df-pss 3395  df-nul 3705  df-if 3855  df-pw 3926  df-sn 3942  df-pr 3944  df-tp 3946  df-op 3948  df-uni 4163  df-int 4199  df-iun 4244  df-iin 4245  df-br 4367  df-opab 4426  df-mpt 4427  df-tr 4462  df-eprel 4707  df-id 4711  df-po 4717  df-so 4718  df-fr 4755  df-se 4756  df-we 4757  df-xp 4802  df-rel 4803  df-cnv 4804  df-co 4805  df-dm 4806  df-rn 4807  df-res 4808  df-ima 4809  df-pred 5342  df-ord 5388  df-on 5389  df-lim 5390  df-suc 5391  df-iota 5508  df-fun 5546  df-fn 5547  df-f 5548  df-f1 5549  df-fo 5550  df-f1o 5551  df-fv 5552  df-isom 5553  df-riota 6211  df-ov 6252  df-oprab 6253  df-mpt2 6254  df-of 6489  df-ofr 6490  df-om 6651  df-1st 6751  df-2nd 6752  df-supp 6870  df-wrecs 6983  df-recs 7045  df-rdg 7083  df-1o 7137  df-2o 7138  df-oadd 7141  df-er 7318  df-map 7429  df-pm 7430  df-ixp 7478  df-en 7525  df-dom 7526  df-sdom 7527  df-fin 7528  df-fsupp 7837  df-oi 7978  df-card 8325  df-pnf 9628  df-mnf 9629  df-xr 9630  df-ltxr 9631  df-le 9632  df-sub 9813  df-neg 9814  df-nn 10561  df-2 10619  df-3 10620  df-4 10621  df-5 10622  df-6 10623  df-7 10624  df-8 10625  df-9 10626  df-n0 10821  df-z 10889  df-uz 11111  df-fz 11736  df-fzo 11867  df-seq 12164  df-hash 12466  df-struct 15066  df-ndx 15067  df-slot 15068  df-base 15069  df-sets 15070  df-ress 15071  df-plusg 15146  df-mulr 15147  df-sca 15149  df-vsca 15150  df-tset 15152  df-0g 15283  df-gsum 15284  df-mre 15435  df-mrc 15436  df-acs 15438  df-mgm 16431  df-sgrp 16470  df-mnd 16480  df-mhm 16525  df-submnd 16526  df-grp 16616  df-minusg 16617  df-sbg 16618  df-mulg 16619  df-subg 16757  df-ghm 16824  df-cntz 16914  df-cmn 17375  df-abl 17376  df-mgp 17667  df-ur 17679  df-srg 17683  df-ring 17725  df-cring 17726  df-rnghom 17886  df-subrg 17949  df-lmod 18036  df-lss 18099  df-lsp 18138  df-assa 18479  df-asp 18480  df-ascl 18481  df-psr 18523  df-mvr 18524  df-mpl 18525
This theorem is referenced by:  evlsval2  18686
  Copyright terms: Public domain W3C validator