Users' Mathboxes Mathbox for David A. Wheeler < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  aacllem Structured version   Visualization version   Unicode version

Theorem aacllem 42547
Description: Lemma for other theorems about  AA. (Contributed by Brendan Leahy, 3-Jan-2020.) (Revised by Alexander van der Vekens and David A. Wheeler, 25-Apr-2020.)
Hypotheses
Ref Expression
aacllem.0  |-  ( ph  ->  A  e.  CC )
aacllem.1  |-  ( ph  ->  N  e.  NN0 )
aacllem.2  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  X  e.  CC )
aacllem.3  |-  ( (
ph  /\  k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) )  ->  C  e.  QQ )
aacllem.4  |-  ( (
ph  /\  k  e.  ( 0 ... N
) )  ->  ( A ^ k )  = 
sum_ n  e.  (
1 ... N ) ( C  x.  X ) )
Assertion
Ref Expression
aacllem  |-  ( ph  ->  A  e.  AA )
Distinct variable groups:    A, k, n    k, N, n    k, X    ph, k, n
Allowed substitution hints:    C( k, n)    X( n)

Proof of Theorem aacllem
Dummy variables  x  w  y  B  v 
z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 aacllem.0 . 2  |-  ( ph  ->  A  e.  CC )
2 aacllem.1 . . . . . . 7  |-  ( ph  ->  N  e.  NN0 )
32nn0red 11352 . . . . . 6  |-  ( ph  ->  N  e.  RR )
43ltp1d 10954 . . . . 5  |-  ( ph  ->  N  <  ( N  +  1 ) )
5 peano2nn0 11333 . . . . . . . 8  |-  ( N  e.  NN0  ->  ( N  +  1 )  e. 
NN0 )
62, 5syl 17 . . . . . . 7  |-  ( ph  ->  ( N  +  1 )  e.  NN0 )
76nn0red 11352 . . . . . 6  |-  ( ph  ->  ( N  +  1 )  e.  RR )
83, 7ltnled 10184 . . . . 5  |-  ( ph  ->  ( N  <  ( N  +  1 )  <->  -.  ( N  +  1 )  <_  N )
)
94, 8mpbid 222 . . . 4  |-  ( ph  ->  -.  ( N  + 
1 )  <_  N
)
10 aacllem.3 . . . . . . . . . . . 12  |-  ( (
ph  /\  k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) )  ->  C  e.  QQ )
11103expa 1265 . . . . . . . . . . 11  |-  ( ( ( ph  /\  k  e.  ( 0 ... N
) )  /\  n  e.  ( 1 ... N
) )  ->  C  e.  QQ )
12 eqid 2622 . . . . . . . . . . 11  |-  ( n  e.  ( 1 ... N )  |->  C )  =  ( n  e.  ( 1 ... N
)  |->  C )
1311, 12fmptd 6385 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  ( 0 ... N
) )  ->  (
n  e.  ( 1 ... N )  |->  C ) : ( 1 ... N ) --> QQ )
14 qex 11800 . . . . . . . . . . 11  |-  QQ  e.  _V
15 ovex 6678 . . . . . . . . . . 11  |-  ( 1 ... N )  e. 
_V
1614, 15elmap 7886 . . . . . . . . . 10  |-  ( ( n  e.  ( 1 ... N )  |->  C )  e.  ( QQ 
^m  ( 1 ... N ) )  <->  ( n  e.  ( 1 ... N
)  |->  C ) : ( 1 ... N
) --> QQ )
1713, 16sylibr 224 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  ( 0 ... N
) )  ->  (
n  e.  ( 1 ... N )  |->  C )  e.  ( QQ 
^m  ( 1 ... N ) ) )
18 eqid 2622 . . . . . . . . 9  |-  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  =  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )
1917, 18fmptd 6385 . . . . . . . 8  |-  ( ph  ->  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) : ( 0 ... N
) --> ( QQ  ^m  ( 1 ... N
) ) )
20 eqid 2622 . . . . . . . . . . . 12  |-  (flds  QQ )  =  (flds  QQ )
2120qdrng 25309 . . . . . . . . . . 11  |-  (flds  QQ )  e.  DivRing
22 drngring 18754 . . . . . . . . . . 11  |-  ( (flds  QQ )  e.  DivRing  ->  (flds  QQ )  e.  Ring )
2321, 22ax-mp 5 . . . . . . . . . 10  |-  (flds  QQ )  e.  Ring
24 fzfi 12771 . . . . . . . . . 10  |-  ( 1 ... N )  e. 
Fin
25 eqid 2622 . . . . . . . . . . 11  |-  ( (flds  QQ ) freeLMod  ( 1 ... N
) )  =  ( (flds  QQ ) freeLMod  ( 1 ... N ) )
2625frlmlmod 20093 . . . . . . . . . 10  |-  ( ( (flds  QQ )  e.  Ring  /\  (
1 ... N )  e. 
Fin )  ->  (
(flds  QQ ) freeLMod  ( 1 ... N
) )  e.  LMod )
2723, 24, 26mp2an 708 . . . . . . . . 9  |-  ( (flds  QQ ) freeLMod  ( 1 ... N
) )  e.  LMod
28 fzfi 12771 . . . . . . . . 9  |-  ( 0 ... N )  e. 
Fin
2920qrngbas 25308 . . . . . . . . . . . 12  |-  QQ  =  ( Base `  (flds  QQ ) )
3025, 29frlmfibas 20105 . . . . . . . . . . 11  |-  ( ( (flds  QQ )  e.  DivRing  /\  (
1 ... N )  e. 
Fin )  ->  ( QQ  ^m  ( 1 ... N ) )  =  ( Base `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) )
3121, 24, 30mp2an 708 . . . . . . . . . 10  |-  ( QQ 
^m  ( 1 ... N ) )  =  ( Base `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )
3225frlmsca 20097 . . . . . . . . . . 11  |-  ( ( (flds  QQ )  e.  DivRing  /\  (
1 ... N )  e. 
Fin )  ->  (flds  QQ )  =  (Scalar `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )
3321, 24, 32mp2an 708 . . . . . . . . . 10  |-  (flds  QQ )  =  (Scalar `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )
34 eqid 2622 . . . . . . . . . 10  |-  ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  =  ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )
3520qrng0 25310 . . . . . . . . . . . 12  |-  0  =  ( 0g `  (flds  QQ ) )
3625, 35frlm0 20098 . . . . . . . . . . 11  |-  ( ( (flds  QQ )  e.  Ring  /\  (
1 ... N )  e. 
Fin )  ->  (
( 1 ... N
)  X.  { 0 } )  =  ( 0g `  ( (flds  QQ ) freeLMod  ( 1 ... N
) ) ) )
3723, 24, 36mp2an 708 . . . . . . . . . 10  |-  ( ( 1 ... N )  X.  { 0 } )  =  ( 0g
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )
38 eqid 2622 . . . . . . . . . . . 12  |-  ( (flds  QQ ) freeLMod  ( 0 ... N
) )  =  ( (flds  QQ ) freeLMod  ( 0 ... N ) )
3938, 29frlmfibas 20105 . . . . . . . . . . 11  |-  ( ( (flds  QQ )  e.  DivRing  /\  (
0 ... N )  e. 
Fin )  ->  ( QQ  ^m  ( 0 ... N ) )  =  ( Base `  (
(flds  QQ ) freeLMod  ( 0 ... N
) ) ) )
4021, 28, 39mp2an 708 . . . . . . . . . 10  |-  ( QQ 
^m  ( 0 ... N ) )  =  ( Base `  (
(flds  QQ ) freeLMod  ( 0 ... N
) ) )
4131, 33, 34, 37, 35, 40islindf4 20177 . . . . . . . . 9  |-  ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LMod  /\  ( 0 ... N )  e.  Fin  /\  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) : ( 0 ... N
) --> ( QQ  ^m  ( 1 ... N
) ) )  -> 
( ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) LIndF 
( (flds  QQ ) freeLMod  ( 1 ... N ) )  <->  A. w  e.  ( QQ  ^m  (
0 ... N ) ) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  ->  w  =  ( ( 0 ... N
)  X.  { 0 } ) ) ) )
4227, 28, 41mp3an12 1414 . . . . . . . 8  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) --> ( QQ  ^m  (
1 ... N ) )  ->  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) LIndF  ( (flds  QQ ) freeLMod  ( 1 ... N ) )  <->  A. w  e.  ( QQ  ^m  ( 0 ... N ) ) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  ->  w  =  ( ( 0 ... N
)  X.  { 0 } ) ) ) )
4319, 42syl 17 . . . . . . 7  |-  ( ph  ->  ( ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) LIndF 
( (flds  QQ ) freeLMod  ( 1 ... N ) )  <->  A. w  e.  ( QQ  ^m  (
0 ... N ) ) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  ->  w  =  ( ( 0 ... N
)  X.  { 0 } ) ) ) )
44 elmapi 7879 . . . . . . . . 9  |-  ( w  e.  ( QQ  ^m  ( 0 ... N
) )  ->  w : ( 0 ... N ) --> QQ )
45 fzfid 12772 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( 0 ... N
)  e.  Fin )
46 fvexd 6203 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( w `  k )  e.  _V )
4715mptex 6486 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  ( 1 ... N )  |->  C )  e.  _V
4847a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( n  e.  ( 1 ... N
)  |->  C )  e. 
_V )
49 simpr 477 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  w : ( 0 ... N ) --> QQ )
5049feqmptd 6249 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  w  =  ( k  e.  ( 0 ... N
)  |->  ( w `  k ) ) )
51 eqidd 2623 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  =  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) )
5245, 46, 48, 50, 51offval2 6914 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) )  =  ( k  e.  ( 0 ... N ) 
|->  ( ( w `  k ) ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( n  e.  ( 1 ... N
)  |->  C ) ) ) )
53 fzfid 12772 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( 1 ... N )  e. 
Fin )
54 ffvelrn 6357 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  k  e.  ( 0 ... N ) )  ->  ( w `  k )  e.  QQ )
5554adantll 750 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( w `  k )  e.  QQ )
5617adantlr 751 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( n  e.  ( 1 ... N
)  |->  C )  e.  ( QQ  ^m  (
1 ... N ) ) )
57 cnfldmul 19752 . . . . . . . . . . . . . . . . . . . . . 22  |-  x.  =  ( .r ` fld )
5820, 57ressmulr 16006 . . . . . . . . . . . . . . . . . . . . 21  |-  ( QQ  e.  _V  ->  x.  =  ( .r `  (flds  QQ ) ) )
5914, 58ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  x.  =  ( .r `  (flds  QQ ) )
6025, 31, 29, 53, 55, 56, 34, 59frlmvscafval 20109 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w `  k )
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( n  e.  ( 1 ... N )  |->  C ) )  =  ( ( ( 1 ... N )  X.  {
( w `  k
) } )  oF  x.  ( n  e.  ( 1 ... N )  |->  C ) ) )
61 fvexd 6203 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  (
w `  k )  e.  _V )
6211adantllr 755 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  C  e.  QQ )
63 fconstmpt 5163 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( 1 ... N )  X.  { ( w `
 k ) } )  =  ( n  e.  ( 1 ... N )  |->  ( w `
 k ) )
6463a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
1 ... N )  X. 
{ ( w `  k ) } )  =  ( n  e.  ( 1 ... N
)  |->  ( w `  k ) ) )
65 eqidd 2623 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( n  e.  ( 1 ... N
)  |->  C )  =  ( n  e.  ( 1 ... N ) 
|->  C ) )
6653, 61, 62, 64, 65offval2 6914 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
( 1 ... N
)  X.  { ( w `  k ) } )  oF  x.  ( n  e.  ( 1 ... N
)  |->  C ) )  =  ( n  e.  ( 1 ... N
)  |->  ( ( w `
 k )  x.  C ) ) )
