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

Theorem mplcoe2 17480
Description: Decompose a monomial into a finite product of powers of variables. (The assumption that  R is a commutative ring is not strictly necessary, because the submonoid of monomials is in the center of the multiplicative monoid of polynomials, but it simplifies the proof.) (Contributed by Mario Carneiro, 10-Jan-2015.) (Proof shortened by AV, 18-Jul-2019.)
Hypotheses
Ref Expression
mplcoe1.p  |-  P  =  ( I mPoly  R )
mplcoe1.d  |-  D  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
mplcoe1.z  |-  .0.  =  ( 0g `  R )
mplcoe1.o  |-  .1.  =  ( 1r `  R )
mplcoe1.i  |-  ( ph  ->  I  e.  W )
mplcoe2.g  |-  G  =  (mulGrp `  P )
mplcoe2.m  |-  .^  =  (.g
`  G )
mplcoe2.v  |-  V  =  ( I mVar  R )
mplcoe2.r  |-  ( ph  ->  R  e.  CRing )
mplcoe2.y  |-  ( ph  ->  Y  e.  D )
Assertion
Ref Expression
mplcoe2  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
Distinct variable groups:    .^ , k    y,
k,  .1.    k, G    f,
k, y, I    ph, k,
y    R, f, y    D, k, y    P, k    k, V    .0. , f, k, y   
f, Y, k, y   
k, W, y
Allowed substitution hints:    ph( f)    D( f)    P( y, f)    R( k)    .1. ( f)    .^ ( y, f)    G( y, f)    V( y, f)    W( f)

