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

Metamath Proof Explorer

Theorem deg1leb

Description: Property of being of limited degree. (Contributed by Stefan O'Rear, 23-Mar-2015)

Ref Expression
Hypotheses deg1leb.d 
|- D = ( deg1 ` R )
deg1leb.p 
|- P = ( Poly1 ` R )
deg1leb.b 
|- B = ( Base ` P )
deg1leb.y 
|- .0. = ( 0g ` R )
deg1leb.a 
|- A = ( coe1 ` F )
Assertion deg1leb 
|- ( ( F e. B /\ G e. RR* ) -> ( ( D ` F ) <_ G <-> A. x e. NN0 ( G < x -> ( A ` x ) = .0. ) ) )

Proof

Step Hyp Ref Expression
1 deg1leb.d 
 |-  D = ( deg1 ` R )
2 deg1leb.p 
 |-  P = ( Poly1 ` R )
3 deg1leb.b 
 |-  B = ( Base ` P )
4 deg1leb.y 
 |-  .0. = ( 0g ` R )
5 deg1leb.a 
 |-  A = ( coe1 ` F )
6 1 deg1fval 
 |-  D = ( 1o mDeg R )
7 eqid 
 |-  ( 1o mPoly R ) = ( 1o mPoly R )
8 2 3 ply1bas 
 |-  B = ( Base ` ( 1o mPoly R ) )
9 psr1baslem 
 |-  ( NN0 ^m 1o ) = { a e. ( NN0 ^m 1o ) | ( `' a " NN ) e. Fin }
10 tdeglem2 
 |-  ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) = ( b e. ( NN0 ^m 1o ) |-> ( CCfld gsum b ) )
11 6 7 8 4 9 10 mdegleb 
 |-  ( ( F e. B /\ G e. RR* ) -> ( ( D ` F ) <_ G <-> A. y e. ( NN0 ^m 1o ) ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( F ` y ) = .0. ) ) )
12 df1o2 
 |-  1o = { (/) }
13 nn0ex 
 |-  NN0 e. _V
14 0ex 
 |-  (/) e. _V
15 eqid 
 |-  ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) = ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) )
16 12 13 14 15 mapsnf1o2 
 |-  ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) : ( NN0 ^m 1o ) -1-1-onto-> NN0
17 f1ofo 
 |-  ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) : ( NN0 ^m 1o ) -1-1-onto-> NN0 -> ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) : ( NN0 ^m 1o ) -onto-> NN0 )
18 breq2 
 |-  ( ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) = x -> ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) <-> G < x ) )
19 fveqeq2 
 |-  ( ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) = x -> ( ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. <-> ( A ` x ) = .0. ) )
20 18 19 imbi12d 
 |-  ( ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) = x -> ( ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. ) <-> ( G < x -> ( A ` x ) = .0. ) ) )
21 20 cbvfo 
 |-  ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) : ( NN0 ^m 1o ) -onto-> NN0 -> ( A. y e. ( NN0 ^m 1o ) ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. ) <-> A. x e. NN0 ( G < x -> ( A ` x ) = .0. ) ) )
22 16 17 21 mp2b 
 |-  ( A. y e. ( NN0 ^m 1o ) ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. ) <-> A. x e. NN0 ( G < x -> ( A ` x ) = .0. ) )
23 fveq1 
 |-  ( b = y -> ( b ` (/) ) = ( y ` (/) ) )
24 fvex 
 |-  ( y ` (/) ) e. _V
25 23 15 24 fvmpt 
 |-  ( y e. ( NN0 ^m 1o ) -> ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) = ( y ` (/) ) )
26 25 fveq2d 
 |-  ( y e. ( NN0 ^m 1o ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = ( A ` ( y ` (/) ) ) )
27 26 adantl 
 |-  ( ( ( F e. B /\ G e. RR* ) /\ y e. ( NN0 ^m 1o ) ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = ( A ` ( y ` (/) ) ) )
28 5 fvcoe1 
 |-  ( ( F e. B /\ y e. ( NN0 ^m 1o ) ) -> ( F ` y ) = ( A ` ( y ` (/) ) ) )
29 28 adantlr 
 |-  ( ( ( F e. B /\ G e. RR* ) /\ y e. ( NN0 ^m 1o ) ) -> ( F ` y ) = ( A ` ( y ` (/) ) ) )
30 27 29 eqtr4d 
 |-  ( ( ( F e. B /\ G e. RR* ) /\ y e. ( NN0 ^m 1o ) ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = ( F ` y ) )
31 30 eqeq1d 
 |-  ( ( ( F e. B /\ G e. RR* ) /\ y e. ( NN0 ^m 1o ) ) -> ( ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. <-> ( F ` y ) = .0. ) )
32 31 imbi2d 
 |-  ( ( ( F e. B /\ G e. RR* ) /\ y e. ( NN0 ^m 1o ) ) -> ( ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. ) <-> ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( F ` y ) = .0. ) ) )
33 32 ralbidva 
 |-  ( ( F e. B /\ G e. RR* ) -> ( A. y e. ( NN0 ^m 1o ) ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( A ` ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) ) = .0. ) <-> A. y e. ( NN0 ^m 1o ) ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( F ` y ) = .0. ) ) )
34 22 33 bitr3id 
 |-  ( ( F e. B /\ G e. RR* ) -> ( A. x e. NN0 ( G < x -> ( A ` x ) = .0. ) <-> A. y e. ( NN0 ^m 1o ) ( G < ( ( b e. ( NN0 ^m 1o ) |-> ( b ` (/) ) ) ` y ) -> ( F ` y ) = .0. ) ) )
35 11 34 bitr4d 
 |-  ( ( F e. B /\ G e. RR* ) -> ( ( D ` F ) <_ G <-> A. x e. NN0 ( G < x -> ( A ` x ) = .0. ) ) )