Metamath Proof Explorer


Theorem ftalem2

Description: Lemma for fta . There exists some r such that F has magnitude greater than F ( 0 ) outside the closed ball B(0,r). (Contributed by Mario Carneiro, 14-Sep-2014)

Ref Expression
Hypotheses ftalem.1 A=coeffF
ftalem.2 N=degF
ftalem.3 φFPolyS
ftalem.4 φN
ftalem2.5 U=ifif1ss1TTif1ss1
ftalem2.6 T=F0AN2
Assertion ftalem2 φr+xr<xF0<Fx

Proof

Step Hyp Ref Expression
1 ftalem.1 A=coeffF
2 ftalem.2 N=degF
3 ftalem.3 φFPolyS
4 ftalem.4 φN
5 ftalem2.5 U=ifif1ss1TTif1ss1
6 ftalem2.6 T=F0AN2
7 1 coef3 FPolySA:0
8 3 7 syl φA:0
9 4 nnnn0d φN0
10 8 9 ffvelcdmd φAN
11 4 nnne0d φN0
12 2 1 dgreq0 FPolySF=0𝑝AN=0
13 fveq2 F=0𝑝degF=deg0𝑝
14 dgr0 deg0𝑝=0
15 13 14 eqtrdi F=0𝑝degF=0
16 2 15 eqtrid F=0𝑝N=0
17 12 16 syl6bir FPolySAN=0N=0
18 3 17 syl φAN=0N=0
19 18 necon3d φN0AN0
20 11 19 mpd φAN0
21 10 20 absrpcld φAN+
22 21 rphalfcld φAN2+
23 2fveq3 n=kAn=Ak
24 23 cbvsumv n=0N1An=k=0N1Ak
25 24 oveq1i n=0N1AnAN2=k=0N1AkAN2
26 1 2 3 4 22 25 ftalem1 φsxs<xFxANxN<AN2xN
27 plyf FPolySF:
28 3 27 syl φF:
29 0cn 0
30 ffvelcdm F:0F0
31 28 29 30 sylancl φF0
32 31 abscld φF0
33 32 22 rerpdivcld φF0AN2
34 6 33 eqeltrid φT
35 34 adantr φsT
36 simpr φss
37 1re 1
38 ifcl s1if1ss1
39 36 37 38 sylancl φsif1ss1
40 35 39 ifcld φsifif1ss1TTif1ss1
41 5 40 eqeltrid φsU
42 0red φs0
43 1red φs1
44 0lt1 0<1
45 44 a1i φs0<1
46 max1 1s1if1ss1
47 37 36 46 sylancr φs1if1ss1
48 max1 if1ss1Tif1ss1ifif1ss1TTif1ss1
49 39 35 48 syl2anc φsif1ss1ifif1ss1TTif1ss1
50 49 5 breqtrrdi φsif1ss1U
51 43 39 41 47 50 letrd φs1U
52 42 43 41 45 51 ltletrd φs0<U
53 41 52 elrpd φsU+
54 max2 1ssif1ss1
55 37 36 54 sylancr φssif1ss1
56 36 39 41 55 50 letrd φssU
57 56 adantr φsxsU
58 abscl xx
59 lelttr sUxsUU<xs<x
60 36 41 58 59 syl2an3an φsxsUU<xs<x
61 57 60 mpand φsxU<xs<x
62 61 imim1d φsxs<xFxANxN<AN2xNU<xFxANxN<AN2xN
63 28 ad2antrr φsxU<xF:
64 simprl φsxU<xx
65 63 64 ffvelcdmd φsxU<xFx
66 10 ad2antrr φsxU<xAN
67 9 ad2antrr φsxU<xN0
68 64 67 expcld φsxU<xxN
69 66 68 mulcld φsxU<xANxN
70 65 69 subcld φsxU<xFxANxN
71 70 abscld φsxU<xFxANxN
72 69 abscld φsxU<xANxN
73 72 rehalfcld φsxU<xANxN2
74 71 73 72 ltsub2d φsxU<xFxANxN<ANxN2ANxNANxN2<ANxNFxANxN
75 66 68 absmuld φsxU<xANxN=ANxN
76 64 67 absexpd φsxU<xxN=xN
77 76 oveq2d φsxU<xANxN=ANxN
78 75 77 eqtrd φsxU<xANxN=ANxN
79 78 oveq1d φsxU<xANxN2=ANxN2
80 66 abscld φsxU<xAN
81 80 recnd φsxU<xAN
82 58 ad2antrl φsxU<xx
83 82 67 reexpcld φsxU<xxN
84 83 recnd φsxU<xxN
85 2cnd φsxU<x2
86 2ne0 20
87 86 a1i φsxU<x20
88 81 84 85 87 div23d φsxU<xANxN2=AN2xN
89 79 88 eqtrd φsxU<xANxN2=AN2xN
90 89 breq2d φsxU<xFxANxN<ANxN2FxANxN<AN2xN
91 72 recnd φsxU<xANxN
92 91 2halvesd φsxU<xANxN2+ANxN2=ANxN
93 92 oveq1d φsxU<xANxN2+ANxN2-ANxN2=ANxNANxN2
94 73 recnd φsxU<xANxN2
95 94 94 pncand φsxU<xANxN2+ANxN2-ANxN2=ANxN2
96 93 95 eqtr3d φsxU<xANxNANxN2=ANxN2
97 96 breq1d φsxU<xANxNANxN2<ANxNFxANxNANxN2<ANxNFxANxN
98 74 90 97 3bitr3d φsxU<xFxANxN<AN2xNANxN2<ANxNFxANxN
99 69 65 subcld φsxU<xANxNFx
100 69 99 abs2difd φsxU<xANxNANxNFxANxNANxNFx
101 69 65 abssubd φsxU<xANxNFx=FxANxN
102 101 oveq2d φsxU<xANxNANxNFx=ANxNFxANxN
103 69 65 nncand φsxU<xANxNANxNFx=Fx
104 103 fveq2d φsxU<xANxNANxNFx=Fx
105 100 102 104 3brtr3d φsxU<xANxNFxANxNFx
106 72 71 resubcld φsxU<xANxNFxANxN
107 65 abscld φsxU<xFx
108 ltletr ANxN2ANxNFxANxNFxANxN2<ANxNFxANxNANxNFxANxNFxANxN2<Fx
109 73 106 107 108 syl3anc φsxU<xANxN2<ANxNFxANxNANxNFxANxNFxANxN2<Fx
110 105 109 mpan2d φsxU<xANxN2<ANxNFxANxNANxN2<Fx
111 98 110 sylbid φsxU<xFxANxN<AN2xNANxN2<Fx
112 32 ad2antrr φsxU<xF0
113 22 ad2antrr φsxU<xAN2+
114 113 rpred φsxU<xAN2
115 114 82 remulcld φsxU<xAN2x
116 89 73 eqeltrrd φsxU<xAN2xN
117 35 adantr φsxU<xT
118 41 adantr φsxU<xU
119 max2 if1ss1TTifif1ss1TTif1ss1
120 39 35 119 syl2anc φsTifif1ss1TTif1ss1
121 120 5 breqtrrdi φsTU
122 121 adantr φsxU<xTU
123 simprr φsxU<xU<x
124 117 118 82 122 123 lelttrd φsxU<xT<x
125 6 124 eqbrtrrid φsxU<xF0AN2<x
126 112 82 113 ltdivmuld φsxU<xF0AN2<xF0<AN2x
127 125 126 mpbid φsxU<xF0<AN2x
128 82 recnd φsxU<xx
129 128 exp1d φsxU<xx1=x
130 1red φsxU<x1
131 51 adantr φsxU<x1U
132 130 118 82 131 123 lelttrd φsxU<x1<x
133 130 82 132 ltled φsxU<x1x
134 4 ad2antrr φsxU<xN
135 nnuz =1
136 134 135 eleqtrdi φsxU<xN1
137 82 133 136 leexp2ad φsxU<xx1xN
138 129 137 eqbrtrrd φsxU<xxxN
139 82 83 113 lemul2d φsxU<xxxNAN2xAN2xN
140 138 139 mpbid φsxU<xAN2xAN2xN
141 112 115 116 127 140 ltletrd φsxU<xF0<AN2xN
142 141 89 breqtrrd φsxU<xF0<ANxN2
143 lttr F0ANxN2FxF0<ANxN2ANxN2<FxF0<Fx
144 112 73 107 143 syl3anc φsxU<xF0<ANxN2ANxN2<FxF0<Fx
145 142 144 mpand φsxU<xANxN2<FxF0<Fx
146 111 145 syld φsxU<xFxANxN<AN2xNF0<Fx
147 146 expr φsxU<xFxANxN<AN2xNF0<Fx
148 147 a2d φsxU<xFxANxN<AN2xNU<xF0<Fx
149 62 148 syld φsxs<xFxANxN<AN2xNU<xF0<Fx
150 149 ralimdva φsxs<xFxANxN<AN2xNxU<xF0<Fx
151 breq1 r=Ur<xU<x
152 151 rspceaimv U+xU<xF0<Fxr+xr<xF0<Fx
153 53 150 152 syl6an φsxs<xFxANxN<AN2xNr+xr<xF0<Fx
154 153 rexlimdva φsxs<xFxANxN<AN2xNr+xr<xF0<Fx
155 26 154 mpd φr+xr<xF0<Fx