Proof of Theorem mplcoe2
Dummy variables  i  w  x  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mplcoe2.y . . . . . . . . 9  |-  ( ph  ->  Y  e.  D )
2 mplcoe1.i . . . . . . . . . 10  |-  ( ph  ->  I  e.  W )
3 mplcoe1.d . . . . . . . . . . 11  |-  D  =  { f  e.  ( NN0  ^m  I )  |  ( `' f
" NN )  e. 
Fin }
43psrbag 17364 . . . . . . . . . 10  |-  ( I  e.  W  ->  ( Y  e.  D  <->  ( Y : I --> NN0  /\  ( `' Y " NN )  e.  Fin ) ) )
52, 4syl 16 . . . . . . . . 9  |-  ( ph  ->  ( Y  e.  D  <->  ( Y : I --> NN0  /\  ( `' Y " NN )  e.  Fin ) ) )
61, 5mpbid 210 . . . . . . . 8  |-  ( ph  ->  ( Y : I --> NN0  /\  ( `' Y " NN )  e.  Fin ) )
76simpld 456 . . . . . . 7  |-  ( ph  ->  Y : I --> NN0 )
87feqmptd 5732 . . . . . 6  |-  ( ph  ->  Y  =  ( i  e.  I  |->  ( Y `
 i ) ) )
9 iftrue 3785 . . . . . . . . 9  |-  ( i  e.  ( `' Y " NN )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
109adantl 463 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  I )  /\  i  e.  ( `' Y " NN ) )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
11 eldif 3326 . . . . . . . . . 10  |-  ( i  e.  ( I  \ 
( `' Y " NN ) )  <->  ( i  e.  I  /\  -.  i  e.  ( `' Y " NN ) ) )
12 ifid 3814 . . . . . . . . . . 11  |-  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  ( Y `  i ) )  =  ( Y `
 i )
13 frnnn0supp 10620 . . . . . . . . . . . . . . 15  |-  ( ( I  e.  W  /\  Y : I --> NN0 )  ->  ( Y supp  0 )  =  ( `' Y " NN ) )
142, 7, 13syl2anc 654 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( Y supp  0 )  =  ( `' Y " NN ) )
15 eqimss 3396 . . . . . . . . . . . . . 14  |-  ( ( Y supp  0 )  =  ( `' Y " NN )  ->  ( Y supp  0 )  C_  ( `' Y " NN ) )
1614, 15syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  ( Y supp  0 ) 
C_  ( `' Y " NN ) )
17 c0ex 9367 . . . . . . . . . . . . . 14  |-  0  e.  _V
1817a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  0  e.  _V )
197, 16, 2, 18suppssr 6709 . . . . . . . . . . . 12  |-  ( (
ph  /\  i  e.  ( I  \  ( `' Y " NN ) ) )  ->  ( Y `  i )  =  0 )
2019ifeq2d 3796 . . . . . . . . . . 11  |-  ( (
ph  /\  i  e.  ( I  \  ( `' Y " NN ) ) )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  ( Y `  i ) )  =  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) )
2112, 20syl5reqr 2480 . . . . . . . . . 10  |-  ( (
ph  /\  i  e.  ( I  \  ( `' Y " NN ) ) )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
2211, 21sylan2br 473 . . . . . . . . 9  |-  ( (
ph  /\  ( i  e.  I  /\  -.  i  e.  ( `' Y " NN ) ) )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
2322anassrs 641 . . . . . . . 8  |-  ( ( ( ph  /\  i  e.  I )  /\  -.  i  e.  ( `' Y " NN ) )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 )  =  ( Y `  i
) )
2410, 23pm2.61dan 782 . . . . . . 7  |-  ( (
ph  /\  i  e.  I )  ->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
2524mpteq2dva 4366 . . . . . 6  |-  ( ph  ->  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) )  =  ( i  e.  I  |->  ( Y `  i
) ) )
268, 25eqtr4d 2468 . . . . 5  |-  ( ph  ->  Y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) )
2726eqeq2d 2444 . . . 4  |-  ( ph  ->  ( y  =  Y  <-> 
y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ) )
2827ifbid 3799 . . 3  |-  ( ph  ->  if ( y  =  Y ,  .1.  ,  .0.  )  =  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )
2928mpteq2dv 4367 . 2  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) ) )
30 cnvimass 5177 . . . . 5  |-  ( `' Y " NN ) 
C_  dom  Y
31 fdm 5551 . . . . . 6  |-  ( Y : I --> NN0  ->  dom 
Y  =  I )
327, 31syl 16 . . . . 5  |-  ( ph  ->  dom  Y  =  I )
3330, 32syl5sseq 3392 . . . 4  |-  ( ph  ->  ( `' Y " NN )  C_  I )
346simprd 460 . . . . 5  |-  ( ph  ->  ( `' Y " NN )  e.  Fin )
35 sseq1 3365 . . . . . . . 8  |-  ( w  =  (/)  ->  ( w 
C_  I  <->  (/)  C_  I
) )
36 noel 3629 . . . . . . . . . . . . . . . 16  |-  -.  i  e.  (/)
37 eleq2 2494 . . . . . . . . . . . . . . . 16  |-  ( w  =  (/)  ->  ( i  e.  w  <->  i  e.  (/) ) )
3836, 37mtbiri 303 . . . . . . . . . . . . . . 15  |-  ( w  =  (/)  ->  -.  i  e.  w )
39 iffalse 3787 . . . . . . . . . . . . . . 15  |-  ( -.  i  e.  w  ->  if ( i  e.  w ,  ( Y `  i ) ,  0 )  =  0 )
4038, 39syl 16 . . . . . . . . . . . . . 14  |-  ( w  =  (/)  ->  if ( i  e.  w ,  ( Y `  i
) ,  0 )  =  0 )
4140mpteq2dv 4367 . . . . . . . . . . . . 13  |-  ( w  =  (/)  ->  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) )  =  ( i  e.  I  |->  0 ) )
42 fconstmpt 4869 . . . . . . . . . . . . 13  |-  ( I  X.  { 0 } )  =  ( i  e.  I  |->  0 )
4341, 42syl6eqr 2483 . . . . . . . . . . . 12  |-  ( w  =  (/)  ->  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) )  =  ( I  X.  { 0 } ) )
4443eqeq2d 2444 . . . . . . . . . . 11  |-  ( w  =  (/)  ->  ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) )  <-> 
y  =  ( I  X.  { 0 } ) ) )
4544ifbid 3799 . . . . . . . . . 10  |-  ( w  =  (/)  ->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  )  =  if ( y  =  ( I  X.  { 0 } ) ,  .1.  ,  .0.  ) )
4645mpteq2dv 4367 . . . . . . . . 9  |-  ( w  =  (/)  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  ( I  X.  { 0 } ) ,  .1.  ,  .0.  ) ) )
47 mpteq1 4360 . . . . . . . . . . . 12  |-  ( w  =  (/)  ->  ( k  e.  w  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) )  =  ( k  e.  (/)  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) )
48 mpt0 5526 . . . . . . . . . . . 12  |-  ( k  e.  (/)  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  =  (/)
4947, 48syl6eq 2481 . . . . . . . . . . 11  |-  ( w  =  (/)  ->  ( k  e.  w  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) )  =  (/) )
5049oveq2d 6096 . . . . . . . . . 10  |-  ( w  =  (/)  ->  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  =  ( G  gsumg  (/) ) )
51 mplcoe2.g . . . . . . . . . . . 12  |-  G  =  (mulGrp `  P )
52 eqid 2433 . . . . . . . . . . . 12  |-  ( 1r
`  P )  =  ( 1r `  P
)
5351, 52rngidval 16582 . . . . . . . . . . 11  |-  ( 1r
`  P )  =  ( 0g `  G
)
5453gsum0 15489 . . . . . . . . . 10  |-  ( G 
gsumg  (/) )  =  ( 1r
`  P )
5550, 54syl6eq 2481 . . . . . . . . 9  |-  ( w  =  (/)  ->  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  =  ( 1r `  P
) )
5646, 55eqeq12d 2447 . . . . . . . 8  |-  ( w  =  (/)  ->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  <->  ( y  e.  D  |->  if ( y  =  ( I  X.  { 0 } ) ,  .1.  ,  .0.  ) )  =  ( 1r `  P ) ) )
5735, 56imbi12d 320 . . . . . . 7  |-  ( w  =  (/)  ->  ( ( w  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  <-> 
( (/)  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( I  X.  { 0 } ) ,  .1.  ,  .0.  ) )  =  ( 1r `  P
) ) ) )
5857imbi2d 316 . . . . . 6  |-  ( w  =  (/)  ->  ( (
ph  ->  ( w  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )  <->  ( ph  ->  (
(/)  C_  I  ->  (
y  e.  D  |->  if ( y  =  ( I  X.  { 0 } ) ,  .1.  ,  .0.  ) )  =  ( 1r `  P
) ) ) ) )
59 sseq1 3365 . . . . . . . 8  |-  ( w  =  x  ->  (
w  C_  I  <->  x  C_  I
) )
60 eleq2 2494 . . . . . . . . . . . . . 14  |-  ( w  =  x  ->  (
i  e.  w  <->  i  e.  x ) )
6160ifbid 3799 . . . . . . . . . . . . 13  |-  ( w  =  x  ->  if ( i  e.  w ,  ( Y `  i ) ,  0 )  =  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )
6261mpteq2dv 4367 . . . . . . . . . . . 12  |-  ( w  =  x  ->  (
i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) )  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) )
6362eqeq2d 2444 . . . . . . . . . . 11  |-  ( w  =  x  ->  (
y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) )  <->  y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ) )
6463ifbid 3799 . . . . . . . . . 10  |-  ( w  =  x  ->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  )  =  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )
6564mpteq2dv 4367 . . . . . . . . 9  |-  ( w  =  x  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
) )
66 mpteq1 4360 . . . . . . . . . 10  |-  ( w  =  x  ->  (
k  e.  w  |->  ( ( Y `  k
)  .^  ( V `  k ) ) )  =  ( k  e.  x  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) )
6766oveq2d 6096 . . . . . . . . 9  |-  ( w  =  x  ->  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
6865, 67eqeq12d 2447 . . . . . . . 8  |-  ( w  =  x  ->  (
( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  <->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )
6959, 68imbi12d 320 . . . . . . 7  |-  ( w  =  x  ->  (
( w  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  <-> 
( x  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) ) )
7069imbi2d 316 . . . . . 6  |-  ( w  =  x  ->  (
( ph  ->  ( w 
C_  I  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )  <->  ( ph  ->  ( x  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) ) ) )
71 sseq1 3365 . . . . . . . 8  |-  ( w  =  ( x  u. 
{ z } )  ->  ( w  C_  I 
<->  ( x  u.  {
z } )  C_  I ) )
72 eleq2 2494 . . . . . . . . . . . . . 14  |-  ( w  =  ( x  u. 
{ z } )  ->  ( i  e.  w  <->  i  e.  ( x  u.  { z } ) ) )
7372ifbid 3799 . . . . . . . . . . . . 13  |-  ( w  =  ( x  u. 
{ z } )  ->  if ( i  e.  w ,  ( Y `  i ) ,  0 )  =  if ( i  e.  ( x  u.  {
z } ) ,  ( Y `  i
) ,  0 ) )
7473mpteq2dv 4367 . . . . . . . . . . . 12  |-  ( w  =  ( x  u. 
{ z } )  ->  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) )  =  ( i  e.  I  |->  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 ) ) )
7574eqeq2d 2444 . . . . . . . . . . 11  |-  ( w  =  ( x  u. 
{ z } )  ->  ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `
 i ) ,  0 ) )  <->  y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  {
z } ) ,  ( Y `  i
) ,  0 ) ) ) )
7675ifbid 3799 . . . . . . . . . 10  |-  ( w  =  ( x  u. 
{ z } )  ->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  )  =  if (
y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)
7776mpteq2dv 4367 . . . . . . . . 9  |-  ( w  =  ( x  u. 
{ z } )  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) ) )
78 mpteq1 4360 . . . . . . . . . 10  |-  ( w  =  ( x  u. 
{ z } )  ->  ( k  e.  w  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  =  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) )
7978oveq2d 6096 . . . . . . . . 9  |-  ( w  =  ( x  u. 
{ z } )  ->  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) )  =  ( G 
gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) )
8077, 79eqeq12d 2447 . . . . . . . 8  |-  ( w  =  ( x  u. 
{ z } )  ->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  <->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) )
8171, 80imbi12d 320 . . . . . . 7  |-  ( w  =  ( x  u. 
{ z } )  ->  ( ( w 
C_  I  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  <-> 
( ( x  u. 
{ z } ) 
C_  I  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) )
8281imbi2d 316 . . . . . 6  |-  ( w  =  ( x  u. 
{ z } )  ->  ( ( ph  ->  ( w  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )  <->  ( ph  ->  ( ( x  u.  {
z } )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) ) )
83 sseq1 3365 . . . . . . . 8  |-  ( w  =  ( `' Y " NN )  ->  (
w  C_  I  <->  ( `' Y " NN )  C_  I ) )
84 eleq2 2494 . . . . . . . . . . . . . 14  |-  ( w  =  ( `' Y " NN )  ->  (
i  e.  w  <->  i  e.  ( `' Y " NN ) ) )
8584ifbid 3799 . . . . . . . . . . . . 13  |-  ( w  =  ( `' Y " NN )  ->  if ( i  e.  w ,  ( Y `  i ) ,  0 )  =  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) )
8685mpteq2dv 4367 . . . . . . . . . . . 12  |-  ( w  =  ( `' Y " NN )  ->  (
i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) )  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) )
8786eqeq2d 2444 . . . . . . . . . . 11  |-  ( w  =  ( `' Y " NN )  ->  (
y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i
) ,  0 ) )  <->  y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ) )
8887ifbid 3799 . . . . . . . . . 10  |-  ( w  =  ( `' Y " NN )  ->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  )  =  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )
8988mpteq2dv 4367 . . . . . . . . 9  |-  ( w  =  ( `' Y " NN )  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
) )
90 mpteq1 4360 . . . . . . . . . 10  |-  ( w  =  ( `' Y " NN )  ->  (
k  e.  w  |->  ( ( Y `  k
)  .^  ( V `  k ) ) )  =  ( k  e.  ( `' Y " NN )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) )
9190oveq2d 6096 . . . . . . . . 9  |-  ( w  =  ( `' Y " NN )  ->  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  =  ( G  gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
9289, 91eqeq12d 2447 . . . . . . . 8  |-  ( w  =  ( `' Y " NN )  ->  (
( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  <->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )
9383, 92imbi12d 320 . . . . . . 7  |-  ( w  =  ( `' Y " NN )  ->  (
( w  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  <-> 
( ( `' Y " NN )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) ) )
9493imbi2d 316 . . . . . 6  |-  ( w  =  ( `' Y " NN )  ->  (
( ph  ->  ( w 
C_  I  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  w ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  w  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )  <->  ( ph  ->  ( ( `' Y " NN )  C_  I  -> 
( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) ) ) )
95 mplcoe1.p . . . . . . . . 9  |-  P  =  ( I mPoly  R )
96 mplcoe1.z . . . . . . . . 9  |-  .0.  =  ( 0g `  R )
97 mplcoe1.o . . . . . . . . 9  |-  .1.  =  ( 1r `  R )
98 mplcoe2.r . . . . . . . . . 10  |-  ( ph  ->  R  e.  CRing )
99 crngrng 16590 . . . . . . . . . 10  |-  ( R  e.  CRing  ->  R  e.  Ring )
10098, 99syl 16 . . . . . . . . 9  |-  ( ph  ->  R  e.  Ring )
10195, 3, 96, 97, 52, 2, 100mpl1 17456 . . . . . . . 8  |-  ( ph  ->  ( 1r `  P
)  =  ( y  e.  D  |->  if ( y  =  ( I  X.  { 0 } ) ,  .1.  ,  .0.  ) ) )
102101eqcomd 2438 . . . . . . 7  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  ( I  X.  {
0 } ) ,  .1.  ,  .0.  )
)  =  ( 1r
`  P ) )
103102a1d 25 . . . . . 6  |-  ( ph  ->  ( (/)  C_  I  -> 
( y  e.  D  |->  if ( y  =  ( I  X.  {
0 } ) ,  .1.  ,  .0.  )
)  =  ( 1r
`  P ) ) )
104 ssun1 3507 . . . . . . . . . . 11  |-  x  C_  ( x  u.  { z } )
105 sstr2 3351 . . . . . . . . . . 11  |-  ( x 
C_  ( x  u. 
{ z } )  ->  ( ( x  u.  { z } )  C_  I  ->  x 
C_  I ) )
106104, 105ax-mp 5 . . . . . . . . . 10  |-  ( ( x  u.  { z } )  C_  I  ->  x  C_  I )
107106imim1i 58 . . . . . . . . 9  |-  ( ( x  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  ->  ( ( x  u.  { z } )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )
108 oveq1 6087 . . . . . . . . . . . 12  |-  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  -> 
( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) ) ( .r
`  P ) ( ( Y `  z
)  .^  ( V `  z ) ) )  =  ( ( G 
gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ( .r `  P ) ( ( Y `  z )  .^  ( V `  z )
) ) )
109 eqid 2433 . . . . . . . . . . . . . . 15  |-  ( Base `  P )  =  (
Base `  P )
1102adantr 462 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  I  e.  W
)
111100adantr 462 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  R  e.  Ring )
1127adantr 462 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  Y : I --> NN0 )
113112ffvelrnda 5831 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  I
)  ->  ( Y `  i )  e.  NN0 )
114 0nn0 10581 . . . . . . . . . . . . . . . . . 18  |-  0  e.  NN0
115 ifcl 3819 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( Y `  i
)  e.  NN0  /\  0  e.  NN0 )  ->  if ( i  e.  x ,  ( Y `  i ) ,  0 )  e.  NN0 )
116113, 114, 115sylancl 655 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  I
)  ->  if (
i  e.  x ,  ( Y `  i
) ,  0 )  e.  NN0 )
117 eqid 2433 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )
118116, 117fmptd 5855 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) : I --> NN0 )
119 frnnn0supp 10620 . . . . . . . . . . . . . . . . . 18  |-  ( ( I  e.  W  /\  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) : I --> NN0 )  ->  (
( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) supp  0
)  =  ( `' ( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) " NN ) )
120110, 118, 119syl2anc 654 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) supp  0 )  =  ( `' ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) " NN ) )
121 simprll 754 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  x  e.  Fin )
122 eldifn 3467 . . . . . . . . . . . . . . . . . . . . 21  |-  ( i  e.  ( I  \  x )  ->  -.  i  e.  x )
123122adantl 463 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  ( I  \  x ) )  ->  -.  i  e.  x )
124 iffalse 3787 . . . . . . . . . . . . . . . . . . . 20  |-  ( -.  i  e.  x  ->  if ( i  e.  x ,  ( Y `  i ) ,  0 )  =  0 )
125123, 124syl 16 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  ( I  \  x ) )  ->  if (
i  e.  x ,  ( Y `  i
) ,  0 )  =  0 )
126125, 110suppss2 6712 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) supp  0 )  C_  x )
127 ssfi 7521 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  e.  Fin  /\  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) supp  0 )  C_  x
)  ->  ( (
i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) supp  0 )  e.  Fin )
128121, 126, 127syl2anc 654 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) supp  0 )  e. 
Fin )
129120, 128eqeltrrd 2508 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( `' ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) " NN )  e.  Fin )
1303psrbag 17364 . . . . . . . . . . . . . . . . 17  |-  ( I  e.  W  ->  (
( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) )  e.  D  <->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) : I --> NN0  /\  ( `' ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) )
" NN )  e. 
Fin ) ) )
131110, 130syl 16 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  e.  D  <->  ( (
i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) : I --> NN0  /\  ( `' ( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) " NN )  e.  Fin ) ) )
132118, 129, 131mpbir2and 906 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) )  e.  D )
133 eqid 2433 . . . . . . . . . . . . . . 15  |-  ( .r
`  P )  =  ( .r `  P
)
134 ssun2 3508 . . . . . . . . . . . . . . . . . . 19  |-  { z }  C_  ( x  u.  { z } )
135 simprr 749 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( x  u. 
{ z } ) 
C_  I )
136134, 135syl5ss 3355 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  { z } 
C_  I )
137 vex 2965 . . . . . . . . . . . . . . . . . . 19  |-  z  e. 
_V
138137snss 3987 . . . . . . . . . . . . . . . . . 18  |-  ( z  e.  I  <->  { z }  C_  I )
139136, 138sylibr 212 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  z  e.  I
)
140112, 139ffvelrnd 5832 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( Y `  z )  e.  NN0 )
1413snifpsrbag 17366 . . . . . . . . . . . . . . . 16  |-  ( ( I  e.  W  /\  ( Y `  z )  e.  NN0 )  -> 
( i  e.  I  |->  if ( i  =  z ,  ( Y `
 z ) ,  0 ) )  e.  D )
142110, 140, 141syl2anc 654 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) )  e.  D )
14395, 109, 96, 97, 3, 110, 111, 132, 133, 142mplmonmul 17476 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) ) ( .r
`  P ) ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) ,  .1.  ,  .0.  ) ) )  =  ( y  e.  D  |->  if ( y  =  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  oF  +  ( i  e.  I  |->  if ( i  =  z ,  ( Y `
 z ) ,  0 ) ) ) ,  .1.  ,  .0.  ) ) )
144 mplcoe2.m . . . . . . . . . . . . . . . 16  |-  .^  =  (.g
`  G )
145 mplcoe2.v . . . . . . . . . . . . . . . 16  |-  V  =  ( I mVar  R )
14695, 3, 96, 97, 110, 51, 144, 145, 111, 139, 140mplcoe3 17478 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( ( Y `  z
)  .^  ( V `  z ) ) )
147146oveq2d 6096 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) ) ( .r
`  P ) ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) ,  .1.  ,  .0.  ) ) )  =  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) ) ( .r
`  P ) ( ( Y `  z
)  .^  ( V `  z ) ) ) )
148140adantr 462 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  I
)  ->  ( Y `  z )  e.  NN0 )
149 ifcl 3819 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( Y `  z
)  e.  NN0  /\  0  e.  NN0 )  ->  if ( i  =  z ,  ( Y `  z ) ,  0 )  e.  NN0 )
150148, 114, 149sylancl 655 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  I
)  ->  if (
i  =  z ,  ( Y `  z
) ,  0 )  e.  NN0 )
151 eqidd 2434 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) )  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) )
152 eqidd 2434 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) )  =  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) )
153110, 116, 150, 151, 152offval2 6325 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  oF  +  ( i  e.  I  |->  if ( i  =  z ,  ( Y `
 z ) ,  0 ) ) )  =  ( i  e.  I  |->  ( if ( i  e.  x ,  ( Y `  i
) ,  0 )  +  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) ) )
154113adantr 462 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  ( Y `  i )  e.  NN0 )
155154nn0cnd 10625 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  ( Y `  i )  e.  CC )
156155addid2d 9557 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  ( 0  +  ( Y `  i
) )  =  ( Y `  i ) )
157 elsni 3890 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( i  e.  { z }  ->  i  =  z )
158157adantl 463 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  i  =  z )
159 simprlr 755 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  -.  z  e.  x )
160159ad2antrr 718 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  -.  z  e.  x )
161158, 160eqneltrd 2526 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  -.  i  e.  x )
162161, 124syl 16 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  if ( i  e.  x ,  ( Y `  i ) ,  0 )  =  0 )
163 iftrue 3785 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  =  z  ->  if ( i  =  z ,  ( Y `  z ) ,  0 )  =  ( Y `
 z ) )
164158, 163syl 16 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  if ( i  =  z ,  ( Y `  z ) ,  0 )  =  ( Y `  z
) )
165158fveq2d 5683 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  ( Y `  i )  =  ( Y `  z ) )
166164, 165eqtr4d 2468 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  if ( i  =  z ,  ( Y `  z ) ,  0 )  =  ( Y `  i
) )
167162, 166oveq12d 6098 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  ( if ( i  e.  x ,  ( Y `  i
) ,  0 )  +  if ( i  =  z ,  ( Y `  z ) ,  0 ) )  =  ( 0  +  ( Y `  i
) ) )
168 simpr 458 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  i  e.  {
z } )
169134, 168sseldi 3342 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  i  e.  ( x  u.  { z } ) )
170 iftrue 3785 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( i  e.  ( x  u. 
{ z } )  ->  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
171169, 170syl 16 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 )  =  ( Y `
 i ) )
172156, 167, 1713eqtr4d 2475 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  i  e.  { z } )  ->  ( if ( i  e.  x ,  ( Y `  i
) ,  0 )  +  if ( i  =  z ,  ( Y `  z ) ,  0 ) )  =  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 ) )
173116adantr 462 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  if ( i  e.  x ,  ( Y `  i ) ,  0 )  e.  NN0 )
174173nn0cnd 10625 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  if ( i  e.  x ,  ( Y `  i ) ,  0 )  e.  CC )
175174addid1d 9556 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  ( if ( i  e.  x ,  ( Y `  i ) ,  0 )  +  0 )  =  if ( i  e.  x ,  ( Y `  i ) ,  0 ) )
176 simpr 458 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  -.  i  e.  { z } )
177 elsn 3879 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  e.  { z }  <-> 
i  =  z )
178176, 177sylnib 304 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  -.  i  =  z )
179 iffalse 3787 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -.  i  =  z  ->  if ( i  =  z ,  ( Y `  z ) ,  0 )  =  0 )
180178, 179syl 16 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  if ( i  =  z ,  ( Y `  z ) ,  0 )  =  0 )
181180oveq2d 6096 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  ( if ( i  e.  x ,  ( Y `  i ) ,  0 )  +  if ( i  =  z ,  ( Y `  z
) ,  0 ) )  =  ( if ( i  e.  x ,  ( Y `  i ) ,  0 )  +  0 ) )
182 biorf 405 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( -.  i  e.  { z }  ->  ( i  e.  x  <->  ( i  e. 
{ z }  \/  i  e.  x )
) )
183 elun 3485 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( i  e.  ( x  u. 
{ z } )  <-> 
( i  e.  x  \/  i  e.  { z } ) )
184 orcom 387 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( i  e.  x  \/  i  e.  { z } )  <->  ( i  e.  { z }  \/  i  e.  x )
)
185183, 184bitri 249 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( i  e.  ( x  u. 
{ z } )  <-> 
( i  e.  {
z }  \/  i  e.  x ) )
186182, 185syl6rbbr 264 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( -.  i  e.  { z }  ->  ( i  e.  ( x  u.  {
z } )  <->  i  e.  x ) )
187186adantl 463 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  (
i  e.  ( x  u.  { z } )  <->  i  e.  x
) )
188187ifbid 3799 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 )  =  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) )
189175, 181, 1883eqtr4d 2475 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  ( ( x  e. 
Fin  /\  -.  z  e.  x )  /\  (
x  u.  { z } )  C_  I
) )  /\  i  e.  I )  /\  -.  i  e.  { z } )  ->  ( if ( i  e.  x ,  ( Y `  i ) ,  0 )  +  if ( i  =  z ,  ( Y `  z
) ,  0 ) )  =  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) )
190172, 189pm2.61dan 782 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  i  e.  I
)  ->  ( if ( i  e.  x ,  ( Y `  i ) ,  0 )  +  if ( i  =  z ,  ( Y `  z
) ,  0 ) )  =  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) )
191190mpteq2dva 4366 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( i  e.  I  |->  ( if ( i  e.  x ,  ( Y `  i
) ,  0 )  +  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) )  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) ) )
192153, 191eqtrd 2465 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  oF  +  ( i  e.  I  |->  if ( i  =  z ,  ( Y `
 z ) ,  0 ) ) )  =  ( i  e.  I  |->  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 ) ) )
193192eqeq2d 2444 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( y  =  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) )  oF  +  ( i  e.  I  |->  if ( i  =  z ,  ( Y `  z ) ,  0 ) ) )  <->  y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  {
z } ) ,  ( Y `  i
) ,  0 ) ) ) )
194193ifbid 3799 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  if ( y  =  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  oF  +  ( i  e.  I  |->  if ( i  =  z ,  ( Y `
 z ) ,  0 ) ) ) ,  .1.  ,  .0.  )  =  if (
y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)
195194mpteq2dv 4367 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( y  e.  D  |->  if ( y  =  ( ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) )  oF  +  ( i  e.  I  |->  if ( i  =  z ,  ( Y `
 z ) ,  0 ) ) ) ,  .1.  ,  .0.  ) )  =  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) ) )
196143, 147, 1953eqtr3rd 2474 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u. 
{ z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) ) ( .r
`  P ) ( ( Y `  z
)  .^  ( V `  z ) ) ) )
19751, 109mgpbas 16570 . . . . . . . . . . . . . 14  |-  ( Base `  P )  =  (
Base `  G )
19851, 133mgpplusg 16568 . . . . . . . . . . . . . 14  |-  ( .r
`  P )  =  ( +g  `  G
)
19995mplcrng 17465 . . . . . . . . . . . . . . . . 17  |-  ( ( I  e.  W  /\  R  e.  CRing )  ->  P  e.  CRing )
2002, 98, 199syl2anc 654 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  P  e.  CRing )
20151crngmgp 16588 . . . . . . . . . . . . . . . 16  |-  ( P  e.  CRing  ->  G  e. CMnd )
202200, 201syl 16 . . . . . . . . . . . . . . 15  |-  ( ph  ->  G  e. CMnd )
203202adantr 462 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  G  e. CMnd )
204104, 135syl5ss 3355 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  x  C_  I
)
205204sselda 3344 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  k  e.  x
)  ->  k  e.  I )
206 cmnmnd 16271 . . . . . . . . . . . . . . . . . . 19  |-  ( G  e. CMnd  ->  G  e.  Mnd )
207202, 206syl 16 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  G  e.  Mnd )
208207adantr 462 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  I )  ->  G  e.  Mnd )
2097ffvelrnda 5831 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  I )  ->  ( Y `  k )  e.  NN0 )
2102adantr 462 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  I )  ->  I  e.  W )
211100adantr 462 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  I )  ->  R  e.  Ring )
212 simpr 458 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  k  e.  I )  ->  k  e.  I )
21395, 145, 109, 210, 211, 212mvrcl 17461 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  k  e.  I )  ->  ( V `  k )  e.  ( Base `  P
) )
214197, 144mulgnn0cl 15622 . . . . . . . . . . . . . . . . 17  |-  ( ( G  e.  Mnd  /\  ( Y `  k )  e.  NN0  /\  ( V `  k )  e.  ( Base `  P
) )  ->  (
( Y `  k
)  .^  ( V `  k ) )  e.  ( Base `  P
) )
215208, 209, 213, 214syl3anc 1211 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  k  e.  I )  ->  (
( Y `  k
)  .^  ( V `  k ) )  e.  ( Base `  P
) )
216215adantlr 707 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  k  e.  I
)  ->  ( ( Y `  k )  .^  ( V `  k
) )  e.  (
Base `  P )
)
217205, 216syldan 467 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
( x  e.  Fin  /\ 
-.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  /\  k  e.  x
)  ->  ( ( Y `  k )  .^  ( V `  k
) )  e.  (
Base `  P )
)
218207adantr 462 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  G  e.  Mnd )
21995, 145, 109, 110, 111, 139mvrcl 17461 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( V `  z )  e.  (
Base `  P )
)
220197, 144mulgnn0cl 15622 . . . . . . . . . . . . . . 15  |-  ( ( G  e.  Mnd  /\  ( Y `  z )  e.  NN0  /\  ( V `  z )  e.  ( Base `  P
) )  ->  (
( Y `  z
)  .^  ( V `  z ) )  e.  ( Base `  P
) )
221218, 140, 219, 220syl3anc 1211 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( Y `
 z )  .^  ( V `  z ) )  e.  ( Base `  P ) )
