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

Theorem mplsubrglemOLD 18233
Description: Lemma for mplsubrg 18234. (Contributed by Mario Carneiro, 9-Jan-2015.) Obsolete version of mplsubrglem 18232 as of 18-Jul-2019. (New usage is discouraged.) (Proof modification is discouraged.)
Hypotheses
Ref Expression
mplsubg.s  |-  S  =  ( I mPwSer  R )
mplsubg.p  |-  P  =  ( I mPoly  R )
mplsubg.u  |-  U  =  ( Base `  P
)
mplsubg.i  |-  ( ph  ->  I  e.  W )
mpllss.r  |-  ( ph  ->  R  e.  Ring )
mplsubrglemOL.d  |-  D  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
mplsubrglemOLD.z  |-  .0.  =  ( 0g `  R )
mplsubrglemOLD.p  |-  A  =  (  oF  +  " ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )
mplsubrglemOLD.t  |-  .x.  =  ( .r `  R )
mplsubrglemOLD.x  |-  ( ph  ->  X  e.  U )
mplsubrglemOLD.y  |-  ( ph  ->  Y  e.  U )
Assertion
Ref Expression
mplsubrglemOLD  |-  ( ph  ->  ( X ( .r
`  S ) Y )  e.  U )
Distinct variable groups:    f, I    R, f    S, f    f, X   
f, Y    .0. , f
Allowed substitution hints:    ph( f)    A( f)    D( f)    P( f)    .x. ( f)    U( f)    W( f)