6760, 66eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w `  k )
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( n  e.  ( 1 ... N )  |->  C ) )  =  ( n  e.  ( 1 ... N )  |->  ( ( w `  k
)  x.  C ) ) )
6867mpteq2dva 4744 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( k  e.  ( 0 ... N ) 
|->  ( ( w `  k ) ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( n  e.  ( 1 ... N
)  |->  C ) ) )  =  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  ( ( w `  k )  x.  C ) ) ) )
6952, 68eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) )  =  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) )
7069oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) ) )
71 fzfid 12772 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( 1 ... N
)  e.  Fin )
7223a1i 11 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
(flds  QQ )  e.  Ring )
7355adantlr 751 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  k  e.  ( 0 ... N
) )  ->  (
w `  k )  e.  QQ )
7411an32s 846 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  k  e.  ( 0 ... N
) )  ->  C  e.  QQ )
7574adantllr 755 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  k  e.  ( 0 ... N
) )  ->  C  e.  QQ )
76 qmulcl 11806 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w `  k
)  e.  QQ  /\  C  e.  QQ )  ->  ( ( w `  k )  x.  C
)  e.  QQ )
7773, 75, 76syl2anc 693 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  k  e.  ( 0 ... N
) )  ->  (
( w `  k
)  x.  C )  e.  QQ )
7877an32s 846 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( w `  k
)  x.  C )  e.  QQ )
79 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  ( 1 ... N )  |->  ( ( w `  k )  x.  C ) )  =  ( n  e.  ( 1 ... N
)  |->  ( ( w `
 k )  x.  C ) )
8078, 79fmptd 6385 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( n  e.  ( 1 ... N
)  |->  ( ( w `
 k )  x.  C ) ) : ( 1 ... N
) --> QQ )
8114, 15elmap 7886 . . . . . . . . . . . . . . . . 17  |-  ( ( n  e.  ( 1 ... N )  |->  ( ( w `  k
)  x.  C ) )  e.  ( QQ 
^m  ( 1 ... N ) )  <->  ( n  e.  ( 1 ... N
)  |->  ( ( w `
 k )  x.  C ) ) : ( 1 ... N
) --> QQ )
8280, 81sylibr 224 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( n  e.  ( 1 ... N
)  |->  ( ( w `
 k )  x.  C ) )  e.  ( QQ  ^m  (
1 ... N ) ) )
83 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  ( ( w `  k )  x.  C ) ) )  =  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  ( ( w `  k )  x.  C ) ) )
8415mptex 6486 . . . . . . . . . . . . . . . . . 18  |-  ( n  e.  ( 1 ... N )  |->  ( ( w `  k )  x.  C ) )  e.  _V
8584a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( n  e.  ( 1 ... N
)  |->  ( ( w `
 k )  x.  C ) )  e. 
_V )
86 snex 4908 . . . . . . . . . . . . . . . . . . 19  |-  { 0 }  e.  _V
8715, 86xpex 6962 . . . . . . . . . . . . . . . . . 18  |-  ( ( 1 ... N )  X.  { 0 } )  e.  _V
8887a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( 1 ... N )  X.  {
0 } )  e. 
_V )
8983, 45, 85, 88fsuppmptdm 8286 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) finSupp  (
( 1 ... N
)  X.  { 0 } ) )
9025, 31, 37, 71, 45, 72, 82, 89frlmgsum 20111 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) )  =  ( n  e.  ( 1 ... N
)  |->  ( (flds  QQ )  gsumg  ( k  e.  ( 0 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) ) )
91 cnfldbas 19750 . . . . . . . . . . . . . . . . . 18  |-  CC  =  ( Base ` fld )
92 cnfldadd 19751 . . . . . . . . . . . . . . . . . 18  |-  +  =  ( +g  ` fld )
93 cnfldex 19749 . . . . . . . . . . . . . . . . . . 19  |-fld  e.  _V
9493a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->fld  e.  _V )
95 fzfid 12772 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( 0 ... N )  e. 
Fin )
96 qsscn 11799 . . . . . . . . . . . . . . . . . . 19  |-  QQ  C_  CC
9796a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  QQ  C_  CC )
98 eqid 2622 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  ( 0 ... N )  |->  ( ( w `  k )  x.  C ) )  =  ( k  e.  ( 0 ... N
)  |->  ( ( w `
 k )  x.  C ) )
9977, 98fmptd 6385 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( k  e.  ( 0 ... N
)  |->  ( ( w `
 k )  x.  C ) ) : ( 0 ... N
) --> QQ )
100 0z 11388 . . . . . . . . . . . . . . . . . . . 20  |-  0  e.  ZZ
101 zq 11794 . . . . . . . . . . . . . . . . . . . 20  |-  ( 0  e.  ZZ  ->  0  e.  QQ )
102100, 101ax-mp 5 . . . . . . . . . . . . . . . . . . 19  |-  0  e.  QQ
103102a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  0  e.  QQ )
104 addid2 10219 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  e.  CC  ->  (
0  +  x )  =  x )
105 addid1 10216 . . . . . . . . . . . . . . . . . . . 20  |-  ( x  e.  CC  ->  (
x  +  0 )  =  x )
106104, 105jca 554 . . . . . . . . . . . . . . . . . . 19  |-  ( x  e.  CC  ->  (
( 0  +  x
)  =  x  /\  ( x  +  0
)  =  x ) )
107106adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  x  e.  CC )  ->  (
( 0  +  x
)  =  x  /\  ( x  +  0
)  =  x ) )
10891, 92, 20, 94, 95, 97, 99, 103, 107gsumress 17276 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  (fld  gsumg  ( k  e.  ( 0 ... N ) 
|->  ( ( w `  k )  x.  C
) ) )  =  ( (flds  QQ )  gsumg  ( k  e.  ( 0 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) )
109 simplr 792 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  w :
( 0 ... N
) --> QQ )
110 qcn 11802 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( w `  k )  e.  QQ  ->  (
w `  k )  e.  CC )
11154, 110syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  k  e.  ( 0 ... N ) )  ->  ( w `  k )  e.  CC )
112109, 111sylan 488 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  k  e.  ( 0 ... N
) )  ->  (
w `  k )  e.  CC )
113 qcn 11802 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( C  e.  QQ  ->  C  e.  CC )
11411, 113syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  k  e.  ( 0 ... N
) )  /\  n  e.  ( 1 ... N
) )  ->  C  e.  CC )
115114an32s 846 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  n  e.  ( 1 ... N
) )  /\  k  e.  ( 0 ... N
) )  ->  C  e.  CC )
116115adantllr 755 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  k  e.  ( 0 ... N
) )  ->  C  e.  CC )
117112, 116mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  k  e.  ( 0 ... N
) )  ->  (
( w `  k
)  x.  C )  e.  CC )
11895, 117gsumfsum 19813 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  (fld  gsumg  ( k  e.  ( 0 ... N ) 
|->  ( ( w `  k )  x.  C
) ) )  = 
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) )
119108, 118eqtr3d 2658 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( (flds  QQ )  gsumg  ( k  e.  ( 0 ... N )  |->  ( ( w `  k
)  x.  C ) ) )  =  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C ) )
120119mpteq2dva 4744 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( n  e.  ( 1 ... N ) 
|->  ( (flds  QQ )  gsumg  ( k  e.  ( 0 ... N ) 
|->  ( ( w `  k )  x.  C
) ) ) )  =  ( n  e.  ( 1 ... N
)  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) )
12170, 90, 1203eqtrd 2660 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( n  e.  ( 1 ... N
)  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) )
122 qaddcl 11804 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  e.  QQ  /\  y  e.  QQ )  ->  ( x  +  y )  e.  QQ )
123122adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  /\  ( x  e.  QQ  /\  y  e.  QQ ) )  -> 
( x  +  y )  e.  QQ )
12497, 123, 95, 77, 103fsumcllem 14463 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C )  e.  QQ )
125 eqid 2622 . . . . . . . . . . . . . . . 16  |-  ( n  e.  ( 1 ... N )  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C ) )  =  ( n  e.  ( 1 ... N ) 
|->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) )
126124, 125fmptd 6385 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( n  e.  ( 1 ... N ) 
|->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) : ( 1 ... N ) --> QQ )
12714, 15elmap 7886 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  ( 1 ... N )  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C ) )  e.  ( QQ 
^m  ( 1 ... N ) )  <->  ( n  e.  ( 1 ... N
)  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) : ( 1 ... N ) --> QQ )
128126, 127sylibr 224 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( n  e.  ( 1 ... N ) 
|->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) )  e.  ( QQ  ^m  ( 1 ... N ) ) )
129121, 128eqeltrd 2701 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  e.  ( QQ  ^m  ( 1 ... N
) ) )
130 elmapi 7879 . . . . . . . . . . . . 13  |-  ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) )  e.  ( QQ  ^m  ( 1 ... N ) )  ->  ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) ) : ( 1 ... N ) --> QQ )
131 ffn 6045 . . . . . . . . . . . . 13  |-  ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) ) : ( 1 ... N ) --> QQ  ->  ( (
(flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  Fn  ( 1 ... N ) )
132129, 130, 1313syl 18 . . . . . . . . . . . 12  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  Fn  ( 1 ... N ) )
133 c0ex 10034 . . . . . . . . . . . . 13  |-  0  e.  _V
134 fnconstg 6093 . . . . . . . . . . . . 13  |-  ( 0  e.  _V  ->  (
( 1 ... N
)  X.  { 0 } )  Fn  (
1 ... N ) )
135133, 134ax-mp 5 . . . . . . . . . . . 12  |-  ( ( 1 ... N )  X.  { 0 } )  Fn  ( 1 ... N )
136 nfcv 2764 . . . . . . . . . . . . . 14  |-  F/_ n
( (flds  QQ ) freeLMod  ( 1 ... N ) )
137 nfcv 2764 . . . . . . . . . . . . . 14  |-  F/_ n  gsumg
138 nfcv 2764 . . . . . . . . . . . . . . 15  |-  F/_ n w
139 nfcv 2764 . . . . . . . . . . . . . . 15  |-  F/_ n  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )
140 nfcv 2764 . . . . . . . . . . . . . . . 16  |-  F/_ n
( 0 ... N
)
141 nfmpt1 4747 . . . . . . . . . . . . . . . 16  |-  F/_ n
( n  e.  ( 1 ... N ) 
|->  C )
142140, 141nfmpt 4746 . . . . . . . . . . . . . . 15  |-  F/_ n
( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )
143138, 139, 142nfov 6676 . . . . . . . . . . . . . 14  |-  F/_ n
( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) )
144136, 137, 143nfov 6676 . . . . . . . . . . . . 13  |-  F/_ n
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )
145 nfcv 2764 . . . . . . . . . . . . 13  |-  F/_ n
( ( 1 ... N )  X.  {
0 } )
146144, 145eqfnfv2f 6315 . . . . . . . . . . . 12  |-  ( ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  Fn  ( 1 ... N )  /\  (
( 1 ... N
)  X.  { 0 } )  Fn  (
1 ... N ) )  ->  ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) )  =  ( ( 1 ... N
)  X.  { 0 } )  <->  A. n  e.  ( 1 ... N
) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) ) `  n
)  =  ( ( ( 1 ... N
)  X.  { 0 } ) `  n
) ) )
147132, 135, 146sylancl 694 . . . . . . . . . . 11  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  <->  A. n  e.  (
1 ... N ) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) ) `
 n )  =  ( ( ( 1 ... N )  X. 
{ 0 } ) `
 n ) ) )
148121fveq1d 6193 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) ) `
 n )  =  ( ( n  e.  ( 1 ... N
)  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) `  n
) )
149 sumex 14418 . . . . . . . . . . . . . . 15  |-  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C )  e.  _V
150125fvmpt2 6291 . . . . . . . . . . . . . . 15  |-  ( ( n  e.  ( 1 ... N )  /\  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  e.  _V )  -> 
( ( n  e.  ( 1 ... N
)  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) `  n
)  =  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C ) )
151149, 150mpan2 707 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  (
( n  e.  ( 1 ... N ) 
|->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
) ) `  n
)  =  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C ) )
152148, 151sylan9eq 2676 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( (
( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) ) `  n
)  =  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C ) )
153133fvconst2 6469 . . . . . . . . . . . . . 14  |-  ( n  e.  ( 1 ... N )  ->  (
( ( 1 ... N )  X.  {
0 } ) `  n )  =  0 )
154153adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( (
( 1 ... N
)  X.  { 0 } ) `  n
)  =  0 )
155152, 154eqeq12d 2637 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( (
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) ) `
 n )  =  ( ( ( 1 ... N )  X. 
{ 0 } ) `
 n )  <->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C )  =  0 ) )