222 fveq2 5679 . . . . . . . . . . . . . . 15  |-  ( k  =  z  ->  ( Y `  k )  =  ( Y `  z ) )
223 fveq2 5679 . . . . . . . . . . . . . . 15  |-  ( k  =  z  ->  ( V `  k )  =  ( V `  z ) )
224222, 223oveq12d 6098 . . . . . . . . . . . . . 14  |-  ( k  =  z  ->  (
( Y `  k
)  .^  ( V `  k ) )  =  ( ( Y `  z )  .^  ( V `  z )
) )
225197, 198, 203, 121, 217, 139, 159, 221, 224gsumunsn 16427 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( G  gsumg  ( k  e.  ( x  u. 
{ z } ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) )  =  ( ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ( .r `  P ) ( ( Y `  z ) 
.^  ( V `  z ) ) ) )
226196, 225eqeq12d 2447 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) )  <->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) ) ( .r
`  P ) ( ( Y `  z
)  .^  ( V `  z ) ) )  =  ( ( G 
gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ( .r `  P ) ( ( Y `  z )  .^  ( V `  z )
) ) ) )
227108, 226syl5ibr 221 . . . . . . . . . . 11  |-  ( (
ph  /\  ( (
x  e.  Fin  /\  -.  z  e.  x
)  /\  ( x  u.  { z } ) 
C_  I ) )  ->  ( ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  -> 
( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  {
z } ) ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) )
228227expr 610 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  Fin  /\  -.  z  e.  x ) )  -> 
( ( x  u. 
{ z } ) 
C_  I  ->  (
( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) )  -> 
( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  {
z } ) ,  ( Y `  i
) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) )
229228a2d 26 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  Fin  /\  -.  z  e.  x ) )  -> 
( ( ( x  u.  { z } )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  ->  ( ( x  u.  { z } )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) )
230107, 229syl5 32 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  Fin  /\  -.  z  e.  x ) )  -> 
( ( x  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  ->  ( ( x  u.  { z } )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) )
231230expcom 435 . . . . . . 7  |-  ( ( x  e.  Fin  /\  -.  z  e.  x
)  ->  ( ph  ->  ( ( x  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )  ->  ( ( x  u.  { z } )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) ) )
232231a2d 26 . . . . . 6  |-  ( ( x  e.  Fin  /\  -.  z  e.  x
)  ->  ( ( ph  ->  ( x  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  x ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  x  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )  ->  ( ph  ->  ( ( x  u. 
{ z } ) 
C_  I  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( x  u.  { z } ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( x  u.  { z } )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) ) ) ) ) )
23358, 70, 82, 94, 103, 232findcard2s 7541 . . . . 5  |-  ( ( `' Y " NN )  e.  Fin  ->  ( ph  ->  ( ( `' Y " NN ) 
C_  I  ->  (
y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `  i ) ,  0 ) ) ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) ) )
23434, 233mpcom 36 . . . 4  |-  ( ph  ->  ( ( `' Y " NN )  C_  I  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) ) )
23533, 234mpd 15 . . 3  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
236 resmpt 5144 . . . . 5  |-  ( ( `' Y " NN ) 
C_  I  ->  (
( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) )  |`  ( `' Y " NN ) )  =  ( k  e.  ( `' Y " NN )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) )
23733, 236syl 16 . . . 4  |-  ( ph  ->  ( ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  |`  ( `' Y " NN ) )  =  ( k  e.  ( `' Y " NN )  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) ) )
238237oveq2d 6096 . . 3  |-  ( ph  ->  ( G  gsumg  ( ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  |`  ( `' Y " NN ) ) )  =  ( G  gsumg  ( k  e.  ( `' Y " NN ) 
|->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
239 eqid 2433 . . . . 5  |-  ( k  e.  I  |->  ( ( Y `  k ) 
.^  ( V `  k ) ) )  =  ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )
240215, 239fmptd 5855 . . . 4  |-  ( ph  ->  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) ) : I --> ( Base `  P
) )
2417, 16, 2, 18suppssr 6709 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( I  \  ( `' Y " NN ) ) )  ->  ( Y `  k )  =  0 )
242241oveq1d 6095 . . . . . 6  |-  ( (
ph  /\  k  e.  ( I  \  ( `' Y " NN ) ) )  ->  (
( Y `  k
)  .^  ( V `  k ) )  =  ( 0  .^  ( V `  k )
) )
243 eldifi 3466 . . . . . . . 8  |-  ( k  e.  ( I  \ 
( `' Y " NN ) )  ->  k  e.  I )
244243, 213sylan2 471 . . . . . . 7  |-  ( (
ph  /\  k  e.  ( I  \  ( `' Y " NN ) ) )  ->  ( V `  k )  e.  ( Base `  P
) )
245197, 53, 144mulg0 15611 . . . . . . 7  |-  ( ( V `  k )  e.  ( Base `  P
)  ->  ( 0 
.^  ( V `  k ) )  =  ( 1r `  P
) )
246244, 245syl 16 . . . . . 6  |-  ( (
ph  /\  k  e.  ( I  \  ( `' Y " NN ) ) )  ->  (
0  .^  ( V `  k ) )  =  ( 1r `  P
) )
247242, 246eqtrd 2465 . . . . 5  |-  ( (
ph  /\  k  e.  ( I  \  ( `' Y " NN ) ) )  ->  (
( Y `  k
)  .^  ( V `  k ) )  =  ( 1r `  P
) )
248247, 2suppss2 6712 . . . 4  |-  ( ph  ->  ( ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) supp  ( 1r
`  P ) ) 
C_  ( `' Y " NN ) )
249 mptexg 5934 . . . . . 6  |-  ( I  e.  W  ->  (
k  e.  I  |->  ( ( Y `  k
)  .^  ( V `  k ) ) )  e.  _V )
2502, 249syl 16 . . . . 5  |-  ( ph  ->  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) )  e.  _V )
251 funmpt 5442 . . . . . 6  |-  Fun  (
k  e.  I  |->  ( ( Y `  k
)  .^  ( V `  k ) ) )
252251a1i 11 . . . . 5  |-  ( ph  ->  Fun  ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) )
253 fvex 5689 . . . . . 6  |-  ( 1r
`  P )  e. 
_V
254253a1i 11 . . . . 5  |-  ( ph  ->  ( 1r `  P
)  e.  _V )
255 suppssfifsupp 7623 . . . . 5  |-  ( ( ( ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  e.  _V  /\ 
Fun  ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  /\  ( 1r `  P )  e. 
_V )  /\  (
( `' Y " NN )  e.  Fin  /\  ( ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) supp  ( 1r
`  P ) ) 
C_  ( `' Y " NN ) ) )  ->  ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) ) finSupp  ( 1r
`  P ) )
256250, 252, 254, 34, 248, 255syl32anc 1219 . . . 4  |-  ( ph  ->  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) ) finSupp  ( 1r `  P ) )
257197, 53, 202, 2, 240, 248, 256gsumres 16374 . . 3  |-  ( ph  ->  ( G  gsumg  ( ( k  e.  I  |->  ( ( Y `
 k )  .^  ( V `  k ) ) )  |`  ( `' Y " NN ) ) )  =  ( G  gsumg  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
258235, 238, 2573eqtr2d 2471 . 2  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  ( i  e.  I  |->  if ( i  e.  ( `' Y " NN ) ,  ( Y `
 i ) ,  0 ) ) ,  .1.  ,  .0.  )
)  =  ( G 
gsumg  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
25929, 258eqtrd 2465 1  |-  ( ph  ->  ( y  e.  D  |->  if ( y  =  Y ,  .1.  ,  .0.  ) )  =  ( G  gsumg  ( k  e.  I  |->  ( ( Y `  k )  .^  ( V `  k )
) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    \/ wo 368    /\ wa 369    = wceq 1362    e. wcel 1755   {crab 2709   _Vcvv 2962    \ cdif 3313    u. cun 3314    C_ wss 3316   (/)c0 3625   ifcif 3779   {csn 3865   class class class wbr 4280    e. cmpt 4338    X. cxp 4825   `'ccnv 4826   dom cdm 4827    |` cres 4829   "cima 4830   Fun wfun 5400   -->wf 5402   ` cfv 5406  (class class class)co 6080    oFcof 6307   supp csupp 6679    ^m cmap 7202   Fincfn 7298   finSupp cfsupp 7608   0cc0 9269    + caddc 9272   NNcn 10309   NN0cn0 10566   Basecbs 14156   .rcmulr 14221   0gc0g 14360    gsumg cgsu 14361   Mndcmnd 15391  .gcmg 15396  CMndccmn 16256  mulGrpcmgp 16564   Ringcrg 16576   CRingccrg 16577   1rcur 16578   mVar cmvr 17340   mPoly cmpl 17341
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1594  ax-4 1605  ax-5 1669  ax-6 1707  ax-7 1727  ax-8 1757  ax-9 1759  ax-10 1774  ax-11 1779  ax-12 1791  ax-13 1942  ax-ext 2414  ax-rep 4391  ax-sep 4401  ax-nul 4409  ax-pow 4458  ax-pr 4519  ax-un 6361  ax-inf2 7835  ax-cnex 9325  ax-resscn 9326  ax-1cn 9327  ax-icn 9328  ax-addcl 9329  ax-addrcl 9330  ax-mulcl 9331  ax-mulrcl 9332  ax-mulcom 9333  ax-addass 9334  ax-mulass 9335  ax-distr 9336  ax-i2m1 9337  ax-1ne0 9338  ax-1rid 9339  ax-rnegex 9340  ax-rrecex 9341  ax-cnre 9342  ax-pre-lttri 9343  ax-pre-lttrn 9344  ax-pre-ltadd 9345  ax-pre-mulgt0 9346
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 959  df-3an 960  df-tru 1365  df-ex 1590  df-nf 1593  df-sb 1700  df-eu 2258  df-mo 2259  df-clab 2420  df-cleq 2426  df-clel 2429  df-nfc 2558  df-ne 2598  df-nel 2599  df-ral 2710  df-rex 2711  df-reu 2712  df-rmo 2713  df-rab 2714  df-v 2964  df-sbc 3176  df-csb 3277  df-dif 3319  df-un 3321  df-in 3323  df-ss 3330  df-pss 3332  df-nul 3626  df-if 3780  df-pw 3850  df-sn 3866  df-pr 3868  df-tp 3870  df-op 3872  df-uni 4080  df-int 4117  df-iun 4161  df-iin 4162  df-br 4281  df-opab 4339  df-mpt 4340  df-tr 4374  df-eprel 4619  df-id 4623  df-po 4628  df-so 4629  df-fr 4666  df-se 4667  df-we 4668  df-ord 4709  df-on 4710  df-lim 4711  df-suc 4712  df-xp 4833  df-rel 4834  df-cnv 4835  df-co 4836  df-dm 4837  df-rn 4838  df-res 4839  df-ima 4840  df-iota 5369  df-fun 5408  df-fn 5409  df-f 5410  df-f1 5411  df-fo 5412  df-f1o 5413  df-fv 5414  df-isom 5415  df-riota 6039  df-ov 6083  df-oprab 6084  df-mpt2 6085  df-of 6309  df-ofr 6310  df-om 6466  df-1st 6566  df-2nd 6567  df-supp 6680  df-recs 6818  df-rdg 6852  df-1o 6908  df-2o 6909  df-oadd 6912  df-er 7089  df-map 7204  df-pm 7205  df-ixp 7252  df-en 7299  df-dom 7300  df-sdom 7301  df-fin 7302  df-fsupp 7609  df-oi 7712  df-card 8097  df-pnf 9407  df-mnf 9408  df-xr 9409  df-ltxr 9410  df-le 9411  df-sub 9584  df-neg 9585  df-nn 10310  df-2 10367  df-3 10368  df-4 10369  df-5 10370  df-6 10371  df-7 10372  df-8 10373  df-9 10374  df-n0 10567  df-z 10634  df-uz 10849  df-fz 11424  df-fzo 11532  df-seq 11790  df-hash 12087  df-struct 14158  df-ndx 14159  df-slot 14160  df-base 14161  df-sets 14162  df-ress 14163  df-plusg 14233  df-mulr 14234  df-sca 14236  df-vsca 14237  df-tset 14239  df-0g 14362  df-gsum 14363  df-mre 14506  df-mrc 14507  df-acs 14509  df-mnd 15397  df-mhm 15446  df-submnd 15447  df-grp 15524  df-minusg 15525  df-mulg 15527  df-subg 15657  df-ghm 15724  df-cntz 15814  df-cmn 16258  df-abl 16259  df-mgp 16565  df-rng 16579  df-cring 16580  df-ur 16581  df-subrg 16786  df-psr 17350  df-mvr 17351  df-mpl 17352
This theorem is referenced by:  mplbas2  17482  mplbas2OLD  17483  ply1coe  17642
  Copyright terms: Public domain W3C validator