Proof of Theorem mplsubrglemOLD
Dummy variables  k  n  x  g  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mplsubg.s . . 3  |-  S  =  ( I mPwSer  R )
2 eqid 2392 . . 3  |-  ( Base `  S )  =  (
Base `  S )
3 eqid 2392 . . 3  |-  ( .r
`  S )  =  ( .r `  S
)
4 mpllss.r . . 3  |-  ( ph  ->  R  e.  Ring )
5 mplsubg.p . . . . 5  |-  P  =  ( I mPoly  R )
6 mplsubg.u . . . . 5  |-  U  =  ( Base `  P
)
75, 1, 6, 2mplbasss 18223 . . . 4  |-  U  C_  ( Base `  S )
8 mplsubrglemOLD.x . . . 4  |-  ( ph  ->  X  e.  U )
97, 8sseldi 3428 . . 3  |-  ( ph  ->  X  e.  ( Base `  S ) )
10 mplsubrglemOLD.y . . . 4  |-  ( ph  ->  Y  e.  U )
117, 10sseldi 3428 . . 3  |-  ( ph  ->  Y  e.  ( Base `  S ) )
121, 2, 3, 4, 9, 11psrmulcl 18173 . 2  |-  ( ph  ->  ( X ( .r
`  S ) Y )  e.  ( Base `  S ) )
13 mplsubrglemOLD.p . . . . 5  |-  A  =  (  oF  +  " ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )
14 df-ima 4939 . . . . 5  |-  (  oF  +  " (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  =  ran  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )
1513, 14eqtri 2421 . . . 4  |-  A  =  ran  (  oF  +  |`  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) )
16 mplsubrglemOLD.z . . . . . . . . 9  |-  .0.  =  ( 0g `  R )
175, 1, 2, 16, 6mplelbasOLD 18221 . . . . . . . 8  |-  ( X  e.  U  <->  ( X  e.  ( Base `  S
)  /\  ( `' X " ( _V  \  {  .0.  } ) )  e.  Fin ) )
1817simprbi 462 . . . . . . 7  |-  ( X  e.  U  ->  ( `' X " ( _V 
\  {  .0.  }
) )  e.  Fin )
198, 18syl 16 . . . . . 6  |-  ( ph  ->  ( `' X "
( _V  \  {  .0.  } ) )  e. 
Fin )
205, 1, 2, 16, 6mplelbasOLD 18221 . . . . . . . 8  |-  ( Y  e.  U  <->  ( Y  e.  ( Base `  S
)  /\  ( `' Y " ( _V  \  {  .0.  } ) )  e.  Fin ) )
2120simprbi 462 . . . . . . 7  |-  ( Y  e.  U  ->  ( `' Y " ( _V 
\  {  .0.  }
) )  e.  Fin )
2210, 21syl 16 . . . . . 6  |-  ( ph  ->  ( `' Y "
( _V  \  {  .0.  } ) )  e. 
Fin )
23 xpfi 7724 . . . . . 6  |-  ( ( ( `' X "
( _V  \  {  .0.  } ) )  e. 
Fin  /\  ( `' Y " ( _V  \  {  .0.  } ) )  e.  Fin )  -> 
( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) )  e.  Fin )
2419, 22, 23syl2anc 659 . . . . 5  |-  ( ph  ->  ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) )  e.  Fin )
25 ofmres 6713 . . . . . . 7  |-  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  =  ( f  e.  ( `' X " ( _V  \  {  .0.  } ) ) ,  g  e.  ( `' Y " ( _V 
\  {  .0.  }
) )  |->  ( f  oF  +  g ) )
26 ovex 6242 . . . . . . 7  |-  ( f  oF  +  g )  e.  _V
2725, 26fnmpt2i 6786 . . . . . 6  |-  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  Fn  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) )
28 dffn4 5722 . . . . . 6  |-  ( (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  Fn  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  <->  (  oF  +  |`  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) ) : ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) -onto-> ran  (  oF  +  |`  ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) )
2927, 28mpbi 208 . . . . 5  |-  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) : ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) -onto-> ran  (  oF  +  |`  ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )
30 fofi 7739 . . . . 5  |-  ( ( ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) )  e.  Fin  /\  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) : ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) -onto-> ran  (  oF  +  |`  ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) )  ->  ran  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  e.  Fin )
3124, 29, 30sylancl 660 . . . 4  |-  ( ph  ->  ran  (  oF  +  |`  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) )  e.  Fin )
3215, 31syl5eqel 2484 . . 3  |-  ( ph  ->  A  e.  Fin )
33 eqid 2392 . . . . 5  |-  ( Base `  R )  =  (
Base `  R )
34 mplsubrglemOL.d . . . . 5  |-  D  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
351, 33, 34, 2, 12psrelbas 18164 . . . 4  |-  ( ph  ->  ( X ( .r
`  S ) Y ) : D --> ( Base `  R ) )
36 mplsubrglemOLD.t . . . . . 6  |-  .x.  =  ( .r `  R )
379adantr 463 . . . . . 6  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  X  e.  ( Base `  S )
)
3811adantr 463 . . . . . 6  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  Y  e.  ( Base `  S )
)
39 eldifi 3553 . . . . . . 7  |-  ( k  e.  ( D  \  A )  ->  k  e.  D )
4039adantl 464 . . . . . 6  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  k  e.  D )
411, 2, 36, 3, 34, 37, 38, 40psrmulval 18171 . . . . 5  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  ( ( X ( .r `  S ) Y ) `
 k )  =  ( R  gsumg  ( x  e.  {
y  e.  D  | 
y  oR  <_ 
k }  |->  ( ( X `  x ) 
.x.  ( Y `  ( k  oF  -  x ) ) ) ) ) )
424ad2antrr 723 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  R  e.  Ring )
435, 33, 6, 34, 10mplelf 18224 . . . . . . . . . . . 12  |-  ( ph  ->  Y : D --> ( Base `  R ) )
4443ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  Y : D --> ( Base `  R ) )
45 ssrab2 3512 . . . . . . . . . . . 12  |-  { y  e.  D  |  y  oR  <_  k }  C_  D
46 mplsubg.i . . . . . . . . . . . . . 14  |-  ( ph  ->  I  e.  W )
4746ad2antrr 723 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  I  e.  W )
4840adantr 463 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
k  e.  D )
49 simpr 459 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  x  e.  { y  e.  D  |  y  oR  <_  k } )
50 eqid 2392 . . . . . . . . . . . . . 14  |-  { y  e.  D  |  y  oR  <_  k }  =  { y  e.  D  |  y  oR  <_  k }
5134, 50psrbagconcl 18157 . . . . . . . . . . . . 13  |-  ( ( I  e.  W  /\  k  e.  D  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  ->  ( k  oF  -  x
)  e.  { y  e.  D  |  y  oR  <_  k } )
5247, 48, 49, 51syl3anc 1226 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( k  oF  -  x )  e. 
{ y  e.  D  |  y  oR 
<_  k } )
5345, 52sseldi 3428 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( k  oF  -  x )  e.  D )
5444, 53ffvelrnd 5947 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( Y `  (
k  oF  -  x ) )  e.  ( Base `  R
) )
5533, 36, 16ringlz 17367 . . . . . . . . . 10  |-  ( ( R  e.  Ring  /\  ( Y `  ( k  oF  -  x
) )  e.  (
Base `  R )
)  ->  (  .0.  .x.  ( Y `  (
k  oF  -  x ) ) )  =  .0.  )
5642, 54, 55syl2anc 659 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
(  .0.  .x.  ( Y `  ( k  oF  -  x
) ) )  =  .0.  )
57 oveq1 6221 . . . . . . . . . 10  |-  ( ( X `  x )  =  .0.  ->  (
( X `  x
)  .x.  ( Y `  ( k  oF  -  x ) ) )  =  (  .0. 
.x.  ( Y `  ( k  oF  -  x ) ) ) )
5857eqeq1d 2394 . . . . . . . . 9  |-  ( ( X `  x )  =  .0.  ->  (
( ( X `  x )  .x.  ( Y `  ( k  oF  -  x
) ) )  =  .0.  <->  (  .0.  .x.  ( Y `  ( k  oF  -  x
) ) )  =  .0.  ) )
5956, 58syl5ibrcom 222 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( X `  x )  =  .0. 
->  ( ( X `  x )  .x.  ( Y `  ( k  oF  -  x
) ) )  =  .0.  ) )
605, 33, 6, 34, 8mplelf 18224 . . . . . . . . . . . 12  |-  ( ph  ->  X : D --> ( Base `  R ) )
6160ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  X : D --> ( Base `  R ) )
6245, 49sseldi 3428 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  x  e.  D )
6361, 62ffvelrnd 5947 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( X `  x
)  e.  ( Base `  R ) )
6433, 36, 16ringrz 17368 . . . . . . . . . 10  |-  ( ( R  e.  Ring  /\  ( X `  x )  e.  ( Base `  R
) )  ->  (
( X `  x
)  .x.  .0.  )  =  .0.  )
6542, 63, 64syl2anc 659 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( X `  x )  .x.  .0.  )  =  .0.  )
66 oveq2 6222 . . . . . . . . . 10  |-  ( ( Y `  ( k  oF  -  x
) )  =  .0. 
->  ( ( X `  x )  .x.  ( Y `  ( k  oF  -  x
) ) )  =  ( ( X `  x )  .x.  .0.  ) )
6766eqeq1d 2394 . . . . . . . . 9  |-  ( ( Y `  ( k  oF  -  x
) )  =  .0. 
->  ( ( ( X `
 x )  .x.  ( Y `  ( k  oF  -  x
) ) )  =  .0.  <->  ( ( X `
 x )  .x.  .0.  )  =  .0.  ) )
6865, 67syl5ibrcom 222 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( Y `  ( k  oF  -  x ) )  =  .0.  ->  (
( X `  x
)  .x.  ( Y `  ( k  oF  -  x ) ) )  =  .0.  )
)
6934psrbagf 18146 . . . . . . . . . . . . . . . . . 18  |-  ( ( I  e.  W  /\  x  e.  D )  ->  x : I --> NN0 )
7047, 62, 69syl2anc 659 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  x : I --> NN0 )
7170ffvelrnda 5946 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  ( D  \  A ) )  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  /\  n  e.  I )  ->  (
x `  n )  e.  NN0 )
7234psrbagf 18146 . . . . . . . . . . . . . . . . . 18  |-  ( ( I  e.  W  /\  k  e.  D )  ->  k : I --> NN0 )
7347, 48, 72syl2anc 659 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
k : I --> NN0 )
7473ffvelrnda 5946 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  ( D  \  A ) )  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  /\  n  e.  I )  ->  (
k `  n )  e.  NN0 )
75 nn0cn 10740 . . . . . . . . . . . . . . . . 17  |-  ( ( x `  n )  e.  NN0  ->  ( x `
 n )  e.  CC )