156155ralbidva 2985 . . . . . . . . . . 11  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( A. n  e.  ( 1 ... N
) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) ) `  n
)  =  ( ( ( 1 ... N
)  X.  { 0 } ) `  n
)  <->  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )
157147, 156bitrd 268 . . . . . . . . . 10  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  <->  A. n  e.  (
1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )
158157imbi1d 331 . . . . . . . . 9  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  gsumg  ( w  oF ( .s
`  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) ) )  =  ( ( 1 ... N
)  X.  { 0 } )  ->  w  =  ( ( 0 ... N )  X. 
{ 0 } ) )  <->  ( A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  ->  w  =  ( (
0 ... N )  X. 
{ 0 } ) ) ) )
15944, 158sylan2 491 . . . . . . . 8  |-  ( (
ph  /\  w  e.  ( QQ  ^m  (
0 ... N ) ) )  ->  ( (
( ( (flds  QQ ) freeLMod  ( 1 ... N ) ) 
gsumg  ( w  oF
( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  ->  w  =  ( ( 0 ... N
)  X.  { 0 } ) )  <->  ( A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0  ->  w  =  ( ( 0 ... N )  X. 
{ 0 } ) ) ) )
160159ralbidva 2985 . . . . . . 7  |-  ( ph  ->  ( A. w  e.  ( QQ  ^m  (
0 ... N ) ) ( ( ( (flds  QQ ) freeLMod  ( 1 ... N
) )  gsumg  ( w  oF ( .s `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) ) )  =  ( ( 1 ... N )  X. 
{ 0 } )  ->  w  =  ( ( 0 ... N
)  X.  { 0 } ) )  <->  A. w  e.  ( QQ  ^m  (
0 ... N ) ) ( A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  ->  w  =  ( (
0 ... N )  X. 
{ 0 } ) ) ) )
16143, 160bitrd 268 . . . . . 6  |-  ( ph  ->  ( ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) LIndF 
( (flds  QQ ) freeLMod  ( 1 ... N ) )  <->  A. w  e.  ( QQ  ^m  (
0 ... N ) ) ( A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  ->  w  =  ( (
0 ... N )  X. 
{ 0 } ) ) ) )
162 drngnzr 19262 . . . . . . . . 9  |-  ( (flds  QQ )  e.  DivRing  ->  (flds  QQ )  e. NzRing )
16321, 162ax-mp 5 . . . . . . . 8  |-  (flds  QQ )  e. NzRing
16433islindf3 20165 . . . . . . . 8  |-  ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LMod  /\  (flds  QQ )  e. NzRing )  ->  ( ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) LIndF  (
(flds  QQ ) freeLMod  ( 1 ... N
) )  <->  ( (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : dom  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) -1-1-> _V  /\ 
ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  (LIndS `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ) ) )
16527, 163, 164mp2an 708 . . . . . . 7  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) LIndF  ( (flds  QQ ) freeLMod  ( 1 ... N
) )  <->  ( (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : dom  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) -1-1-> _V  /\ 
ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  (LIndS `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ) )
16647, 18dmmpti 6023 . . . . . . . . 9  |-  dom  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  =  ( 0 ... N )
167 f1eq2 6097 . . . . . . . . 9  |-  ( dom  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  =  ( 0 ... N
)  ->  ( (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : dom  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) -1-1-> _V  <->  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N )
-1-1-> _V ) )
168166, 167ax-mp 5 . . . . . . . 8  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : dom  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) -1-1-> _V  <->  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N )
-1-1-> _V )
169168anbi1i 731 . . . . . . 7  |-  ( ( ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) : dom  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )
-1-1-> _V  /\  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  <->  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-> _V  /\ 
ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  (LIndS `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) ) )
170165, 169bitri 264 . . . . . 6  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) LIndF  ( (flds  QQ ) freeLMod  ( 1 ... N
) )  <->  ( (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N )
-1-1-> _V  /\  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )
171 con34b 306 . . . . . . . . 9  |-  ( ( A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  ->  w  =  ( (
0 ... N )  X. 
{ 0 } ) )  <->  ( -.  w  =  ( ( 0 ... N )  X. 
{ 0 } )  ->  -.  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )
172 df-nel 2898 . . . . . . . . . . 11  |-  ( w  e/  { ( ( 0 ... N )  X.  { 0 } ) }  <->  -.  w  e.  { ( ( 0 ... N )  X. 
{ 0 } ) } )
173 velsn 4193 . . . . . . . . . . 11  |-  ( w  e.  { ( ( 0 ... N )  X.  { 0 } ) }  <->  w  =  ( ( 0 ... N )  X.  {
0 } ) )
174172, 173xchbinx 324 . . . . . . . . . 10  |-  ( w  e/  { ( ( 0 ... N )  X.  { 0 } ) }  <->  -.  w  =  ( ( 0 ... N )  X. 
{ 0 } ) )
175174imbi1i 339 . . . . . . . . 9  |-  ( ( w  e/  { ( ( 0 ... N
)  X.  { 0 } ) }  ->  -. 
A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )  <-> 
( -.  w  =  ( ( 0 ... N )  X.  {
0 } )  ->  -.  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )
176171, 175bitr4i 267 . . . . . . . 8  |-  ( ( A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  ->  w  =  ( (
0 ... N )  X. 
{ 0 } ) )  <->  ( w  e/  { ( ( 0 ... N )  X.  {
0 } ) }  ->  -.  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )
177176ralbii 2980 . . . . . . 7  |-  ( A. w  e.  ( QQ  ^m  ( 0 ... N
) ) ( A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0  ->  w  =  ( ( 0 ... N )  X. 
{ 0 } ) )  <->  A. w  e.  ( QQ  ^m  ( 0 ... N ) ) ( w  e/  {
( ( 0 ... N )  X.  {
0 } ) }  ->  -.  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )
178 raldifb 3750 . . . . . . 7  |-  ( A. w  e.  ( QQ  ^m  ( 0 ... N
) ) ( w  e/  { ( ( 0 ... N )  X.  { 0 } ) }  ->  -.  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 )  <->  A. w  e.  ( ( QQ  ^m  ( 0 ... N
) )  \  {
( ( 0 ... N )  X.  {
0 } ) } )  -.  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )
179 ralnex 2992 . . . . . . 7  |-  ( A. w  e.  ( ( QQ  ^m  ( 0 ... N ) )  \  { ( ( 0 ... N )  X. 
{ 0 } ) } )  -.  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0  <->  -.  E. w  e.  ( ( QQ  ^m  ( 0 ... N
) )  \  {
( ( 0 ... N )  X.  {
0 } ) } ) A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )
180177, 178, 1793bitri 286 . . . . . 6  |-  ( A. w  e.  ( QQ  ^m  ( 0 ... N
) ) ( A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0  ->  w  =  ( ( 0 ... N )  X. 
{ 0 } ) )  <->  -.  E. w  e.  ( ( QQ  ^m  ( 0 ... N
) )  \  {
( ( 0 ... N )  X.  {
0 } ) } ) A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )
181161, 170, 1803bitr3g 302 . . . . 5  |-  ( ph  ->  ( ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-> _V  /\ 
ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  (LIndS `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) )  <->  -.  E. w  e.  ( ( QQ  ^m  (
0 ... N ) ) 
\  { ( ( 0 ... N )  X.  { 0 } ) } ) A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )
182 eqid 2622 . . . . . . . . . . . . 13  |-  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  =  ( LSubSp `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )
18331, 182lssmre 18966 . . . . . . . . . . . 12  |-  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LMod  ->  ( LSubSp `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )  e.  (Moore `  ( QQ  ^m  ( 1 ... N
) ) ) )
18427, 183ax-mp 5 . . . . . . . . . . 11  |-  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  e.  (Moore `  ( QQ  ^m  ( 1 ... N ) ) )
185184a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  e.  (Moore `  ( QQ  ^m  ( 1 ... N ) ) ) )
186 eqid 2622 . . . . . . . . . . . 12  |-  ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  =  ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )
187 eqid 2622 . . . . . . . . . . . 12  |-  (mrCls `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  =  (mrCls `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )
188182, 186, 187mrclsp 18989 . . . . . . . . . . 11  |-  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LMod  ->  ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )  =  (mrCls `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )
18927, 188ax-mp 5 . . . . . . . . . 10  |-  ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  =  (mrCls `  ( LSubSp `
 ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )
190 eqid 2622 . . . . . . . . . 10  |-  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  =  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )
19133islvec 19104 . . . . . . . . . . . . 13  |-  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LVec 
<->  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e.  LMod  /\  (flds  QQ )  e.  DivRing ) )
19227, 21, 191mpbir2an 955 . . . . . . . . . . . 12  |-  ( (flds  QQ ) freeLMod  ( 1 ... N
) )  e.  LVec
193182, 189, 31lssacsex 19144 . . . . . . . . . . . . 13  |-  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LVec  ->  ( ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  e.  (ACS `  ( QQ  ^m  ( 1 ... N ) ) )  /\  A. z  e. 
~P  ( QQ  ^m  ( 1 ... N
) ) A. x  e.  ( QQ  ^m  (
1 ... N ) ) A. y  e.  ( ( ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) `  ( z  u.  {
x } ) ) 
\  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `
 z ) ) x  e.  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( z  u.  { y } ) ) ) )
194193simprd 479 . . . . . . . . . . . 12  |-  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LVec  ->  A. z  e.  ~P  ( QQ  ^m  (
1 ... N ) ) A. x  e.  ( QQ  ^m  ( 1 ... N ) ) A. y  e.  ( ( ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) `  ( z  u.  {
x } ) ) 
\  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `
 z ) ) x  e.  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( z  u.  { y } ) ) )
195192, 194ax-mp 5 . . . . . . . . . . 11  |-  A. z  e.  ~P  ( QQ  ^m  ( 1 ... N
) ) A. x  e.  ( QQ  ^m  (
1 ... N ) ) A. y  e.  ( ( ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) `  ( z  u.  {
x } ) ) 
\  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `
 z ) ) x  e.  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( z  u.  { y } ) )
196195a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  A. z  e.  ~P  ( QQ  ^m  ( 1 ... N
) ) A. x  e.  ( QQ  ^m  (
1 ... N ) ) A. y  e.  ( ( ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) `  ( z  u.  {
x } ) ) 
\  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `
 z ) ) x  e.  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( z  u.  { y } ) ) )
197 frn 6053 . . . . . . . . . . . . 13  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) --> ( QQ  ^m  (
1 ... N ) )  ->  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
C_  ( QQ  ^m  ( 1 ... N
) ) )
19819, 197syl 17 . . . . . . . . . . . 12  |-  ( ph  ->  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
C_  ( QQ  ^m  ( 1 ... N
) ) )
199 dif0 3950 . . . . . . . . . . . 12  |-  ( ( QQ  ^m  ( 1 ... N ) ) 
\  (/) )  =  ( QQ  ^m  ( 1 ... N ) )
200198, 199syl6sseqr 3652 . . . . . . . . . . 11  |-  ( ph  ->  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
C_  ( ( QQ 
^m  ( 1 ... N ) )  \  (/) ) )
201200adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  C_  ( ( QQ  ^m  ( 1 ... N ) )  \  (/) ) )
202 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( (flds  QQ ) unitVec 
( 1 ... N
) )  =  ( (flds  QQ ) unitVec  ( 1 ... N ) )
203202, 25, 31uvcff 20130 . . . . . . . . . . . . . 14  |-  ( ( (flds  QQ )  e.  Ring  /\  (
1 ... N )  e. 
Fin )  ->  (
(flds  QQ ) unitVec  ( 1 ... N
) ) : ( 1 ... N ) --> ( QQ  ^m  (
1 ... N ) ) )
20423, 24, 203mp2an 708 . . . . . . . . . . . . 13  |-  ( (flds  QQ ) unitVec 
( 1 ... N
) ) : ( 1 ... N ) --> ( QQ  ^m  (
1 ... N ) )
205 frn 6053 . . . . . . . . . . . . 13  |-  ( ( (flds  QQ ) unitVec  ( 1 ... N ) ) : ( 1 ... N
) --> ( QQ  ^m  ( 1 ... N
) )  ->  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  C_  ( QQ  ^m  (
1 ... N ) ) )
206204, 205ax-mp 5 . . . . . . . . . . . 12  |-  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  C_  ( QQ  ^m  ( 1 ... N ) )
207206, 199sseqtr4i 3638 . . . . . . . . . . 11  |-  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  C_  (
( QQ  ^m  (
1 ... N ) ) 
\  (/) )
208207a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ran  ( (flds  QQ ) unitVec 
( 1 ... N
) )  C_  (
( QQ  ^m  (
1 ... N ) ) 
\  (/) ) )
209 un0 3967 . . . . . . . . . . . . . 14  |-  ( ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  u.  (/) )  =  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )
210209fveq2i 6194 . . . . . . . . . . . . 13  |-  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  u.  (/) ) )  =  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
211 eqid 2622 . . . . . . . . . . . . . . . 16  |-  (LBasis `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  =  (LBasis `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )
21225, 202, 211frlmlbs 20136 . . . . . . . . . . . . . . 15  |-  ( ( (flds  QQ )  e.  Ring  /\  (
1 ... N )  e. 
Fin )  ->  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  e.  (LBasis `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )
21323, 24, 212mp2an 708 . . . . . . . . . . . . . 14  |-  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  e.  (LBasis `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )
21431, 211, 186lbssp 19079 . . . . . . . . . . . . . 14  |-  ( ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  e.  (LBasis `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  ->  (
( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )  =  ( QQ  ^m  ( 1 ... N
) ) )
215213, 214ax-mp 5 . . . . . . . . . . . . 13  |-  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) ) )  =  ( QQ  ^m  (
1 ... N ) )
216210, 215eqtri 2644 . . . . . . . . . . . 12  |-  ( (
LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  u.  (/) ) )  =  ( QQ  ^m  ( 1 ... N ) )
217198, 216syl6sseqr 3652 . . . . . . . . . . 11  |-  ( ph  ->  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
C_  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `
 ( ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  u.  (/) ) ) )
218217adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  C_  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  u.  (/) ) ) )
219 un0 3967 . . . . . . . . . . 11  |-  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  u.  (/) )  =  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )
22027, 163pm3.2i 471 . . . . . . . . . . . . . 14  |-  ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e. 
LMod  /\  (flds  QQ )  e. NzRing )
221186, 33lindsind2 20158 . . . . . . . . . . . . . 14  |-  ( ( ( ( (flds  QQ ) freeLMod  ( 1 ... N ) )  e.  LMod  /\  (flds  QQ )  e. NzRing )  /\  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  /\  x  e.  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) )  ->  -.  x  e.  ( ( LSpan `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) `  ( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
\  { x }
) ) )
222220, 221mp3an1 1411 . . . . . . . . . . . . 13  |-  ( ( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  (LIndS `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) )  /\  x  e.  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) )  ->  -.  x  e.  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  \  { x } ) ) )
223222ralrimiva 2966 . . . . . . . . . . . 12  |-  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  ->  A. x  e.  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  -.  x  e.  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  \  { x } ) ) )
224189, 190ismri2 16292 . . . . . . . . . . . . . 14  |-  ( ( ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  e.  (Moore `  ( QQ  ^m  (
1 ... N ) ) )  /\  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  C_  ( QQ  ^m  ( 1 ... N ) ) )  ->  ( ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  <->  A. x  e.  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  -.  x  e.  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  \  { x } ) ) ) )
225184, 198, 224sylancr 695 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  <->  A. x  e.  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  -.  x  e.  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  \  { x } ) ) ) )
226225biimpar 502 . . . . . . . . . . . 12  |-  ( (
ph  /\  A. x  e.  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  -.  x  e.  ( ( LSpan `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) `  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  \  { x } ) ) )  ->  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )
227223, 226sylan2 491 . . . . . . . . . . 11  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )
228219, 227syl5eqel 2705 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  u.  (/) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )
229 mptfi 8265 . . . . . . . . . . . . 13  |-  ( ( 0 ... N )  e.  Fin  ->  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  Fin )
230 rnfi 8249 . . . . . . . . . . . . 13  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  Fin  ->  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  Fin )
23128, 229, 230mp2b 10 . . . . . . . . . . . 12  |-  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  Fin
232231orci 405 . . . . . . . . . . 11  |-  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  e. 
Fin  \/  ran  ( (flds  QQ ) unitVec 
( 1 ... N
) )  e.  Fin )
233232a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  e. 
Fin  \/  ran  ( (flds  QQ ) unitVec 
( 1 ... N
) )  e.  Fin ) )
234185, 189, 190, 196, 201, 208, 218, 228, 233mreexexd 16308 . . . . . . . . 9  |-  ( (
ph  /\  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) )  ->  E. v  e.  ~P  ran  ( (flds  QQ ) unitVec 
( 1 ... N
) ) ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  ~~  v  /\  ( v  u.  (/) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) ) )
235234ex 450 . . . . . . . 8  |-  ( ph  ->  ( ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  ->  E. v  e.  ~P  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) ( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
~~  v  /\  (
v  u.  (/) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) ) ) )
236 ovex 6678 . . . . . . . . . . . . 13  |-  ( (flds  QQ ) unitVec 
( 1 ... N
) )  e.  _V
237236rnex 7100 . . . . . . . . . . . 12  |-  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  e.  _V
238 elpwi 4168 . . . . . . . . . . . 12  |-  ( v  e.  ~P ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  ->  v  C_ 
ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
239 ssdomg 8001 . . . . . . . . . . . 12  |-  ( ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  e. 
_V  ->  ( v  C_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  -> 
v  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) ) )
240237, 238, 239mpsyl 68 . . . . . . . . . . 11  |-  ( v  e.  ~P ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  ->  v  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
241 endomtr 8014 . . . . . . . . . . . . . 14  |-  ( ( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
~~  v  /\  v  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )  ->  ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
242241ancoms 469 . . . . . . . . . . . . 13  |-  ( ( v  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  /\  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  ~~  v
)  ->  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
243 f1f1orn 6148 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N )
-1-1-> _V  ->  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) : ( 0 ... N ) -1-1-onto-> ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) )
244 ovex 6678 . . . . . . . . . . . . . . . . 17  |-  ( 0 ... N )  e. 
_V
245244f1oen 7976 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-onto-> ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  -> 
( 0 ... N
)  ~~  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) )
246243, 245syl 17 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N )
-1-1-> _V  ->  ( 0 ... N )  ~~  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) )
247 endomtr 8014 . . . . . . . . . . . . . . . . 17  |-  ( ( ( 0 ... N
)  ~~  ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  /\  ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  ~<_  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) ) )  -> 
( 0 ... N
)  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
248202uvcendim 20186 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( (flds  QQ )  e. NzRing  /\  (
1 ... N )  e. 
Fin )  ->  (
1 ... N )  ~~  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )
249163, 24, 248mp2an 708 . . . . . . . . . . . . . . . . . . 19  |-  ( 1 ... N )  ~~  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )
250249ensymi 8006 . . . . . . . . . . . . . . . . . 18  |-  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  ~~  (
1 ... N )
251 domentr 8015 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( 0 ... N
)  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  /\  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  ~~  (
1 ... N ) )  ->  ( 0 ... N )  ~<_  ( 1 ... N ) )
252 hashdom 13168 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( 0 ... N
)  e.  Fin  /\  ( 1 ... N
)  e.  Fin )  ->  ( ( # `  (
0 ... N ) )  <_  ( # `  (
1 ... N ) )  <-> 
( 0 ... N
)  ~<_  ( 1 ... N ) ) )
25328, 24, 252mp2an 708 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
# `  ( 0 ... N ) )  <_ 
( # `  ( 1 ... N ) )  <-> 
( 0 ... N
)  ~<_  ( 1 ... N ) )
254 hashfz0 13219 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  NN0  ->  ( # `  ( 0 ... N
) )  =  ( N  +  1 ) )
2552, 254syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( # `  (
0 ... N ) )  =  ( N  + 
1 ) )
256 hashfz1 13134 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( N  e.  NN0  ->  ( # `  ( 1 ... N
) )  =  N )
2572, 256syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( # `  (
1 ... N ) )  =  N )
258255, 257breq12d 4666 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( # `  (
0 ... N ) )  <_  ( # `  (
1 ... N ) )  <-> 
( N  +  1 )  <_  N )
)
259253, 258syl5bbr 274 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( 0 ... N )  ~<_  ( 1 ... N )  <->  ( N  +  1 )  <_  N ) )
260251, 259syl5ib 234 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( ( 0 ... N )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  /\  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  ~~  ( 1 ... N
) )  ->  ( N  +  1 )  <_  N ) )
261250, 260mpan2i 713 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( 0 ... N )  ~<_  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) )  ->  ( N  +  1 )  <_  N ) )
262247, 261syl5 34 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( 0 ... N )  ~~  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  /\  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )  ->  ( N  + 
1 )  <_  N
) )
263262expd 452 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( 0 ... N )  ~~  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  -> 
( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  ->  ( N  + 
1 )  <_  N
) ) )
264246, 263syl5 34 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) : ( 0 ... N ) -1-1-> _V  ->  ( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  ->  ( N  + 
1 )  <_  N
) ) )
265264com23 86 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  ->  ( (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N )
-1-1-> _V  ->  ( N  +  1 )  <_  N ) ) )
266242, 265syl5 34 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( v  ~<_  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) )  /\  ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  ~~  v )  ->  (
( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) : ( 0 ... N
) -1-1-> _V  ->  ( N  +  1 )  <_  N ) ) )
267266expdimp 453 . . . . . . . . . . 11  |-  ( (
ph  /\  v  ~<_  ran  (
(flds  QQ ) unitVec  ( 1 ... N
) ) )  -> 
( ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) 
~~  v  ->  (
( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) : ( 0 ... N
) -1-1-> _V  ->  ( N  +  1 )  <_  N ) ) )
268240, 267sylan2 491 . . . . . . . . . 10  |-  ( (
ph  /\  v  e.  ~P ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )  ->  ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  ~~  v  ->  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-> _V  ->  ( N  +  1 )  <_  N )
) )
269268adantrd 484 . . . . . . . . 9  |-  ( (
ph  /\  v  e.  ~P ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) )  ->  ( ( ran  ( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) )  ~~  v  /\  ( v  u.  (/) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )  ->  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-> _V  ->  ( N  +  1 )  <_  N )
) )
270269rexlimdva 3031 . . . . . . . 8  |-  ( ph  ->  ( E. v  e. 
~P  ran  ( (flds  QQ ) unitVec  ( 1 ... N ) ) ( ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  ~~  v  /\  ( v  u.  (/) )  e.  (mrInd `  ( LSubSp `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) ) ) )  ->  (
( k  e.  ( 0 ... N ) 
|->  ( n  e.  ( 1 ... N ) 
|->  C ) ) : ( 0 ... N
) -1-1-> _V  ->  ( N  +  1 )  <_  N ) ) )
271235, 270syld 47 . . . . . . 7  |-  ( ph  ->  ( ran  ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  ->  ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-> _V  ->  ( N  +  1 )  <_  N )
) )
272271impd 447 . . . . . 6  |-  ( ph  ->  ( ( ran  (
k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) )  e.  (LIndS `  ( (flds  QQ ) freeLMod  ( 1 ... N ) ) )  /\  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) ) : ( 0 ... N ) -1-1-> _V )  ->  ( N  +  1 )  <_  N )
)
273272ancomsd 470 . . . . 5  |-  ( ph  ->  ( ( ( k  e.  ( 0 ... N )  |->  ( n  e.  ( 1 ... N )  |->  C ) ) : ( 0 ... N ) -1-1-> _V  /\ 
ran  ( k  e.  ( 0 ... N
)  |->  ( n  e.  ( 1 ... N
)  |->  C ) )  e.  (LIndS `  (
(flds  QQ ) freeLMod  ( 1 ... N
) ) ) )  ->  ( N  + 
1 )  <_  N
) )
274181, 273sylbird 250 . . . 4  |-  ( ph  ->  ( -.  E. w  e.  ( ( QQ  ^m  ( 0 ... N
) )  \  {
( ( 0 ... N )  X.  {
0 } ) } ) A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  -> 
( N  +  1 )  <_  N )
)
2759, 274mt3d 140 . . 3  |-  ( ph  ->  E. w  e.  ( ( QQ  ^m  (
0 ... N ) ) 
\  { ( ( 0 ... N )  X.  { 0 } ) } ) A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 )
276 eldifsn 4317 . . . . 5  |-  ( w  e.  ( ( QQ 
^m  ( 0 ... N ) )  \  { ( ( 0 ... N )  X. 
{ 0 } ) } )  <->  ( w  e.  ( QQ  ^m  (
0 ... N ) )  /\  w  =/=  (
( 0 ... N
)  X.  { 0 } ) ) )
27744anim1i 592 . . . . 5  |-  ( ( w  e.  ( QQ 
^m  ( 0 ... N ) )  /\  w  =/=  ( ( 0 ... N )  X. 
{ 0 } ) )  ->  ( w : ( 0 ... N ) --> QQ  /\  w  =/=  ( ( 0 ... N )  X. 
{ 0 } ) ) )
278276, 277sylbi 207 . . . 4  |-  ( w  e.  ( ( QQ 
^m  ( 0 ... N ) )  \  { ( ( 0 ... N )  X. 
{ 0 } ) } )  ->  (
w : ( 0 ... N ) --> QQ 
/\  w  =/=  (
( 0 ... N
)  X.  { 0 } ) ) )
27996a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  QQ  C_  CC )
2802adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  N  e.  NN0 )
281279, 280, 55elplyd 23958 . . . . . . . 8  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  e.  (Poly `  QQ ) )
282281adantrr 753 . . . . . . 7  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  w  =/=  ( ( 0 ... N )  X. 
{ 0 } ) ) )  ->  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  e.  (Poly `  QQ ) )
283 uzdisj 12413 . . . . . . . . . . . . . . . . . 18  |-  ( ( 0 ... ( ( N  +  1 )  -  1 ) )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =  (/)
2842nn0cnd 11353 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  N  e.  CC )
285 pncan1 10454 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  CC  ->  (
( N  +  1 )  -  1 )  =  N )
286284, 285syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( N  + 
1 )  -  1 )  =  N )
287286oveq2d 6666 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( 0 ... (
( N  +  1 )  -  1 ) )  =  ( 0 ... N ) )
288287ineq1d 3813 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( 0 ... ( ( N  + 
1 )  -  1 ) )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) )  =  ( ( 0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) ) )
289283, 288syl5eqr 2670 . . . . . . . . . . . . . . . . 17  |-  ( ph  -> 
(/)  =  ( ( 0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) ) )
290289eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) )  =  (/) )
291133fconst 6091 . . . . . . . . . . . . . . . . . 18  |-  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> { 0 }
292 snssi 4339 . . . . . . . . . . . . . . . . . . . 20  |-  ( 0  e.  QQ  ->  { 0 }  C_  QQ )
293100, 101, 292mp2b 10 . . . . . . . . . . . . . . . . . . 19  |-  { 0 }  C_  QQ
294293, 96sstri 3612 . . . . . . . . . . . . . . . . . 18  |-  { 0 }  C_  CC
295 fss 6056 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) : (
ZZ>= `  ( N  + 
1 ) ) --> { 0 }  /\  {
0 }  C_  CC )  ->  ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> CC )
296291, 294, 295mp2an 708 . . . . . . . . . . . . . . . . 17  |-  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> CC
297 fun 6066 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w : ( 0 ... N ) --> QQ  /\  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> CC )  /\  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) )  =  (/) )  ->  (
w  u.  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) ) : ( ( 0 ... N )  u.  ( ZZ>= `  ( N  +  1 ) ) ) --> ( QQ  u.  CC ) )
298296, 297mpanl2 717 . . . . . . . . . . . . . . . 16  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  ( ( 0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =  (/) )  -> 
( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : ( ( 0 ... N
)  u.  ( ZZ>= `  ( N  +  1
) ) ) --> ( QQ  u.  CC ) )
299290, 298sylan2 491 . . . . . . . . . . . . . . 15  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  ph )  ->  (
w  u.  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) ) : ( ( 0 ... N )  u.  ( ZZ>= `  ( N  +  1 ) ) ) --> ( QQ  u.  CC ) )
300299ancoms 469 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : ( ( 0 ... N
)  u.  ( ZZ>= `  ( N  +  1
) ) ) --> ( QQ  u.  CC ) )
301 nn0uz 11722 . . . . . . . . . . . . . . . . . 18  |-  NN0  =  ( ZZ>= `  0 )
3026, 301syl6eleq 2711 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( N  +  1 )  e.  ( ZZ>= ` 
0 ) )
303 uzsplit 12412 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  +  1 )  e.  ( ZZ>= `  0
)  ->  ( ZZ>= ` 
0 )  =  ( ( 0 ... (
( N  +  1 )  -  1 ) )  u.  ( ZZ>= `  ( N  +  1
) ) ) )
304302, 303syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ZZ>= `  0 )  =  ( ( 0 ... ( ( N  +  1 )  - 
1 ) )  u.  ( ZZ>= `  ( N  +  1 ) ) ) )
305301, 304syl5eq 2668 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  NN0  =  ( ( 0 ... ( ( N  +  1 )  -  1 ) )  u.  ( ZZ>= `  ( N  +  1 ) ) ) )
306287uneq1d 3766 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( 0 ... ( ( N  + 
1 )  -  1 ) )  u.  ( ZZ>=
`  ( N  + 
1 ) ) )  =  ( ( 0 ... N )  u.  ( ZZ>= `  ( N  +  1 ) ) ) )
307305, 306eqtr2d 2657 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( 0 ... N )  u.  ( ZZ>=
`  ( N  + 
1 ) ) )  =  NN0 )
308 ssequn1 3783 . . . . . . . . . . . . . . . . . 18  |-  ( QQ  C_  CC  <->  ( QQ  u.  CC )  =  CC )
30996, 308mpbi 220 . . . . . . . . . . . . . . . . 17  |-  ( QQ  u.  CC )  =  CC
310309a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( QQ  u.  CC )  =  CC )
311307, 310feq23d 6040 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : ( ( 0 ... N )  u.  ( ZZ>=
`  ( N  + 
1 ) ) ) --> ( QQ  u.  CC ) 
<->  ( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : NN0 --> CC ) )
312311adantr 481 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : ( ( 0 ... N )  u.  ( ZZ>=
`  ( N  + 
1 ) ) ) --> ( QQ  u.  CC ) 
<->  ( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : NN0 --> CC ) )
313300, 312mpbid 222 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) : NN0 --> CC )
314 ffn 6045 . . . . . . . . . . . . . . . 16  |-  ( w : ( 0 ... N ) --> QQ  ->  w  Fn  ( 0 ... N ) )
315 fnimadisj 6012 . . . . . . . . . . . . . . . 16  |-  ( ( w  Fn  ( 0 ... N )  /\  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) )  =  (/) )  ->  (
w " ( ZZ>= `  ( N  +  1
) ) )  =  (/) )
316314, 290, 315syl2anr 495 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w " ( ZZ>=
`  ( N  + 
1 ) ) )  =  (/) )
3172nn0zd 11480 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  N  e.  ZZ )
318317peano2zd 11485 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( N  +  1 )  e.  ZZ )
319 uzid 11702 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  +  1 )  e.  ZZ  ->  ( N  +  1 )  e.  ( ZZ>= `  ( N  +  1 ) ) )
320 ne0i 3921 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  +  1 )  e.  ( ZZ>= `  ( N  +  1 ) )  ->  ( ZZ>= `  ( N  +  1
) )  =/=  (/) )
321318, 319, 3203syl 18 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ZZ>= `  ( N  +  1 ) )  =/=  (/) )
322 inidm 3822 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ZZ>= `  ( N  + 
1 ) )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =  ( ZZ>= `  ( N  +  1
) )
323322neeq1i 2858 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ZZ>= `  ( N  +  1 ) )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =/=  (/)  <->  ( ZZ>= `  ( N  +  1
) )  =/=  (/) )
324321, 323sylibr 224 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ZZ>= `  ( N  +  1 ) )  i^i  ( ZZ>= `  ( N  +  1
) ) )  =/=  (/) )
325 xpima2 5578 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ZZ>= `  ( N  +  1 ) )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =/=  (/)  ->  (
( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) " ( ZZ>=
`  ( N  + 
1 ) ) )  =  { 0 } )
326324, 325syl 17 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) "
( ZZ>= `  ( N  +  1 ) ) )  =  { 0 } )
327326adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) "
( ZZ>= `  ( N  +  1 ) ) )  =  { 0 } )
328316, 327uneq12d 3768 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( w "
( ZZ>= `  ( N  +  1 ) ) )  u.  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) " ( ZZ>= `  ( N  +  1
) ) ) )  =  ( (/)  u.  {
0 } ) )
329 imaundir 5546 . . . . . . . . . . . . . 14  |-  ( ( w  u.  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) ) " ( ZZ>= `  ( N  +  1
) ) )  =  ( ( w "
( ZZ>= `  ( N  +  1 ) ) )  u.  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) " ( ZZ>= `  ( N  +  1
) ) ) )
330 uncom 3757 . . . . . . . . . . . . . . 15  |-  ( (/)  u. 
{ 0 } )  =  ( { 0 }  u.  (/) )
331 un0 3967 . . . . . . . . . . . . . . 15  |-  ( { 0 }  u.  (/) )  =  { 0 }
332330, 331eqtr2i 2645 . . . . . . . . . . . . . 14  |-  { 0 }  =  ( (/)  u. 
{ 0 } )
333328, 329, 3323eqtr4g 2681 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) "
( ZZ>= `  ( N  +  1 ) ) )  =  { 0 } )
334290, 314anim12ci 591 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w  Fn  (
0 ... N )  /\  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) )  =  (/) ) )
335 fnconstg 6093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 0  e.  _V  ->  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  Fn  ( ZZ>= `  ( N  +  1
) ) )
336133, 335ax-mp 5 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } )  Fn  ( ZZ>= `  ( N  +  1 ) )
337 fvun1 6269 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w  Fn  ( 0 ... N )  /\  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  Fn  ( ZZ>=
`  ( N  + 
1 ) )  /\  ( ( ( 0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =  (/)  /\  k  e.  ( 0 ... N
) ) )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) `  k )  =  ( w `  k ) )
338336, 337mp3an2 1412 . . . . . . . . . . . . . . . . . . 19  |-  ( ( w  Fn  ( 0 ... N )  /\  ( ( ( 0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) )  =  (/)  /\  k  e.  ( 0 ... N
) ) )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) `  k )  =  ( w `  k ) )
339338anassrs 680 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  Fn  (
0 ... N )  /\  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) )  =  (/) )  /\  k  e.  ( 0 ... N
) )  ->  (
( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) `  k
)  =  ( w `
 k ) )
340334, 339sylan 488 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w  u.  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) ) `  k )  =  ( w `  k ) )
341340eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( w `  k )  =  ( ( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) `  k
) )
342341oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w `  k )  x.  ( y ^ k
) )  =  ( ( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) `  k )  x.  (
y ^ k ) ) )
343342sumeq2dv 14433 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) )  =  sum_ k  e.  ( 0 ... N ) ( ( ( w  u.  ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) ) `
 k )  x.  ( y ^ k
) ) )
344343mpteq2dv 4745 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  =  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( ( w  u.  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) ) `  k )  x.  ( y ^
k ) ) ) )
345281, 280, 313, 333, 344coeeq 23983 . . . . . . . . . . . 12  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
(coeff `  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) ) )  =  ( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) ) )
346345reseq1d 5395 . . . . . . . . . . 11  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( (coeff `  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  |`  (
0 ... N ) )  =  ( ( w  u.  ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) )  |`  ( 0 ... N
) ) )
347 res0 5400 . . . . . . . . . . . . . 14  |-  ( w  |`  (/) )  =  (/)
348289reseq2d 5396 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( w  |`  (/) )  =  ( w  |`  (
( 0 ... N
)  i^i  ( ZZ>= `  ( N  +  1
) ) ) ) )
349 res0 5400 . . . . . . . . . . . . . . 15  |-  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  |`  (/) )  =  (/)
350289reseq2d 5396 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } )  |`  (/) )  =  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  |`  ( (
0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) ) ) )
351349, 350syl5eqr 2670 . . . . . . . . . . . . . 14  |-  ( ph  -> 
(/)  =  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  |`  ( (
0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) ) ) )
352347, 348, 3513eqtr3a 2680 . . . . . . . . . . . . 13  |-  ( ph  ->  ( w  |`  (
( 0 ... N
)  i^i  ( ZZ>= `  ( N  +  1
) ) ) )  =  ( ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } )  |`  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) ) ) )
353 fss 6056 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) : (
ZZ>= `  ( N  + 
1 ) ) --> { 0 }  /\  {
0 }  C_  QQ )  ->  ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> QQ )
354291, 293, 353mp2an 708 . . . . . . . . . . . . . 14  |-  ( (
ZZ>= `  ( N  + 
1 ) )  X. 
{ 0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> QQ
355 fresaunres1 6077 . . . . . . . . . . . . . 14  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  ( ( ZZ>= `  ( N  +  1
) )  X.  {
0 } ) : ( ZZ>= `  ( N  +  1 ) ) --> QQ  /\  ( w  |`  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) ) )  =  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  |`  ( (
0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) ) ) )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) )  |`  ( 0 ... N
) )  =  w )
356354, 355mp3an2 1412 . . . . . . . . . . . . 13  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  ( w  |`  ( ( 0 ... N )  i^i  ( ZZ>=
`  ( N  + 
1 ) ) ) )  =  ( ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } )  |`  ( (
0 ... N )  i^i  ( ZZ>= `  ( N  +  1 ) ) ) ) )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) )  |`  ( 0 ... N
) )  =  w )
357352, 356sylan2 491 . . . . . . . . . . . 12  |-  ( ( w : ( 0 ... N ) --> QQ 
/\  ph )  ->  (
( w  u.  (
( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) )  |`  (
0 ... N ) )  =  w )
358357ancoms 469 . . . . . . . . . . 11  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( w  u.  ( ( ZZ>= `  ( N  +  1 ) )  X.  { 0 } ) )  |`  ( 0 ... N
) )  =  w )
359346, 358eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( (coeff `  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  |`  (
0 ... N ) )  =  w )
360 fveq2 6191 . . . . . . . . . . 11  |-  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  =  0p  ->  (coeff `  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  =  (coeff `  0p ) )
361360reseq1d 5395 . . . . . . . . . 10  |-  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  =  0p  ->  ( (coeff `  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  |`  (
0 ... N ) )  =  ( (coeff ` 
0p )  |`  ( 0 ... N
) ) )
362 eqtr2 2642 . . . . . . . . . . . 12  |-  ( ( ( (coeff `  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  |`  (
0 ... N ) )  =  w  /\  (
(coeff `  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) ) )  |`  ( 0 ... N
) )  =  ( (coeff `  0p
)  |`  ( 0 ... N ) ) )  ->  w  =  ( (coeff `  0p
)  |`  ( 0 ... N ) ) )
363 coe0 24012 . . . . . . . . . . . . . 14  |-  (coeff ` 
0p )  =  ( NN0  X.  {
0 } )
364363reseq1i 5392 . . . . . . . . . . . . 13  |-  ( (coeff `  0p )  |`  ( 0 ... N
) )  =  ( ( NN0  X.  {
0 } )  |`  ( 0 ... N
) )
365 elfznn0 12433 . . . . . . . . . . . . . . 15  |-  ( x  e.  ( 0 ... N )  ->  x  e.  NN0 )
366365ssriv 3607 . . . . . . . . . . . . . 14  |-  ( 0 ... N )  C_  NN0
367 xpssres 5434 . . . . . . . . . . . . . 14  |-  ( ( 0 ... N ) 
C_  NN0  ->  ( ( NN0  X.  { 0 } )  |`  (
0 ... N ) )  =  ( ( 0 ... N )  X. 
{ 0 } ) )
368366, 367ax-mp 5 . . . . . . . . . . . . 13  |-  ( ( NN0  X.  { 0 } )  |`  (
0 ... N ) )  =  ( ( 0 ... N )  X. 
{ 0 } )
369364, 368eqtri 2644 . . . . . . . . . . . 12  |-  ( (coeff `  0p )  |`  ( 0 ... N
) )  =  ( ( 0 ... N
)  X.  { 0 } )
370362, 369syl6eq 2672 . . . . . . . . . . 11  |-  ( ( ( (coeff `  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  |`  (
0 ... N ) )  =  w  /\  (
(coeff `  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) ) )  |`  ( 0 ... N
) )  =  ( (coeff `  0p
)  |`  ( 0 ... N ) ) )  ->  w  =  ( ( 0 ... N
)  X.  { 0 } ) )
371370ex 450 . . . . . . . . . 10  |-  ( ( (coeff `  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) ) )  |`  ( 0 ... N
) )  =  w  ->  ( ( (coeff `  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) )  |`  (
0 ... N ) )  =  ( (coeff ` 
0p )  |`  ( 0 ... N
) )  ->  w  =  ( ( 0 ... N )  X. 
{ 0 } ) ) )
372359, 361, 371syl2im 40 . . . . . . . . 9  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) )  =  0p  ->  w  =  ( ( 0 ... N )  X.  {
0 } ) ) )
373372necon3d 2815 . . . . . . . 8  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  -> 
( w  =/=  (
( 0 ... N
)  X.  { 0 } )  ->  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  =/=  0p ) )
374373impr 649 . . . . . . 7  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  w  =/=  ( ( 0 ... N )  X. 
{ 0 } ) ) )  ->  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  =/=  0p )
375 eldifsn 4317 . . . . . . 7  |-  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  e.  ( (Poly `  QQ )  \  {
0p } )  <-> 
( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) )  e.  (Poly `  QQ )  /\  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  =/=  0p ) )
376282, 374, 375sylanbrc 698 . . . . . 6  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  w  =/=  ( ( 0 ... N )  X. 
{ 0 } ) ) )  ->  (
y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  e.  ( (Poly `  QQ )  \  {
0p } ) )
377376adantrr 753 . . . . 5  |-  ( (
ph  /\  ( (
w : ( 0 ... N ) --> QQ 
/\  w  =/=  (
( 0 ... N
)  X.  { 0 } ) )  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) )  e.  ( (Poly `  QQ )  \  { 0p }
) )
378 oveq1 6657 . . . . . . . . . . . 12  |-  ( y  =  A  ->  (
y ^ k )  =  ( A ^
k ) )
379378oveq2d 6666 . . . . . . . . . . 11  |-  ( y  =  A  ->  (
( w `  k
)  x.  ( y ^ k ) )  =  ( ( w `
 k )  x.  ( A ^ k
) ) )
380379sumeq2sdv 14435 . . . . . . . . . 10  |-  ( y  =  A  ->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) )  =  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( A ^ k ) ) )
381 eqid 2622 . . . . . . . . . 10  |-  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) ) )  =  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )
382 sumex 14418 . . . . . . . . . 10  |-  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( A ^ k
) )  e.  _V
383380, 381, 382fvmpt 6282 . . . . . . . . 9  |-  ( A  e.  CC  ->  (
( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) `  A )  =  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  ( A ^ k ) ) )
3841, 383syl 17 . . . . . . . 8  |-  ( ph  ->  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) ) `  A
)  =  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( A ^ k
) ) )
385384adantr 481 . . . . . . 7  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) ) ) `  A )  =  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( A ^ k ) ) )
386111adantll 750 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( w `  k )  e.  CC )
387 aacllem.2 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  X  e.  CC )
388387adantlr 751 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  k  e.  ( 0 ... N
) )  /\  n  e.  ( 1 ... N
) )  ->  X  e.  CC )
389114, 388mulcld 10060 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  k  e.  ( 0 ... N
) )  /\  n  e.  ( 1 ... N
) )  ->  ( C  x.  X )  e.  CC )
390389adantllr 755 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  ( C  x.  X )  e.  CC )
39153, 386, 390fsummulc2 14516 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w `  k )  x.  sum_ n  e.  ( 1 ... N ) ( C  x.  X
) )  =  sum_ n  e.  ( 1 ... N ) ( ( w `  k )  x.  ( C  x.  X ) ) )
392 aacllem.4 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  k  e.  ( 0 ... N
) )  ->  ( A ^ k )  = 
sum_ n  e.  (
1 ... N ) ( C  x.  X ) )
393392oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  k  e.  ( 0 ... N
) )  ->  (
( w `  k
)  x.  ( A ^ k ) )  =  ( ( w `
 k )  x. 
sum_ n  e.  (
1 ... N ) ( C  x.  X ) ) )
394393adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w `  k )  x.  ( A ^ k
) )  =  ( ( w `  k
)  x.  sum_ n  e.  ( 1 ... N
) ( C  x.  X ) ) )
395386adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  (
w `  k )  e.  CC )
396114adantllr 755 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  C  e.  CC )
397 simpll 790 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ph )
398397, 387sylan 488 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  X  e.  CC )
399395, 396, 398mulassd 10063 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  /\  n  e.  ( 1 ... N
) )  ->  (
( ( w `  k )  x.  C
)  x.  X )  =  ( ( w `
 k )  x.  ( C  x.  X
) ) )
400399sumeq2dv 14433 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  sum_ n  e.  ( 1 ... N
) ( ( ( w `  k )  x.  C )  x.  X )  =  sum_ n  e.  ( 1 ... N ) ( ( w `  k )  x.  ( C  x.  X ) ) )
401391, 394, 4003eqtr4d 2666 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  k  e.  ( 0 ... N ) )  ->  ( (
w `  k )  x.  ( A ^ k
) )  =  sum_ n  e.  ( 1 ... N ) ( ( ( w `  k
)  x.  C )  x.  X ) )
402401sumeq2dv 14433 . . . . . . . . . . 11  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( A ^ k ) )  =  sum_ k  e.  ( 0 ... N )
sum_ n  e.  (
1 ... N ) ( ( ( w `  k )  x.  C
)  x.  X ) )
403111ad2ant2lr 784 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  ( k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) ) )  -> 
( w `  k
)  e.  CC )
404114anasss 679 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) ) )  ->  C  e.  CC )
405404adantlr 751 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  ( k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) ) )  ->  C  e.  CC )
406403, 405mulcld 10060 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  ( k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) ) )  -> 
( ( w `  k )  x.  C
)  e.  CC )
407387ad2ant2rl 785 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  ( k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) ) )  ->  X  e.  CC )
408406, 407mulcld 10060 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  ( k  e.  ( 0 ... N
)  /\  n  e.  ( 1 ... N
) ) )  -> 
( ( ( w `
 k )  x.  C )  x.  X
)  e.  CC )
40945, 71, 408fsumcom 14507 . . . . . . . . . . 11  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  sum_ k  e.  ( 0 ... N ) sum_ n  e.  ( 1 ... N ) ( ( ( w `  k
)  x.  C )  x.  X )  = 
sum_ n  e.  (
1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( ( w `  k )  x.  C
)  x.  X ) )
410402, 409eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  w :
( 0 ... N
) --> QQ )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( A ^ k ) )  =  sum_ n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( ( w `
 k )  x.  C )  x.  X
) )
411410adantrr 753 . . . . . . . . 9  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  ( A ^ k ) )  =  sum_ n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( ( w `
 k )  x.  C )  x.  X
) )
412 nfv 1843 . . . . . . . . . . . 12  |-  F/ n ph
413 nfv 1843 . . . . . . . . . . . . 13  |-  F/ n  w : ( 0 ... N ) --> QQ
414 nfra1 2941 . . . . . . . . . . . . 13  |-  F/ n A. n  e.  (
1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0
415413, 414nfan 1828 . . . . . . . . . . . 12  |-  F/ n
( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )
416412, 415nfan 1828 . . . . . . . . . . 11  |-  F/ n
( ph  /\  (
w : ( 0 ... N ) --> QQ 
/\  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )
417 rspa 2930 . . . . . . . . . . . . . . . 16  |-  ( ( A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  /\  n  e.  ( 1 ... N ) )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )
418417oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( ( A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0  /\  n  e.  ( 1 ... N ) )  ->  ( sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  C )  x.  X
)  =  ( 0  x.  X ) )
419418adantll 750 . . . . . . . . . . . . . 14  |-  ( ( ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 )  /\  n  e.  ( 1 ... N ) )  ->  ( sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  x.  X )  =  ( 0  x.  X
) )
420419adantll 750 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
w : ( 0 ... N ) --> QQ 
/\  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )  /\  n  e.  ( 1 ... N
) )  ->  ( sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  x.  X )  =  ( 0  x.  X
) )
421387adantlr 751 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  X  e.  CC )
42295, 421, 117fsummulc1 14517 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w : ( 0 ... N ) --> QQ )  /\  n  e.  ( 1 ... N ) )  ->  ( sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  x.  X )  = 
sum_ k  e.  ( 0 ... N ) ( ( ( w `
 k )  x.  C )  x.  X
) )
423422adantlrr 757 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
w : ( 0 ... N ) --> QQ 
/\  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )  /\  n  e.  ( 1 ... N
) )  ->  ( sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  x.  X )  = 
sum_ k  e.  ( 0 ... N ) ( ( ( w `
 k )  x.  C )  x.  X
) )
424387mul02d 10234 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  n  e.  ( 1 ... N
) )  ->  (
0  x.  X )  =  0 )
425424adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
w : ( 0 ... N ) --> QQ 
/\  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )  /\  n  e.  ( 1 ... N
) )  ->  (
0  x.  X )  =  0 )
426420, 423, 4253eqtr3d 2664 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
w : ( 0 ... N ) --> QQ 
/\  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )  /\  n  e.  ( 1 ... N
) )  ->  sum_ k  e.  ( 0 ... N
) ( ( ( w `  k )  x.  C )  x.  X )  =  0 )
427426ex 450 . . . . . . . . . . 11  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  ( n  e.  ( 1 ... N
)  ->  sum_ k  e.  ( 0 ... N
) ( ( ( w `  k )  x.  C )  x.  X )  =  0 ) )
428416, 427ralrimi 2957 . . . . . . . . . 10  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  A. n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( ( w `
 k )  x.  C )  x.  X
)  =  0 )
429428sumeq2d 14432 . . . . . . . . 9  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  sum_ n  e.  ( 1 ... N )
sum_ k  e.  ( 0 ... N ) ( ( ( w `
 k )  x.  C )  x.  X
)  =  sum_ n  e.  ( 1 ... N
) 0 )
430411, 429eqtrd 2656 . . . . . . . 8  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  ( A ^ k ) )  =  sum_ n  e.  ( 1 ... N ) 0 )
43124olci 406 . . . . . . . . 9  |-  ( ( 1 ... N ) 
C_  ( ZZ>= `  B
)  \/  ( 1 ... N )  e. 
Fin )
432 sumz 14453 . . . . . . . . 9  |-  ( ( ( 1 ... N
)  C_  ( ZZ>= `  B )  \/  (
1 ... N )  e. 
Fin )  ->  sum_ n  e.  ( 1 ... N
) 0  =  0 )
433431, 432ax-mp 5 . . . . . . . 8  |-  sum_ n  e.  ( 1 ... N
) 0  =  0
434430, 433syl6eq 2672 . . . . . . 7  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  ( A ^ k ) )  =  0 )
435385, 434eqtrd 2656 . . . . . 6  |-  ( (
ph  /\  ( w : ( 0 ... N ) --> QQ  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) ) ) `  A )  =  0 )
436435adantrlr 759 . . . . 5  |-  ( (
ph  /\  ( (
w : ( 0 ... N ) --> QQ 
/\  w  =/=  (
( 0 ... N
)  X.  { 0 } ) )  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) ) ) `  A )  =  0 )
437 fveq1 6190 . . . . . . 7  |-  ( x  =  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) )  ->  (
x `  A )  =  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) ) ) `  A ) )
438437eqeq1d 2624 . . . . . 6  |-  ( x  =  ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  (
y ^ k ) ) )  ->  (
( x `  A
)  =  0  <->  (
( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) ) `  A )  =  0 ) )
439438rspcev 3309 . . . . 5  |-  ( ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  ( y ^ k ) ) )  e.  ( (Poly `  QQ )  \  {
0p } )  /\  ( ( y  e.  CC  |->  sum_ k  e.  ( 0 ... N
) ( ( w `
 k )  x.  ( y ^ k
) ) ) `  A )  =  0 )  ->  E. x  e.  ( (Poly `  QQ )  \  { 0p } ) ( x `
 A )  =  0 )
440377, 436, 439syl2anc 693 . . . 4  |-  ( (
ph  /\  ( (
w : ( 0 ... N ) --> QQ 
/\  w  =/=  (
( 0 ... N
)  X.  { 0 } ) )  /\  A. n  e.  ( 1 ... N ) sum_ k  e.  ( 0 ... N ) ( ( w `  k
)  x.  C )  =  0 ) )  ->  E. x  e.  ( (Poly `  QQ )  \  { 0p }
) ( x `  A )  =  0 )
441278, 440sylanr1 684 . . 3  |-  ( (
ph  /\  ( w  e.  ( ( QQ  ^m  ( 0 ... N
) )  \  {
( ( 0 ... N )  X.  {
0 } ) } )  /\  A. n  e.  ( 1 ... N
) sum_ k  e.  ( 0 ... N ) ( ( w `  k )  x.  C
)  =  0 ) )  ->  E. x  e.  ( (Poly `  QQ )  \  { 0p } ) ( x `
 A )  =  0 )
442275, 441rexlimddv 3035 . 2  |-  ( ph  ->  E. x  e.  ( (Poly `  QQ )  \  { 0p }
) ( x `  A )  =  0 )
443 elqaa 24077 . 2  |-  ( A  e.  AA  <->  ( A  e.  CC  /\  E. x  e.  ( (Poly `  QQ )  \  { 0p } ) ( x `
 A )  =  0 ) )
4441, 442, 443sylanbrc 698 1  |-  ( ph  ->  A  e.  AA )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990    =/= wne 2794    e/ wnel 2897   A.wral 2912   E.wrex 2913   _Vcvv 3200    \ cdif 3571    u. cun 3572    i^i cin 3573    C_ wss 3574   (/)c0 3915   ~Pcpw 4158   {csn 4177   class class class wbr 4653    |-> cmpt 4729    X. cxp 5112   dom cdm 5114   ran crn 5115    |` cres 5116   "cima 5117    Fn wfn 5883   -->wf 5884   -1-1->wf1 5885   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650    oFcof 6895    ^m cmap 7857    ~~ cen 7952    ~<_ cdom 7953   Fincfn 7955   CCcc 9934   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    < clt 10074    <_ cle 10075    - cmin 10266   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   QQcq 11788   ...cfz 12326   ^cexp 12860   #chash 13117   sum_csu 14416   Basecbs 15857   ↾s cress 15858   .rcmulr 15942  Scalarcsca 15944   .scvsca 15945   0gc0g 16100    gsumg cgsu 16101  Moorecmre 16242  mrClscmrc 16243  mrIndcmri 16244  ACScacs 16245   Ringcrg 18547   DivRingcdr 18747   LModclmod 18863   LSubSpclss 18932   LSpanclspn 18971  LBasisclbs 19074   LVecclvec 19102  NzRingcnzr 19257  ℂfldccnfld 19746   freeLMod cfrlm 20090   unitVec cuvc 20121   LIndF clindf 20143  LIndSclinds 20144   0pc0p 23436  Polycply 23940  coeffccoe 23942   AAcaa 24069
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014  ax-addf 10015  ax-mulf 10016
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-tpos 7352  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-xnn0 11364  df-z 11378  df-dec 11494  df-uz 11688  df-q 11789  df-rp 11833  df-fz 12327  df-fzo 12466  df-fl 12593  df-mod 12669  df-seq 12802  df-exp 12861  df-hash 13118  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-clim 14219  df-rlim 14220  df-sum 14417  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-starv 15956  df-sca 15957  df-vsca 15958  df-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-unif 15965  df-hom 15966  df-cco 15967  df-0g 16102  df-gsum 16103  df-prds 16108  df-pws 16110  df-mre 16246  df-mrc 16247  df-mri 16248  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-mhm 17335  df-submnd 17336  df-grp 17425  df-minusg 17426  df-sbg 17427  df-mulg 17541  df-subg 17591  df-ghm 17658  df-cntz 17750  df-cmn 18195  df-abl 18196  df-mgp 18490  df-ur 18502  df-ring 18549  df-cring 18550  df-oppr 18623  df-dvdsr 18641  df-unit 18642  df-invr 18672  df-dvr 18683  df-drng 18749  df-subrg 18778  df-lmod 18865  df-lss 18933  df-lsp 18972  df-lmhm 19022  df-lbs 19075  df-lvec 19103  df-sra 19172  df-rgmod 19173  df-nzr 19258  df-cnfld 19747  df-dsmm 20076  df-frlm 20091  df-uvc 20122  df-lindf 20145  df-linds 20146  df-0p 23437  df-ply 23944  df-coe 23946  df-dgr 23947  df-aa 24070
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator