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

Theorem mplmonmul 16528
Description: The product of two monomials adds the exponent vectors together. For example, the product of  ( x ^ 2 ) ( y ^
2 ) with  ( y ^ 1 ) ( z ^ 3 ) is  ( x ^ 2 ) ( y ^
3 ) ( z ^ 3 ), where the exponent vectors  <. 2 ,  2 ,  0 >. and  <. 0 ,  1 ,  3
>. are added to give  <. 2 ,  3 ,  3 >.. (Contributed by Mario Carneiro, 9-Jan-2015.)
Hypotheses
Ref Expression
mplmon.s  |-  P  =  ( I mPoly  R )
mplmon.b  |-  B  =  ( Base `  P
)
mplmon.z  |-  .0.  =  ( 0g `  R )
mplmon.o  |-  .1.  =  ( 1r `  R )
mplmon.d  |-  D  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
mplmon.i  |-  ( ph  ->  I  e.  W )
mplmon.r  |-  ( ph  ->  R  e.  Ring )
mplmon.x  |-  ( ph  ->  X  e.  D )
mplmonmul.t  |-  .x.  =  ( .r `  P )
mplmonmul.x  |-  ( ph  ->  Y  e.  D )
Assertion
Ref Expression
mplmonmul  |-  ( ph  ->  ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) )  .x.  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) )  =  ( y  e.  D  |->  if ( y  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
) )
Distinct variable groups:    y, D    f, I    ph, y    y, f, X    y,  .0.    y,  .1.    y, R    f, Y, y
Allowed substitution hints:    ph( f)    B( y, f)    D( f)    P( y, f)    R( f)    .x. ( y,
f)    .1. ( f)    I( y)    W( y, f)    .0. ( f)

Proof of Theorem mplmonmul
Dummy variables  j 
k  x  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mplmon.s . . 3  |-  P  =  ( I mPoly  R )
2 mplmon.b . . 3  |-  B  =  ( Base `  P
)
3 eqid 2437 . . 3  |-  ( .r
`  R )  =  ( .r `  R
)
4 mplmonmul.t . . 3  |-  .x.  =  ( .r `  P )
5 mplmon.d . . 3  |-  D  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
6 mplmon.z . . . 4  |-  .0.  =  ( 0g `  R )
7 mplmon.o . . . 4  |-  .1.  =  ( 1r `  R )
8 mplmon.i . . . 4  |-  ( ph  ->  I  e.  W )
9 mplmon.r . . . 4  |-  ( ph  ->  R  e.  Ring )
10 mplmon.x . . . 4  |-  ( ph  ->  X  e.  D )
111, 2, 6, 7, 5, 8, 9, 10mplmon 16527 . . 3  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) )  e.  B
)
12 mplmonmul.x . . . 4  |-  ( ph  ->  Y  e.  D )
131, 2, 6, 7, 5, 8, 9, 12mplmon 16527 . . 3  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) )  e.  B
)
141, 2, 3, 4, 5, 11, 13mplmul 16507 . 2  |-  ( ph  ->  ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) )  .x.  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) )  =  ( k  e.  D  |->  ( R  gsumg  ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) ) ) )
15 eqeq1 2443 . . . . 5  |-  ( y  =  k  ->  (
y  =  ( X  o F  +  Y
)  <->  k  =  ( X  o F  +  Y ) ) )
1615ifbid 3758 . . . 4  |-  ( y  =  k  ->  if ( y  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )  =  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  ) )
1716cbvmptv 4301 . . 3  |-  ( y  e.  D  |->  if ( y  =  ( X  o F  +  Y
) ,  .1.  ,  .0.  ) )  =  ( k  e.  D  |->  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  ) )
18 simpr 449 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  X  e.  { x  e.  D  |  x  o R  <_  k } )
1918snssd 3944 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  { X }  C_  { x  e.  D  |  x  o R  <_  k } )
20 resmpt 5192 . . . . . . . . 9  |-  ( { X }  C_  { x  e.  D  |  x  o R  <_  k }  ->  ( ( j  e.  { x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  |`  { X } )  =  ( j  e.  { X }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) )
2119, 20syl 16 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } )  =  ( j  e.  { X }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) )
2221oveq2d 6098 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( R  gsumg  ( ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } ) )  =  ( R  gsumg  ( j  e.  { X }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) ) )
239ad2antrr 708 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  R  e.  Ring )
24 rngmnd 15674 . . . . . . . . 9  |-  ( R  e.  Ring  ->  R  e. 
Mnd )
2523, 24syl 16 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  R  e.  Mnd )
2610ad2antrr 708 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  X  e.  D )
27 iftrue 3746 . . . . . . . . . . . . 13  |-  ( y  =  X  ->  if ( y  =  X ,  .1.  ,  .0.  )  =  .1.  )
28 eqid 2437 . . . . . . . . . . . . 13  |-  ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) )
29 fvex 5743 . . . . . . . . . . . . . 14  |-  ( 1r
`  R )  e. 
_V
307, 29eqeltri 2507 . . . . . . . . . . . . 13  |-  .1.  e.  _V
3127, 28, 30fvmpt 5807 . . . . . . . . . . . 12  |-  ( X  e.  D  ->  (
( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  X
)  =  .1.  )
3226, 31syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  X )  =  .1.  )
33 ssrab2 3429 . . . . . . . . . . . . 13  |-  { x  e.  D  |  x  o R  <_  k } 
C_  D
348ad2antrr 708 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  I  e.  W )
35 simplr 733 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
k  e.  D )
36 eqid 2437 . . . . . . . . . . . . . . 15  |-  { x  e.  D  |  x  o R  <_  k }  =  { x  e.  D  |  x  o R  <_  k }
375, 36psrbagconcl 16439 . . . . . . . . . . . . . 14  |-  ( ( I  e.  W  /\  k  e.  D  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  ( k  o F  -  X
)  e.  { x  e.  D  |  x  o R  <_  k } )
3834, 35, 18, 37syl3anc 1185 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( k  o F  -  X )  e. 
{ x  e.  D  |  x  o R  <_  k } )
3933, 38sseldi 3347 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( k  o F  -  X )  e.  D )
40 eqeq1 2443 . . . . . . . . . . . . . 14  |-  ( y  =  ( k  o F  -  X )  ->  ( y  =  Y  <->  ( k  o F  -  X )  =  Y ) )
4140ifbid 3758 . . . . . . . . . . . . 13  |-  ( y  =  ( k  o F  -  X )  ->  if ( y  =  Y ,  .1.  ,  .0.  )  =  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  ) )
42 eqid 2437 . . . . . . . . . . . . 13  |-  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) )
43 fvex 5743 . . . . . . . . . . . . . . 15  |-  ( 0g
`  R )  e. 
_V
446, 43eqeltri 2507 . . . . . . . . . . . . . 14  |-  .0.  e.  _V
4530, 44ifex 3798 . . . . . . . . . . . . 13  |-  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  )  e.  _V
4641, 42, 45fvmpt 5807 . . . . . . . . . . . 12  |-  ( ( k  o F  -  X )  e.  D  ->  ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) )  =  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  ) )
4739, 46syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) )  =  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  ) )
4832, 47oveq12d 6100 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 X ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) ) )  =  (  .1.  ( .r `  R
) if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  ) ) )
49 eqid 2437 . . . . . . . . . . . . . 14  |-  ( Base `  R )  =  (
Base `  R )
5049, 7rngidcl 15685 . . . . . . . . . . . . 13  |-  ( R  e.  Ring  ->  .1.  e.  ( Base `  R )
)
5149, 6rng0cl 15686 . . . . . . . . . . . . 13  |-  ( R  e.  Ring  ->  .0.  e.  ( Base `  R )
)
52 ifcl 3776 . . . . . . . . . . . . 13  |-  ( (  .1.  e.  ( Base `  R )  /\  .0.  e.  ( Base `  R
) )  ->  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  )  e.  (
Base `  R )
)
5350, 51, 52syl2anc 644 . . . . . . . . . . . 12  |-  ( R  e.  Ring  ->  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  )  e.  ( Base `  R ) )
5423, 53syl 16 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  )  e.  (
Base `  R )
)
5549, 3, 7rnglidm 15688 . . . . . . . . . . 11  |-  ( ( R  e.  Ring  /\  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  )  e.  (
Base `  R )
)  ->  (  .1.  ( .r `  R ) if ( ( k  o F  -  X
)  =  Y ,  .1.  ,  .0.  ) )  =  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  ) )
5623, 54, 55syl2anc 644 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
(  .1.  ( .r
`  R ) if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  ) )  =  if ( ( k  o F  -  X
)  =  Y ,  .1.  ,  .0.  ) )
575psrbagf 16433 . . . . . . . . . . . . . . . . . 18  |-  ( ( I  e.  W  /\  k  e.  D )  ->  k : I --> NN0 )
5834, 35, 57syl2anc 644 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
k : I --> NN0 )
5958ffvelrnda 5871 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  /\  z  e.  I )  ->  (
k `  z )  e.  NN0 )
608adantr 453 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  D )  ->  I  e.  W )
6110adantr 453 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  k  e.  D )  ->  X  e.  D )
625psrbagf 16433 . . . . . . . . . . . . . . . . . . 19  |-  ( ( I  e.  W  /\  X  e.  D )  ->  X : I --> NN0 )
6360, 61, 62syl2anc 644 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  D )  ->  X : I --> NN0 )
6463ffvelrnda 5871 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  D )  /\  z  e.  I )  ->  ( X `  z )  e.  NN0 )
6564adantlr 697 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  /\  z  e.  I )  ->  ( X `  z )  e.  NN0 )
665psrbagf 16433 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( I  e.  W  /\  Y  e.  D )  ->  Y : I --> NN0 )
678, 12, 66syl2anc 644 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  Y : I --> NN0 )
6867adantr 453 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  D )  ->  Y : I --> NN0 )
6968ffvelrnda 5871 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  k  e.  D )  /\  z  e.  I )  ->  ( Y `  z )  e.  NN0 )
7069adantlr 697 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  /\  z  e.  I )  ->  ( Y `  z )  e.  NN0 )
71 nn0cn 10232 . . . . . . . . . . . . . . . . 17  |-  ( ( k `  z )  e.  NN0  ->  ( k `
 z )  e.  CC )
72 nn0cn 10232 . . . . . . . . . . . . . . . . 17  |-  ( ( X `  z )  e.  NN0  ->  ( X `
 z )  e.  CC )
73 nn0cn 10232 . . . . . . . . . . . . . . . . 17  |-  ( ( Y `  z )  e.  NN0  ->  ( Y `
 z )  e.  CC )
74 subadd 9309 . . . . . . . . . . . . . . . . 17  |-  ( ( ( k `  z
)  e.  CC  /\  ( X `  z )  e.  CC  /\  ( Y `  z )  e.  CC )  ->  (
( ( k `  z )  -  ( X `  z )
)  =  ( Y `
 z )  <->  ( ( X `  z )  +  ( Y `  z ) )  =  ( k `  z
) ) )
7571, 72, 73, 74syl3an 1227 . . . . . . . . . . . . . . . 16  |-  ( ( ( k `  z
)  e.  NN0  /\  ( X `  z )  e.  NN0  /\  ( Y `  z )  e.  NN0 )  ->  (
( ( k `  z )  -  ( X `  z )
)  =  ( Y `
 z )  <->  ( ( X `  z )  +  ( Y `  z ) )  =  ( k `  z
) ) )
7659, 65, 70, 75syl3anc 1185 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  /\  z  e.  I )  ->  (
( ( k `  z )  -  ( X `  z )
)  =  ( Y `
 z )  <->  ( ( X `  z )  +  ( Y `  z ) )  =  ( k `  z
) ) )
77 eqcom 2439 . . . . . . . . . . . . . . 15  |-  ( ( ( X `  z
)  +  ( Y `
 z ) )  =  ( k `  z )  <->  ( k `  z )  =  ( ( X `  z
)  +  ( Y `
 z ) ) )
7876, 77syl6bb 254 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  /\  z  e.  I )  ->  (
( ( k `  z )  -  ( X `  z )
)  =  ( Y `
 z )  <->  ( k `  z )  =  ( ( X `  z
)  +  ( Y `
 z ) ) ) )
7978ralbidva 2722 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( A. z  e.  I  ( ( k `
 z )  -  ( X `  z ) )  =  ( Y `
 z )  <->  A. z  e.  I  ( k `  z )  =  ( ( X `  z
)  +  ( Y `
 z ) ) ) )
80 mpteqb 5820 . . . . . . . . . . . . . 14  |-  ( A. z  e.  I  (
( k `  z
)  -  ( X `
 z ) )  e.  _V  ->  (
( z  e.  I  |->  ( ( k `  z )  -  ( X `  z )
) )  =  ( z  e.  I  |->  ( Y `  z ) )  <->  A. z  e.  I 
( ( k `  z )  -  ( X `  z )
)  =  ( Y `
 z ) ) )
81 ovex 6107 . . . . . . . . . . . . . . 15  |-  ( ( k `  z )  -  ( X `  z ) )  e. 
_V
8281a1i 11 . . . . . . . . . . . . . 14  |-  ( z  e.  I  ->  (
( k `  z
)  -  ( X `
 z ) )  e.  _V )
8380, 82mprg 2776 . . . . . . . . . . . . 13  |-  ( ( z  e.  I  |->  ( ( k `  z
)  -  ( X `
 z ) ) )  =  ( z  e.  I  |->  ( Y `
 z ) )  <->  A. z  e.  I 
( ( k `  z )  -  ( X `  z )
)  =  ( Y `
 z ) )
84 mpteqb 5820 . . . . . . . . . . . . . 14  |-  ( A. z  e.  I  (
k `  z )  e.  _V  ->  ( (
z  e.  I  |->  ( k `  z ) )  =  ( z  e.  I  |->  ( ( X `  z )  +  ( Y `  z ) ) )  <->  A. z  e.  I 
( k `  z
)  =  ( ( X `  z )  +  ( Y `  z ) ) ) )
85 fvex 5743 . . . . . . . . . . . . . . 15  |-  ( k `
 z )  e. 
_V
8685a1i 11 . . . . . . . . . . . . . 14  |-  ( z  e.  I  ->  (
k `  z )  e.  _V )
8784, 86mprg 2776 . . . . . . . . . . . . 13  |-  ( ( z  e.  I  |->  ( k `  z ) )  =  ( z  e.  I  |->  ( ( X `  z )  +  ( Y `  z ) ) )  <->  A. z  e.  I 
( k `  z
)  =  ( ( X `  z )  +  ( Y `  z ) ) )
8879, 83, 873bitr4g 281 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( z  e.  I  |->  ( ( k `
 z )  -  ( X `  z ) ) )  =  ( z  e.  I  |->  ( Y `  z ) )  <->  ( z  e.  I  |->  ( k `  z ) )  =  ( z  e.  I  |->  ( ( X `  z )  +  ( Y `  z ) ) ) ) )
8958feqmptd 5780 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
k  =  ( z  e.  I  |->  ( k `
 z ) ) )
9063feqmptd 5780 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  D )  ->  X  =  ( z  e.  I  |->  ( X `  z ) ) )
9190adantr 453 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  X  =  ( z  e.  I  |->  ( X `
 z ) ) )
9234, 59, 65, 89, 91offval2 6323 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( k  o F  -  X )  =  ( z  e.  I  |->  ( ( k `  z )  -  ( X `  z )
) ) )
9368feqmptd 5780 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  D )  ->  Y  =  ( z  e.  I  |->  ( Y `  z ) ) )
9493adantr 453 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  Y  =  ( z  e.  I  |->  ( Y `
 z ) ) )
9592, 94eqeq12d 2451 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( k  o F  -  X )  =  Y  <->  ( z  e.  I  |->  ( ( k `  z )  -  ( X `  z ) ) )  =  ( z  e.  I  |->  ( Y `  z ) ) ) )
9660, 64, 69, 90, 93offval2 6323 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  D )  ->  ( X  o F  +  Y
)  =  ( z  e.  I  |->  ( ( X `  z )  +  ( Y `  z ) ) ) )
9796adantr 453 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( X  o F  +  Y )  =  ( z  e.  I  |->  ( ( X `  z )  +  ( Y `  z ) ) ) )
9889, 97eqeq12d 2451 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( k  =  ( X  o F  +  Y )  <->  ( z  e.  I  |->  ( k `
 z ) )  =  ( z  e.  I  |->  ( ( X `
 z )  +  ( Y `  z
) ) ) ) )
9988, 95, 983bitr4d 278 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( k  o F  -  X )  =  Y  <->  k  =  ( X  o F  +  Y ) ) )
10099ifbid 3758 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  if ( ( k  o F  -  X )  =  Y ,  .1.  ,  .0.  )  =  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  ) )
10148, 56, 1003eqtrd 2473 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 X ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) ) )  =  if ( k  =  ( X  o F  +  Y
) ,  .1.  ,  .0.  ) )
102100, 54eqeltrrd 2512 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )  e.  (
Base `  R )
)
103101, 102eqeltrd 2511 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 X ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) ) )  e.  ( Base `  R ) )
104 fveq2 5729 . . . . . . . . . 10  |-  ( j  =  X  ->  (
( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
)  =  ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  X
) )
105 oveq2 6090 . . . . . . . . . . 11  |-  ( j  =  X  ->  (
k  o F  -  j )  =  ( k  o F  -  X ) )
106105fveq2d 5733 . . . . . . . . . 10  |-  ( j  =  X  ->  (
( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) )  =  ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) ) )
107104, 106oveq12d 6100 . . . . . . . . 9  |-  ( j  =  X  ->  (
( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j ) ( .r
`  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) )  =  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  X
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  X ) ) ) )
10849, 107gsumsn 15544 . . . . . . . 8  |-  ( ( R  e.  Mnd  /\  X  e.  D  /\  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 X ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  X ) ) )  e.  ( Base `  R ) )  -> 
( R  gsumg  ( j  e.  { X }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) )  =  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  X ) ( .r
`  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  X ) ) ) )
10925, 26, 103, 108syl3anc 1185 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( R  gsumg  ( j  e.  { X }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) )  =  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  X ) ( .r
`  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  X ) ) ) )
11022, 109, 1013eqtrd 2473 . . . . . 6  |-  ( ( ( ph  /\  k  e.  D )  /\  X  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( R  gsumg  ( ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } ) )  =  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
)
1116gsum0 14781 . . . . . . 7  |-  ( R 
gsumg  (/) )  =  .0.
112 disjsn 3869 . . . . . . . . 9  |-  ( ( { x  e.  D  |  x  o R  <_  k }  i^i  { X } )  =  (/)  <->  -.  X  e.  { x  e.  D  |  x  o R  <_  k } )
1139ad2antrr 708 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  ->  R  e.  Ring )
1141, 49, 2, 5, 11mplelf 16498 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) : D --> ( Base `  R )
)
115114ad2antrr 708 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) : D --> ( Base `  R )
)
116 simpr 449 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
j  e.  { x  e.  D  |  x  o R  <_  k } )
11733, 116sseldi 3347 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
j  e.  D )
118115, 117ffvelrnd 5872 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j )  e.  (
Base `  R )
)
1191, 49, 2, 5, 13mplelf 16498 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) : D --> ( Base `  R )
)
120119ad2antrr 708 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) : D --> ( Base `  R )
)
1218ad2antrr 708 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  ->  I  e.  W )
122 simplr 733 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
k  e.  D )
1235, 36psrbagconcl 16439 . . . . . . . . . . . . . . . 16  |-  ( ( I  e.  W  /\  k  e.  D  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  ->  ( k  o F  -  j
)  e.  { x  e.  D  |  x  o R  <_  k } )
124121, 122, 116, 123syl3anc 1185 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( k  o F  -  j )  e. 
{ x  e.  D  |  x  o R  <_  k } )
12533, 124sseldi 3347 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( k  o F  -  j )  e.  D )
126120, 125ffvelrnd 5872 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) )  e.  ( Base `  R
) )
12749, 3rngcl 15678 . . . . . . . . . . . . 13  |-  ( ( R  e.  Ring  /\  (
( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
)  e.  ( Base `  R )  /\  (
( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) )  e.  ( Base `  R
) )  ->  (
( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j ) ( .r
`  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) )  e.  ( Base `  R
) )
128113, 118, 126, 127syl3anc 1185 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) )  e.  ( Base `  R ) )
129 eqid 2437 . . . . . . . . . . . 12  |-  ( j  e.  { x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  =  ( j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )
130128, 129fmptd 5894 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  D )  ->  (
j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) ) : {
x  e.  D  |  x  o R  <_  k }
--> ( Base `  R
) )
131 ffn 5592 . . . . . . . . . . 11  |-  ( ( j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) ) : {
x  e.  D  |  x  o R  <_  k }
--> ( Base `  R
)  ->  ( j  e.  { x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  Fn  { x  e.  D  |  x  o R  <_  k } )
132 fnresdisj 5556 . . . . . . . . . . 11  |-  ( ( j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  Fn  {
x  e.  D  |  x  o R  <_  k }  ->  ( ( { x  e.  D  |  x  o R  <_  k }  i^i  { X }
)  =  (/)  <->  ( (
j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  |`  { X } )  =  (/) ) )
133130, 131, 1323syl 19 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  D )  ->  (
( { x  e.  D  |  x  o R  <_  k }  i^i  { X } )  =  (/)  <->  ( ( j  e.  { x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  |`  { X } )  =  (/) ) )
134133biimpa 472 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  ( { x  e.  D  |  x  o R  <_  k }  i^i  { X } )  =  (/) )  ->  ( ( j  e.  { x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  |`  { X } )  =  (/) )
135112, 134sylan2br 464 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  -.  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  ( (
j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) )  |`  { X } )  =  (/) )
136135oveq2d 6098 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  D )  /\  -.  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  ( R  gsumg  ( ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } ) )  =  ( R  gsumg  (/) ) )
13764nn0red 10276 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  z  e.  I )  ->  ( X `  z )  e.  RR )
138 nn0addge1 10267 . . . . . . . . . . . . . 14  |-  ( ( ( X `  z
)  e.  RR  /\  ( Y `  z )  e.  NN0 )  -> 
( X `  z
)  <_  ( ( X `  z )  +  ( Y `  z ) ) )
139137, 69, 138syl2anc 644 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  z  e.  I )  ->  ( X `  z )  <_  ( ( X `  z )  +  ( Y `  z ) ) )
140139ralrimiva 2790 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  D )  ->  A. z  e.  I  ( X `  z )  <_  (
( X `  z
)  +  ( Y `
 z ) ) )
141 ovex 6107 . . . . . . . . . . . . . 14  |-  ( ( X `  z )  +  ( Y `  z ) )  e. 
_V
142141a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  z  e.  I )  ->  (
( X `  z
)  +  ( Y `
 z ) )  e.  _V )
14360, 64, 142, 90, 96ofrfval2 6324 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  D )  ->  ( X  o R  <_  ( X  o F  +  Y
)  <->  A. z  e.  I 
( X `  z
)  <_  ( ( X `  z )  +  ( Y `  z ) ) ) )
144140, 143mpbird 225 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  D )  ->  X  o R  <_  ( X  o F  +  Y
) )
145 breq1 4216 . . . . . . . . . . . 12  |-  ( x  =  X  ->  (
x  o R  <_ 
( X  o F  +  Y )  <->  X  o R  <_  ( X  o F  +  Y )
) )
146145elrab 3093 . . . . . . . . . . 11  |-  ( X  e.  { x  e.  D  |  x  o R  <_  ( X  o F  +  Y
) }  <->  ( X  e.  D  /\  X  o R  <_  ( X  o F  +  Y )
) )
14761, 144, 146sylanbrc 647 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  D )  ->  X  e.  { x  e.  D  |  x  o R  <_  ( X  o F  +  Y ) } )
148 breq2 4217 . . . . . . . . . . . 12  |-  ( k  =  ( X  o F  +  Y )  ->  ( x  o R  <_  k  <->  x  o R  <_  ( X  o F  +  Y )
) )
149148rabbidv 2949 . . . . . . . . . . 11  |-  ( k  =  ( X  o F  +  Y )  ->  { x  e.  D  |  x  o R  <_  k }  =  {
x  e.  D  |  x  o R  <_  ( X  o F  +  Y
) } )
150149eleq2d 2504 . . . . . . . . . 10  |-  ( k  =  ( X  o F  +  Y )  ->  ( X  e.  {
x  e.  D  |  x  o R  <_  k } 
<->  X  e.  { x  e.  D  |  x  o R  <_  ( X  o F  +  Y
) } ) )
151147, 150syl5ibrcom 215 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  D )  ->  (
k  =  ( X  o F  +  Y
)  ->  X  e.  { x  e.  D  |  x  o R  <_  k } ) )
152151con3and 430 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  -.  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  -.  k  =  ( X  o F  +  Y )
)
153 iffalse 3747 . . . . . . . 8  |-  ( -.  k  =  ( X  o F  +  Y
)  ->  if (
k  =  ( X  o F  +  Y
) ,  .1.  ,  .0.  )  =  .0.  )
154152, 153syl 16 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  D )  /\  -.  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  if (
k  =  ( X  o F  +  Y
) ,  .1.  ,  .0.  )  =  .0.  )
155111, 136, 1543eqtr4a 2495 . . . . . 6  |-  ( ( ( ph  /\  k  e.  D )  /\  -.  X  e.  { x  e.  D  |  x  o R  <_  k } )  ->  ( R  gsumg  ( ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } ) )  =  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
)
156110, 155pm2.61dan 768 . . . . 5  |-  ( (
ph  /\  k  e.  D )  ->  ( R  gsumg  ( ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } ) )  =  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
)
1579adantr 453 . . . . . . 7  |-  ( (
ph  /\  k  e.  D )  ->  R  e.  Ring )
158 rngcmn 15695 . . . . . . 7  |-  ( R  e.  Ring  ->  R  e. CMnd
)
159157, 158syl 16 . . . . . 6  |-  ( (
ph  /\  k  e.  D )  ->  R  e. CMnd )
1605psrbaglefi 16438 . . . . . . 7  |-  ( ( I  e.  W  /\  k  e.  D )  ->  { x  e.  D  |  x  o R  <_  k }  e.  Fin )
1618, 160sylan 459 . . . . . 6  |-  ( (
ph  /\  k  e.  D )  ->  { x  e.  D  |  x  o R  <_  k }  e.  Fin )
162 ssdif 3483 . . . . . . . . . . . 12  |-  ( { x  e.  D  |  x  o R  <_  k }  C_  D  ->  ( { x  e.  D  |  x  o R  <_  k }  \  { X } )  C_  ( D  \  { X }
) )
16333, 162ax-mp 8 . . . . . . . . . . 11  |-  ( { x  e.  D  |  x  o R  <_  k }  \  { X }
)  C_  ( D  \  { X } )
164163sseli 3345 . . . . . . . . . 10  |-  ( j  e.  ( { x  e.  D  |  x  o R  <_  k } 
\  { X }
)  ->  j  e.  ( D  \  { X } ) )
165114adantr 453 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  D )  ->  (
y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) : D --> ( Base `  R )
)
166 eldifsni 3929 . . . . . . . . . . . . . . 15  |-  ( y  e.  ( D  \  { X } )  -> 
y  =/=  X )
167166adantl 454 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  k  e.  D )  /\  y  e.  ( D  \  { X } ) )  -> 
y  =/=  X )
168167neneqd 2618 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  k  e.  D )  /\  y  e.  ( D  \  { X } ) )  ->  -.  y  =  X
)
169 iffalse 3747 . . . . . . . . . . . . 13  |-  ( -.  y  =  X  ->  if ( y  =  X ,  .1.  ,  .0.  )  =  .0.  )
170168, 169syl 16 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  k  e.  D )  /\  y  e.  ( D  \  { X } ) )  ->  if ( y  =  X ,  .1.  ,  .0.  )  =  .0.  )
171170suppss2 6301 . . . . . . . . . . 11  |-  ( (
ph  /\  k  e.  D )  ->  ( `' ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) "
( _V  \  {  .0.  } ) )  C_  { X } )
172165, 171suppssr 5865 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  ( D  \  { X } ) )  -> 
( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j )  =  .0.  )
173164, 172sylan2 462 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  ( { x  e.  D  |  x  o R  <_  k }  \  { X } ) )  ->  ( (
y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
)  =  .0.  )
174173oveq1d 6097 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  ( { x  e.  D  |  x  o R  <_  k }  \  { X } ) )  ->  ( (
( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) )  =  (  .0.  ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )
175 eldifi 3470 . . . . . . . . 9  |-  ( j  e.  ( { x  e.  D  |  x  o R  <_  k } 
\  { X }
)  ->  j  e.  { x  e.  D  |  x  o R  <_  k } )
17649, 3, 6rnglz 15701 . . . . . . . . . 10  |-  ( ( R  e.  Ring  /\  (
( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) )  e.  ( Base `  R
) )  ->  (  .0.  ( .r `  R
) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `
 ( k  o F  -  j ) ) )  =  .0.  )
177113, 126, 176syl2anc 644 . . . . . . . . 9  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  { x  e.  D  |  x  o R  <_  k } )  -> 
(  .0.  ( .r
`  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) )  =  .0.  )
178175, 177sylan2 462 . . . . . . . 8  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  ( { x  e.  D  |  x  o R  <_  k }  \  { X } ) )  ->  (  .0.  ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) )  =  .0.  )
179174, 178eqtrd 2469 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  D )  /\  j  e.  ( { x  e.  D  |  x  o R  <_  k }  \  { X } ) )  ->  ( (
( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) )  =  .0.  )
180179suppss2 6301 . . . . . 6  |-  ( (
ph  /\  k  e.  D )  ->  ( `' ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) " ( _V 
\  {  .0.  }
) )  C_  { X } )
181 snfi 7188 . . . . . . 7  |-  { X }  e.  Fin
182 ssfi 7330 . . . . . . 7  |-  ( ( { X }  e.  Fin  /\  ( `' ( j  e.  { x  e.  D  |  x  o R  <_  k } 
|->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `
 j ) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  ( k  o F  -  j ) ) ) ) " ( _V  \  {  .0.  }
) )  C_  { X } )  ->  ( `' ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) " ( _V 
\  {  .0.  }
) )  e.  Fin )
183181, 180, 182sylancr 646 . . . . . 6  |-  ( (
ph  /\  k  e.  D )  ->  ( `' ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) " ( _V 
\  {  .0.  }
) )  e.  Fin )
18449, 6, 159, 161, 130, 180, 183gsumres 15521 . . . . 5  |-  ( (
ph  /\  k  e.  D )  ->  ( R  gsumg  ( ( j  e. 
{ x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) )  |`  { X } ) )  =  ( R  gsumg  ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) ) )
185156, 184eqtr3d 2471 . . . 4  |-  ( (
ph  /\  k  e.  D )  ->  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )  =  ( R  gsumg  ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) ) )
186185mpteq2dva 4296 . . 3  |-  ( ph  ->  ( k  e.  D  |->  if ( k  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
)  =  ( k  e.  D  |->  ( R 
gsumg  ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) ) ) )
18717, 186syl5eq 2481 . 2  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
)  =  ( k  e.  D  |->  ( R 
gsumg  ( j  e.  {
x  e.  D  |  x  o R  <_  k }  |->  ( ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) ) `  j
) ( .r `  R ) ( ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) `  (
k  o F  -  j ) ) ) ) ) ) )
18814, 187eqtr4d 2472 1  |-  ( ph  ->  ( ( y  e.  D  |->  if ( y  =  X ,  .1.  ,  .0.  ) )  .x.  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) ) )  =  ( y  e.  D  |->  if ( y  =  ( X  o F  +  Y ) ,  .1.  ,  .0.  )
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 178    /\ wa 360    = wceq 1653    e. wcel 1726    =/= wne 2600   A.wral 2706   {crab 2710   _Vcvv 2957    \ cdif 3318    i^i cin 3320    C_ wss 3321   (/)c0 3629   ifcif 3740   {csn 3815   class class class wbr 4213    e. cmpt 4267   `'ccnv 4878    |` cres 4881   "cima 4882    Fn wfn 5450   -->wf 5451   ` cfv 5455  (class class class)co 6082    o Fcof 6304    o Rcofr 6305    ^m cmap 7019   Fincfn 7110   CCcc 8989   RRcr 8990    + caddc 8994    <_ cle 9122    - cmin 9292   NNcn 10001   NN0cn0 10222   Basecbs 13470   .rcmulr 13531   0gc0g 13724    gsumg cgsu 13725   Mndcmnd 14685  CMndccmn 15413   Ringcrg 15661   1rcur 15663   mPoly cmpl 16409
This theorem is referenced by:  mplcoe3  16530  mplcoe2  16531  mplmon2mul  16562
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1556  ax-5 1567  ax-17 1627  ax-9 1667  ax-8 1688  ax-13 1728  ax-14 1730  ax-6 1745  ax-7 1750  ax-11 1762  ax-12 1951  ax-ext 2418  ax-rep 4321  ax-sep 4331  ax-nul 4339  ax-pow 4378  ax-pr 4404  ax-un 4702  ax-inf2 7597  ax-cnex 9047  ax-resscn 9048  ax-1cn 9049  ax-icn 9050  ax-addcl 9051  ax-addrcl 9052  ax-mulcl 9053  ax-mulrcl 9054  ax-mulcom 9055  ax-addass 9056  ax-mulass 9057  ax-distr 9058  ax-i2m1 9059  ax-1ne0 9060  ax-1rid 9061  ax-rnegex 9062  ax-rrecex 9063  ax-cnre 9064  ax-pre-lttri 9065  ax-pre-lttrn 9066  ax-pre-ltadd 9067  ax-pre-mulgt0 9068
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  df-ex 1552  df-nf 1555  df-sb 1660  df-eu 2286  df-mo 2287  df-clab 2424  df-cleq 2430  df-clel 2433  df-nfc 2562  df-ne 2602  df-nel 2603  df-ral 2711  df-rex 2712  df-reu 2713  df-rmo 2714  df-rab 2715  df-v 2959  df-sbc 3163  df-csb 3253  df-dif 3324  df-un 3326  df-in 3328  df-ss 3335  df-pss 3337  df-nul 3630  df-if 3741  df-pw 3802  df-sn 3821  df-pr 3822  df-tp 3823  df-op 3824  df-uni 4017  df-int 4052  df-iun 4096  df-br 4214  df-opab 4268  df-mpt 4269  df-tr 4304  df-eprel 4495  df-id 4499  df-po 4504  df-so 4505  df-fr 4542  df-se 4543  df-we 4544  df-ord 4585  df-on 4586  df-lim 4587  df-suc 4588  df-om 4847  df-xp 4885  df-rel 4886  df-cnv 4887  df-co 4888  df-dm 4889  df-rn 4890  df-res 4891  df-ima 4892  df-iota 5419  df-fun 5457  df-fn 5458  df-f 5459  df-f1 5460  df-fo 5461  df-f1o 5462  df-fv 5463  df-isom 5464  df-ov 6085  df-oprab 6086  df-mpt2 6087  df-of 6306  df-ofr 6307  df-1st 6350  df-2nd 6351  df-riota 6550  df-recs 6634  df-rdg 6669  df-1o 6725  df-2o 6726  df-oadd 6729  df-er 6906  df-map 7021  df-pm 7022  df-ixp 7065  df-en 7111  df-dom 7112  df-sdom 7113  df-fin 7114  df-oi 7480  df-card 7827  df-pnf 9123  df-mnf 9124  df-xr 9125  df-ltxr 9126  df-le 9127  df-sub 9294  df-neg 9295  df-nn 10002  df-2 10059  df-3 10060  df-4 10061  df-5 10062  df-6 10063  df-7 10064  df-8 10065  df-9 10066  df-n0 10223  df-z 10284  df-uz 10490  df-fz 11045  df-fzo 11137  df-seq 11325  df-hash 11620  df-struct 13472  df-ndx 13473  df-slot 13474  df-base 13475  df-sets 13476  df-ress 13477  df-plusg 13543  df-mulr 13544  df-sca 13546  df-vsca 13547  df-tset 13549  df-0g 13728  df-gsum 13729  df-mnd 14691  df-grp 14813  df-minusg 14814  df-mulg 14816  df-cntz 15117  df-cmn 15415  df-abl 15416  df-mgp 15650  df-rng 15664  df-ur 15666  df-psr 16418  df-mpl 16420
  Copyright terms: Public domain W3C validator