76 nn0cn 10740 . . . . . . . . . . . . . . . . 17  |-  ( ( k `  n )  e.  NN0  ->  ( k `
 n )  e.  CC )
77 pncan3 9759 . . . . . . . . . . . . . . . . 17  |-  ( ( ( x `  n
)  e.  CC  /\  ( k `  n
)  e.  CC )  ->  ( ( x `
 n )  +  ( ( k `  n )  -  (
x `  n )
) )  =  ( k `  n ) )
7875, 76, 77syl2an 475 . . . . . . . . . . . . . . . 16  |-  ( ( ( x `  n
)  e.  NN0  /\  ( k `  n
)  e.  NN0 )  ->  ( ( x `  n )  +  ( ( k `  n
)  -  ( x `
 n ) ) )  =  ( k `
 n ) )
7971, 74, 78syl2anc 659 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  ( D  \  A ) )  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  /\  n  e.  I )  ->  (
( x `  n
)  +  ( ( k `  n )  -  ( x `  n ) ) )  =  ( k `  n ) )
8079mpteq2dva 4466 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( n  e.  I  |->  ( ( x `  n )  +  ( ( k `  n
)  -  ( x `
 n ) ) ) )  =  ( n  e.  I  |->  ( k `  n ) ) )
81 ovex 6242 . . . . . . . . . . . . . . . 16  |-  ( ( k `  n )  -  ( x `  n ) )  e. 
_V
8281a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  ( D  \  A ) )  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  /\  n  e.  I )  ->  (
( k `  n
)  -  ( x `
 n ) )  e.  _V )
8370feqmptd 5840 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  x  =  ( n  e.  I  |->  ( x `
 n ) ) )
8473feqmptd 5840 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
k  =  ( n  e.  I  |->  ( k `
 n ) ) )
8547, 74, 71, 84, 83offval2 6473 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( k  oF  -  x )  =  ( n  e.  I  |->  ( ( k `  n )  -  (
x `  n )
) ) )
8647, 71, 82, 83, 85offval2 6473 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( x  oF  +  ( k  oF  -  x ) )  =  ( n  e.  I  |->  ( ( x `  n )  +  ( ( k `
 n )  -  ( x `  n
) ) ) ) )
8780, 86, 843eqtr4d 2443 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( x  oF  +  ( k  oF  -  x ) )  =  k )
88 simplr 753 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
k  e.  ( D 
\  A ) )
8987, 88eqeltrd 2480 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( x  oF  +  ( k  oF  -  x ) )  e.  ( D 
\  A ) )
9089eldifbd 3415 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  -.  ( x  oF  +  ( k  oF  -  x ) )  e.  A )
91 ovres 6359 . . . . . . . . . . . 12  |-  ( ( x  e.  ( `' X " ( _V 
\  {  .0.  }
) )  /\  (
k  oF  -  x )  e.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  -> 
( x (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) ( k  oF  -  x ) )  =  ( x  oF  +  ( k  oF  -  x ) ) )
92 fnovrn 6367 . . . . . . . . . . . . . 14  |-  ( ( (  oF  +  |`  ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  Fn  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  /\  x  e.  ( `' X " ( _V  \  {  .0.  } ) )  /\  ( k  oF  -  x )  e.  ( `' Y " ( _V  \  {  .0.  } ) ) )  ->  ( x (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) ( k  oF  -  x ) )  e.  ran  (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) )
9392, 15syl6eleqr 2491 . . . . . . . . . . . . 13  |-  ( ( (  oF  +  |`  ( ( `' X " ( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )  Fn  ( ( `' X " ( _V 
\  {  .0.  }
) )  X.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  /\  x  e.  ( `' X " ( _V  \  {  .0.  } ) )  /\  ( k  oF  -  x )  e.  ( `' Y " ( _V  \  {  .0.  } ) ) )  ->  ( x (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) ( k  oF  -  x ) )  e.  A )
9427, 93mp3an1 1309 . . . . . . . . . . . 12  |-  ( ( x  e.  ( `' X " ( _V 
\  {  .0.  }
) )  /\  (
k  oF  -  x )  e.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  -> 
( x (  oF  +  |`  (
( `' X "
( _V  \  {  .0.  } ) )  X.  ( `' Y "
( _V  \  {  .0.  } ) ) ) ) ( k  oF  -  x ) )  e.  A )
9591, 94eqeltrrd 2481 . . . . . . . . . . 11  |-  ( ( x  e.  ( `' X " ( _V 
\  {  .0.  }
) )  /\  (
k  oF  -  x )  e.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  -> 
( x  oF  +  ( k  oF  -  x ) )  e.  A )
9690, 95nsyl 121 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  ->  -.  ( x  e.  ( `' X " ( _V 
\  {  .0.  }
) )  /\  (
k  oF  -  x )  e.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) )
97 ianor 486 . . . . . . . . . 10  |-  ( -.  ( x  e.  ( `' X " ( _V 
\  {  .0.  }
) )  /\  (
k  oF  -  x )  e.  ( `' Y " ( _V 
\  {  .0.  }
) ) )  <->  ( -.  x  e.  ( `' X " ( _V  \  {  .0.  } ) )  \/  -.  ( k  oF  -  x
)  e.  ( `' Y " ( _V 
\  {  .0.  }
) ) ) )
9896, 97sylib 196 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( -.  x  e.  ( `' X "
( _V  \  {  .0.  } ) )  \/ 
-.  ( k  oF  -  x )  e.  ( `' Y " ( _V  \  {  .0.  } ) ) ) )
99 eldif 3412 . . . . . . . . . . . . 13  |-  ( x  e.  ( D  \ 
( `' X "
( _V  \  {  .0.  } ) ) )  <-> 
( x  e.  D  /\  -.  x  e.  ( `' X " ( _V 
\  {  .0.  }
) ) ) )
10099baib 901 . . . . . . . . . . . 12  |-  ( x  e.  D  ->  (
x  e.  ( D 
\  ( `' X " ( _V  \  {  .0.  } ) ) )  <->  -.  x  e.  ( `' X " ( _V 
\  {  .0.  }
) ) ) )
10162, 100syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( x  e.  ( D  \  ( `' X " ( _V 
\  {  .0.  }
) ) )  <->  -.  x  e.  ( `' X "
( _V  \  {  .0.  } ) ) ) )
102 ssid 3449 . . . . . . . . . . . . . 14  |-  ( `' X " ( _V 
\  {  .0.  }
) )  C_  ( `' X " ( _V 
\  {  .0.  }
) )
103102a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( `' X "
( _V  \  {  .0.  } ) )  C_  ( `' X " ( _V 
\  {  .0.  }
) ) )
10461, 103suppssrOLD 5936 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  ( D  \  A ) )  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  /\  x  e.  ( D  \  ( `' X " ( _V 
\  {  .0.  }
) ) ) )  ->  ( X `  x )  =  .0.  )
105104ex 432 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( x  e.  ( D  \  ( `' X " ( _V 
\  {  .0.  }
) ) )  -> 
( X `  x
)  =  .0.  )
)
106101, 105sylbird 235 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( -.  x  e.  ( `' X "
( _V  \  {  .0.  } ) )  -> 
( X `  x
)  =  .0.  )
)
107 eldif 3412 . . . . . . . . . . . . 13  |-  ( ( k  oF  -  x )  e.  ( D  \  ( `' Y " ( _V 
\  {  .0.  }
) ) )  <->  ( (
k  oF  -  x )  e.  D  /\  -.  ( k  oF  -  x )  e.  ( `' Y " ( _V  \  {  .0.  } ) ) ) )
108107baib 901 . . . . . . . . . . . 12  |-  ( ( k  oF  -  x )  e.  D  ->  ( ( k  oF  -  x )  e.  ( D  \ 
( `' Y "
( _V  \  {  .0.  } ) ) )  <->  -.  ( k  oF  -  x )  e.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )
10953, 108syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( k  oF  -  x )  e.  ( D  \ 
( `' Y "
( _V  \  {  .0.  } ) ) )  <->  -.  ( k  oF  -  x )  e.  ( `' Y "
( _V  \  {  .0.  } ) ) ) )
110 ssid 3449 . . . . . . . . . . . . . 14  |-  ( `' Y " ( _V 
\  {  .0.  }
) )  C_  ( `' Y " ( _V 
\  {  .0.  }
) )
111110a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( `' Y "
( _V  \  {  .0.  } ) )  C_  ( `' Y " ( _V 
\  {  .0.  }
) ) )
11244, 111suppssrOLD 5936 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  k  e.  ( D  \  A ) )  /\  x  e.  { y  e.  D  |  y  oR  <_  k } )  /\  ( k  oF  -  x
)  e.  ( D 
\  ( `' Y " ( _V  \  {  .0.  } ) ) ) )  ->  ( Y `  ( k  oF  -  x ) )  =  .0.  )
113112ex 432 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( k  oF  -  x )  e.  ( D  \ 
( `' Y "
( _V  \  {  .0.  } ) ) )  ->  ( Y `  ( k  oF  -  x ) )  =  .0.  ) )
114109, 113sylbird 235 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( -.  ( k  oF  -  x
)  e.  ( `' Y " ( _V 
\  {  .0.  }
) )  ->  ( Y `  ( k  oF  -  x
) )  =  .0.  ) )
115106, 114orim12d 836 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( -.  x  e.  ( `' X "
( _V  \  {  .0.  } ) )  \/ 
-.  ( k  oF  -  x )  e.  ( `' Y " ( _V  \  {  .0.  } ) ) )  ->  ( ( X `
 x )  =  .0.  \/  ( Y `
 ( k  oF  -  x ) )  =  .0.  )
) )
11698, 115mpd 15 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( X `  x )  =  .0. 
\/  ( Y `  ( k  oF  -  x ) )  =  .0.  ) )
11759, 68, 116mpjaod 379 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  ( D  \  A
) )  /\  x  e.  { y  e.  D  |  y  oR 
<_  k } )  -> 
( ( X `  x )  .x.  ( Y `  ( k  oF  -  x
) ) )  =  .0.  )
118117mpteq2dva 4466 . . . . . 6  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  ( x  e.  { y  e.  D  |  y  oR 
<_  k }  |->  ( ( X `  x ) 
.x.  ( Y `  ( k  oF  -  x ) ) ) )  =  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  .0.  ) )
119118oveq2d 6230 . . . . 5  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  ( R  gsumg  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  ( ( X `
 x )  .x.  ( Y `  ( k  oF  -  x
) ) ) ) )  =  ( R 
gsumg  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  .0.  ) )
)
1204adantr 463 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  R  e.  Ring )
121 ringmnd 17339 . . . . . . 7  |-  ( R  e.  Ring  ->  R  e. 
Mnd )
122120, 121syl 16 . . . . . 6  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  R  e.  Mnd )
12334psrbaglefi 18155 . . . . . . 7  |-  ( ( I  e.  W  /\  k  e.  D )  ->  { y  e.  D  |  y  oR 
<_  k }  e.  Fin )
12446, 39, 123syl2an 475 . . . . . 6  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  { y  e.  D  |  y  oR  <_  k }  e.  Fin )
12516gsumz 16141 . . . . . 6  |-  ( ( R  e.  Mnd  /\  { y  e.  D  | 
y  oR  <_ 
k }  e.  Fin )  ->  ( R  gsumg  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  .0.  ) )  =  .0.  )
126122, 124, 125syl2anc 659 . . . . 5  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  ( R  gsumg  ( x  e.  { y  e.  D  |  y  oR  <_  k }  |->  .0.  ) )  =  .0.  )
12741, 119, 1263eqtrd 2437 . . . 4  |-  ( (
ph  /\  k  e.  ( D  \  A ) )  ->  ( ( X ( .r `  S ) Y ) `
 k )  =  .0.  )
12835, 127suppssOLD 5935 . . 3  |-  ( ph  ->  ( `' ( X ( .r `  S
) Y ) "
( _V  \  {  .0.  } ) )  C_  A )
129 ssfi 7674 . . 3  |-  ( ( A  e.  Fin  /\  ( `' ( X ( .r `  S ) Y ) " ( _V  \  {  .0.  }
) )  C_  A
)  ->  ( `' ( X ( .r `  S ) Y )
" ( _V  \  {  .0.  } ) )  e.  Fin )
13032, 128, 129syl2anc 659 . 2  |-  ( ph  ->  ( `' ( X ( .r `  S
) Y ) "
( _V  \  {  .0.  } ) )  e. 
Fin )
1315, 1, 2, 16, 6mplelbasOLD 18221 . 2  |-  ( ( X ( .r `  S ) Y )  e.  U  <->  ( ( X ( .r `  S ) Y )  e.  ( Base `  S
)  /\  ( `' ( X ( .r `  S ) Y )
" ( _V  \  {  .0.  } ) )  e.  Fin ) )
13212, 130, 131sylanbrc 662 1  |-  ( ph  ->  ( X ( .r
`  S ) Y )  e.  U )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    \/ wo 366    /\ wa 367    /\ w3a 971    = wceq 1399    e. wcel 1836   {crab 2746   _Vcvv 3047    \ cdif 3399    C_ wss 3402   {csn 3957   class class class wbr 4380    |-> cmpt 4438    X. cxp 4924   `'ccnv 4925   ran crn 4927    |` cres 4928   "cima 4929    Fn wfn 5504   -->wf 5505   -onto->wfo 5507   ` cfv 5509  (class class class)co 6214    oFcof 6455    oRcofr 6456    ^m cmap 7356   Fincfn 7453   CCcc 9419    + caddc 9424    <_ cle 9558    - cmin 9736   NNcn 10470   NN0cn0 10730   Basecbs 14653   .rcmulr 14722   0gc0g 14866    gsumg cgsu 14867   Mndcmnd 16055   Ringcrg 17330   mPwSer cmps 18132   mPoly cmpl 18134
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1633  ax-4 1646  ax-5 1719  ax-6 1765  ax-7 1808  ax-8 1838  ax-9 1840  ax-10 1855  ax-11 1860  ax-12 1872  ax-13 2016  ax-ext 2370  ax-rep 4491  ax-sep 4501  ax-nul 4509  ax-pow 4556  ax-pr 4614  ax-un 6509  ax-cnex 9477  ax-resscn 9478  ax-1cn 9479  ax-icn 9480  ax-addcl 9481  ax-addrcl 9482  ax-mulcl 9483  ax-mulrcl 9484  ax-mulcom 9485  ax-addass 9486  ax-mulass 9487  ax-distr 9488  ax-i2m1 9489  ax-1ne0 9490  ax-1rid 9491  ax-rnegex 9492  ax-rrecex 9493  ax-cnre 9494  ax-pre-lttri 9495  ax-pre-lttrn 9496  ax-pre-ltadd 9497  ax-pre-mulgt0 9498
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-ex 1628  df-nf 1632  df-sb 1758  df-eu 2232  df-mo 2233  df-clab 2378  df-cleq 2384  df-clel 2387  df-nfc 2542  df-ne 2589  df-nel 2590  df-ral 2747  df-rex 2748  df-reu 2749  df-rmo 2750  df-rab 2751  df-v 3049  df-sbc 3266  df-csb 3362  df-dif 3405  df-un 3407  df-in 3409  df-ss 3416  df-pss 3418  df-nul 3725  df-if 3871  df-pw 3942  df-sn 3958  df-pr 3960  df-tp 3962  df-op 3964  df-uni 4177  df-int 4213  df-iun 4258  df-br 4381  df-opab 4439  df-mpt 4440  df-tr 4474  df-eprel 4718  df-id 4722  df-po 4727  df-so 4728  df-fr 4765  df-se 4766  df-we 4767  df-ord 4808  df-on 4809  df-lim 4810  df-suc 4811  df-xp 4932  df-rel 4933  df-cnv 4934  df-co 4935  df-dm 4936  df-rn 4937  df-res 4938  df-ima 4939  df-iota 5473  df-fun 5511  df-fn 5512  df-f 5513  df-f1 5514  df-fo 5515  df-f1o 5516  df-fv 5517  df-isom 5518  df-riota 6176  df-ov 6217  df-oprab 6218  df-mpt2 6219  df-of 6457  df-ofr 6458  df-om 6618  df-1st 6717  df-2nd 6718  df-supp 6836  df-recs 6978  df-rdg 7012  df-1o 7066  df-2o 7067  df-oadd 7070  df-er 7247  df-map 7358  df-pm 7359  df-ixp 7407  df-en 7454  df-dom 7455  df-sdom 7456  df-fin 7457  df-fsupp 7763  df-oi 7868  df-card 8251  df-pnf 9559  df-mnf 9560  df-xr 9561  df-ltxr 9562  df-le 9563  df-sub 9738  df-neg 9739  df-nn 10471  df-2 10529  df-3 10530  df-4 10531  df-5 10532  df-6 10533  df-7 10534  df-8 10535  df-9 10536  df-n0 10731  df-z 10800  df-uz 11020  df-fz 11612  df-fzo 11736  df-seq 12030  df-hash 12327  df-struct 14655  df-ndx 14656  df-slot 14657  df-base 14658  df-sets 14659  df-ress 14660  df-plusg 14734  df-mulr 14735  df-sca 14737  df-vsca 14738  df-tset 14740  df-0g 14868  df-gsum 14869  df-mgm 16008  df-sgrp 16047  df-mnd 16057  df-grp 16193  df-minusg 16194  df-cntz 16491  df-cmn 16936  df-abl 16937  df-mgp 17274  df-ur 17286  df-ring 17332  df-psr 18137  df-mpl 18139
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator