This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem elply2

Description: The coefficient function can be assumed to have zeroes outside 0 ... n . (Contributed by Mario Carneiro, 20-Jul-2014) (Revised by Mario Carneiro, 23-Aug-2014)

Ref Expression
Assertion elply2 
|- ( F e. ( Poly ` S ) <-> ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )

Proof

Step Hyp Ref Expression
1 elply 
 |-  ( F e. ( Poly ` S ) <-> ( S C_ CC /\ E. n e. NN0 E. f e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) ) )
2 simpr 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> f e. ( ( S u. { 0 } ) ^m NN0 ) )
3 simpll 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> S C_ CC )
4 cnex 
 |-  CC e. _V
5 ssexg 
 |-  ( ( S C_ CC /\ CC e. _V ) -> S e. _V )
6 3 4 5 sylancl 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> S e. _V )
7 snex 
 |-  { 0 } e. _V
8 unexg 
 |-  ( ( S e. _V /\ { 0 } e. _V ) -> ( S u. { 0 } ) e. _V )
9 6 7 8 sylancl 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( S u. { 0 } ) e. _V )
10 nn0ex 
 |-  NN0 e. _V
11 elmapg 
 |-  ( ( ( S u. { 0 } ) e. _V /\ NN0 e. _V ) -> ( f e. ( ( S u. { 0 } ) ^m NN0 ) <-> f : NN0 --> ( S u. { 0 } ) ) )
12 9 10 11 sylancl 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( f e. ( ( S u. { 0 } ) ^m NN0 ) <-> f : NN0 --> ( S u. { 0 } ) ) )
13 2 12 mpbid 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> f : NN0 --> ( S u. { 0 } ) )
14 13 ffvelcdmda 
 |-  ( ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) /\ x e. NN0 ) -> ( f ` x ) e. ( S u. { 0 } ) )
15 ssun2 
 |-  { 0 } C_ ( S u. { 0 } )
16 c0ex 
 |-  0 e. _V
17 16 snss 
 |-  ( 0 e. ( S u. { 0 } ) <-> { 0 } C_ ( S u. { 0 } ) )
18 15 17 mpbir 
 |-  0 e. ( S u. { 0 } )
19 ifcl 
 |-  ( ( ( f ` x ) e. ( S u. { 0 } ) /\ 0 e. ( S u. { 0 } ) ) -> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) e. ( S u. { 0 } ) )
20 14 18 19 sylancl 
 |-  ( ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) /\ x e. NN0 ) -> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) e. ( S u. { 0 } ) )
21 20 fmpttd 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) : NN0 --> ( S u. { 0 } ) )
22 elmapg 
 |-  ( ( ( S u. { 0 } ) e. _V /\ NN0 e. _V ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) e. ( ( S u. { 0 } ) ^m NN0 ) <-> ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) : NN0 --> ( S u. { 0 } ) ) )
23 9 10 22 sylancl 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) e. ( ( S u. { 0 } ) ^m NN0 ) <-> ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) : NN0 --> ( S u. { 0 } ) ) )
24 21 23 mpbird 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) e. ( ( S u. { 0 } ) ^m NN0 ) )
25 eleq1w 
 |-  ( x = k -> ( x e. ( 0 ... n ) <-> k e. ( 0 ... n ) ) )
26 fveq2 
 |-  ( x = k -> ( f ` x ) = ( f ` k ) )
27 25 26 ifbieq1d 
 |-  ( x = k -> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) = if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) )
28 eqid 
 |-  ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) )
29 fvex 
 |-  ( f ` k ) e. _V
30 29 16 ifex 
 |-  if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) e. _V
31 27 28 30 fvmpt 
 |-  ( k e. NN0 -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) )
32 31 ad2antll 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ ( f e. ( ( S u. { 0 } ) ^m NN0 ) /\ k e. NN0 ) ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) )
33 iffalse 
 |-  ( -. k e. ( 0 ... n ) -> if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) = 0 )
34 33 eqeq2d 
 |-  ( -. k e. ( 0 ... n ) -> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) <-> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = 0 ) )
35 32 34 syl5ibcom 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ ( f e. ( ( S u. { 0 } ) ^m NN0 ) /\ k e. NN0 ) ) -> ( -. k e. ( 0 ... n ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = 0 ) )
36 35 necon1ad 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ ( f e. ( ( S u. { 0 } ) ^m NN0 ) /\ k e. NN0 ) ) -> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) =/= 0 -> k e. ( 0 ... n ) ) )
37 elfzle2 
 |-  ( k e. ( 0 ... n ) -> k <_ n )
38 36 37 syl6 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ ( f e. ( ( S u. { 0 } ) ^m NN0 ) /\ k e. NN0 ) ) -> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) =/= 0 -> k <_ n ) )
39 38 anassrs 
 |-  ( ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) /\ k e. NN0 ) -> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) =/= 0 -> k <_ n ) )
40 39 ralrimiva 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> A. k e. NN0 ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) =/= 0 -> k <_ n ) )
41 simplr 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> n e. NN0 )
42 0cnd 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> 0 e. CC )
43 42 snssd 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> { 0 } C_ CC )
44 3 43 unssd 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( S u. { 0 } ) C_ CC )
45 21 44 fssd 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) : NN0 --> CC )
46 plyco0 
 |-  ( ( n e. NN0 /\ ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) : NN0 --> CC ) -> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } <-> A. k e. NN0 ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) =/= 0 -> k <_ n ) ) )
47 41 45 46 syl2anc 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } <-> A. k e. NN0 ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) =/= 0 -> k <_ n ) ) )
48 40 47 mpbird 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } )
49 eqidd 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) )
50 imaeq1 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> ( a " ( ZZ>= ` ( n + 1 ) ) ) = ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) )
51 50 eqeq1d 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } <-> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } ) )
52 fveq1 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> ( a ` k ) = ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) )
53 elfznn0 
 |-  ( k e. ( 0 ... n ) -> k e. NN0 )
54 53 31 syl 
 |-  ( k e. ( 0 ... n ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) )
55 iftrue 
 |-  ( k e. ( 0 ... n ) -> if ( k e. ( 0 ... n ) , ( f ` k ) , 0 ) = ( f ` k ) )
56 54 55 eqtrd 
 |-  ( k e. ( 0 ... n ) -> ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) ` k ) = ( f ` k ) )
57 52 56 sylan9eq 
 |-  ( ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) /\ k e. ( 0 ... n ) ) -> ( a ` k ) = ( f ` k ) )
58 57 oveq1d 
 |-  ( ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) /\ k e. ( 0 ... n ) ) -> ( ( a ` k ) x. ( z ^ k ) ) = ( ( f ` k ) x. ( z ^ k ) ) )
59 58 sumeq2dv 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) = sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) )
60 59 mpteq2dv 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) )
61 60 eqeq2d 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> ( ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) <-> ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) ) )
62 51 61 anbi12d 
 |-  ( a = ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) -> ( ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) <-> ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) ) ) )
63 62 rspcev 
 |-  ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) e. ( ( S u. { 0 } ) ^m NN0 ) /\ ( ( ( x e. NN0 |-> if ( x e. ( 0 ... n ) , ( f ` x ) , 0 ) ) " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) ) ) -> E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) )
64 24 48 49 63 syl12anc 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) )
65 eqeq1 
 |-  ( F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) -> ( F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) <-> ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) )
66 65 anbi2d 
 |-  ( F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) -> ( ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) <-> ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
67 66 rexbidv 
 |-  ( F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) -> ( E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) <-> E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
68 64 67 syl5ibrcom 
 |-  ( ( ( S C_ CC /\ n e. NN0 ) /\ f e. ( ( S u. { 0 } ) ^m NN0 ) ) -> ( F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) -> E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
69 68 rexlimdva 
 |-  ( ( S C_ CC /\ n e. NN0 ) -> ( E. f e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) -> E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
70 69 reximdva 
 |-  ( S C_ CC -> ( E. n e. NN0 E. f e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) -> E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
71 70 imdistani 
 |-  ( ( S C_ CC /\ E. n e. NN0 E. f e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( f ` k ) x. ( z ^ k ) ) ) ) -> ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
72 1 71 sylbi 
 |-  ( F e. ( Poly ` S ) -> ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )
73 simpr 
 |-  ( ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) -> F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) )
74 73 reximi 
 |-  ( E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) -> E. a e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) )
75 74 reximi 
 |-  ( E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) -> E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) )
76 75 anim2i 
 |-  ( ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) -> ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) )
77 elply 
 |-  ( F e. ( Poly ` S ) <-> ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) )
78 76 77 sylibr 
 |-  ( ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) -> F e. ( Poly ` S ) )
79 72 78 impbii 
 |-  ( F e. ( Poly ` S ) <-> ( S C_ CC /\ E. n e. NN0 E. a e. ( ( S u. { 0 } ) ^m NN0 ) ( ( a " ( ZZ>= ` ( n + 1 ) ) ) = { 0 } /\ F = ( z e. CC |-> sum_ k e. ( 0 ... n ) ( ( a ` k ) x. ( z ^ k ) ) ) ) ) )