Metamath Proof Explorer


Theorem ftalem3

Description: Lemma for fta . There exists a global minimum of the function abs o. F . The proof uses a circle of radius r where r is the value coming from ftalem1 ; since this is a compact set, the minimum on this disk is achieved, and this must then be the global minimum. (Contributed by Mario Carneiro, 14-Sep-2014)

Ref Expression
Hypotheses ftalem.1 ⊒ 𝐴 = ( coeff β€˜ 𝐹 )
ftalem.2 ⊒ 𝑁 = ( deg β€˜ 𝐹 )
ftalem.3 ⊒ ( πœ‘ β†’ 𝐹 ∈ ( Poly β€˜ 𝑆 ) )
ftalem.4 ⊒ ( πœ‘ β†’ 𝑁 ∈ β„• )
ftalem3.5 ⊒ 𝐷 = { 𝑦 ∈ β„‚ ∣ ( abs β€˜ 𝑦 ) ≀ 𝑅 }
ftalem3.6 ⊒ 𝐽 = ( TopOpen β€˜ β„‚fld )
ftalem3.7 ⊒ ( πœ‘ β†’ 𝑅 ∈ ℝ+ )
ftalem3.8 ⊒ ( πœ‘ β†’ βˆ€ π‘₯ ∈ β„‚ ( 𝑅 < ( abs β€˜ π‘₯ ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) < ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
Assertion ftalem3 ( πœ‘ β†’ βˆƒ 𝑧 ∈ β„‚ βˆ€ π‘₯ ∈ β„‚ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )

Proof

Step Hyp Ref Expression
1 ftalem.1 ⊒ 𝐴 = ( coeff β€˜ 𝐹 )
2 ftalem.2 ⊒ 𝑁 = ( deg β€˜ 𝐹 )
3 ftalem.3 ⊒ ( πœ‘ β†’ 𝐹 ∈ ( Poly β€˜ 𝑆 ) )
4 ftalem.4 ⊒ ( πœ‘ β†’ 𝑁 ∈ β„• )
5 ftalem3.5 ⊒ 𝐷 = { 𝑦 ∈ β„‚ ∣ ( abs β€˜ 𝑦 ) ≀ 𝑅 }
6 ftalem3.6 ⊒ 𝐽 = ( TopOpen β€˜ β„‚fld )
7 ftalem3.7 ⊒ ( πœ‘ β†’ 𝑅 ∈ ℝ+ )
8 ftalem3.8 ⊒ ( πœ‘ β†’ βˆ€ π‘₯ ∈ β„‚ ( 𝑅 < ( abs β€˜ π‘₯ ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) < ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
9 5 ssrab3 ⊒ 𝐷 βŠ† β„‚
10 6 cnfldtopon ⊒ 𝐽 ∈ ( TopOn β€˜ β„‚ )
11 resttopon ⊒ ( ( 𝐽 ∈ ( TopOn β€˜ β„‚ ) ∧ 𝐷 βŠ† β„‚ ) β†’ ( 𝐽 β†Ύt 𝐷 ) ∈ ( TopOn β€˜ 𝐷 ) )
12 10 9 11 mp2an ⊒ ( 𝐽 β†Ύt 𝐷 ) ∈ ( TopOn β€˜ 𝐷 )
13 12 toponunii ⊒ 𝐷 = βˆͺ ( 𝐽 β†Ύt 𝐷 )
14 eqid ⊒ ( topGen β€˜ ran (,) ) = ( topGen β€˜ ran (,) )
15 cnxmet ⊒ ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ )
16 15 a1i ⊒ ( πœ‘ β†’ ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) )
17 0cn ⊒ 0 ∈ β„‚
18 17 a1i ⊒ ( πœ‘ β†’ 0 ∈ β„‚ )
19 7 rpxrd ⊒ ( πœ‘ β†’ 𝑅 ∈ ℝ* )
20 6 cnfldtopn ⊒ 𝐽 = ( MetOpen β€˜ ( abs ∘ βˆ’ ) )
21 eqid ⊒ ( abs ∘ βˆ’ ) = ( abs ∘ βˆ’ )
22 21 cnmetdval ⊒ ( ( 0 ∈ β„‚ ∧ 𝑦 ∈ β„‚ ) β†’ ( 0 ( abs ∘ βˆ’ ) 𝑦 ) = ( abs β€˜ ( 0 βˆ’ 𝑦 ) ) )
23 17 22 mpan ⊒ ( 𝑦 ∈ β„‚ β†’ ( 0 ( abs ∘ βˆ’ ) 𝑦 ) = ( abs β€˜ ( 0 βˆ’ 𝑦 ) ) )
24 df-neg ⊒ - 𝑦 = ( 0 βˆ’ 𝑦 )
25 24 fveq2i ⊒ ( abs β€˜ - 𝑦 ) = ( abs β€˜ ( 0 βˆ’ 𝑦 ) )
26 absneg ⊒ ( 𝑦 ∈ β„‚ β†’ ( abs β€˜ - 𝑦 ) = ( abs β€˜ 𝑦 ) )
27 25 26 eqtr3id ⊒ ( 𝑦 ∈ β„‚ β†’ ( abs β€˜ ( 0 βˆ’ 𝑦 ) ) = ( abs β€˜ 𝑦 ) )
28 23 27 eqtrd ⊒ ( 𝑦 ∈ β„‚ β†’ ( 0 ( abs ∘ βˆ’ ) 𝑦 ) = ( abs β€˜ 𝑦 ) )
29 28 breq1d ⊒ ( 𝑦 ∈ β„‚ β†’ ( ( 0 ( abs ∘ βˆ’ ) 𝑦 ) ≀ 𝑅 ↔ ( abs β€˜ 𝑦 ) ≀ 𝑅 ) )
30 29 rabbiia ⊒ { 𝑦 ∈ β„‚ ∣ ( 0 ( abs ∘ βˆ’ ) 𝑦 ) ≀ 𝑅 } = { 𝑦 ∈ β„‚ ∣ ( abs β€˜ 𝑦 ) ≀ 𝑅 }
31 5 30 eqtr4i ⊒ 𝐷 = { 𝑦 ∈ β„‚ ∣ ( 0 ( abs ∘ βˆ’ ) 𝑦 ) ≀ 𝑅 }
32 20 31 blcld ⊒ ( ( ( abs ∘ βˆ’ ) ∈ ( ∞Met β€˜ β„‚ ) ∧ 0 ∈ β„‚ ∧ 𝑅 ∈ ℝ* ) β†’ 𝐷 ∈ ( Clsd β€˜ 𝐽 ) )
33 16 18 19 32 syl3anc ⊒ ( πœ‘ β†’ 𝐷 ∈ ( Clsd β€˜ 𝐽 ) )
34 7 rpred ⊒ ( πœ‘ β†’ 𝑅 ∈ ℝ )
35 fveq2 ⊒ ( 𝑦 = π‘₯ β†’ ( abs β€˜ 𝑦 ) = ( abs β€˜ π‘₯ ) )
36 35 breq1d ⊒ ( 𝑦 = π‘₯ β†’ ( ( abs β€˜ 𝑦 ) ≀ 𝑅 ↔ ( abs β€˜ π‘₯ ) ≀ 𝑅 ) )
37 36 5 elrab2 ⊒ ( π‘₯ ∈ 𝐷 ↔ ( π‘₯ ∈ β„‚ ∧ ( abs β€˜ π‘₯ ) ≀ 𝑅 ) )
38 37 simprbi ⊒ ( π‘₯ ∈ 𝐷 β†’ ( abs β€˜ π‘₯ ) ≀ 𝑅 )
39 38 rgen ⊒ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ π‘₯ ) ≀ 𝑅
40 brralrspcev ⊒ ( ( 𝑅 ∈ ℝ ∧ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ π‘₯ ) ≀ 𝑅 ) β†’ βˆƒ 𝑠 ∈ ℝ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ π‘₯ ) ≀ 𝑠 )
41 34 39 40 sylancl ⊒ ( πœ‘ β†’ βˆƒ 𝑠 ∈ ℝ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ π‘₯ ) ≀ 𝑠 )
42 eqid ⊒ ( 𝐽 β†Ύt 𝐷 ) = ( 𝐽 β†Ύt 𝐷 )
43 6 42 cnheibor ⊒ ( 𝐷 βŠ† β„‚ β†’ ( ( 𝐽 β†Ύt 𝐷 ) ∈ Comp ↔ ( 𝐷 ∈ ( Clsd β€˜ 𝐽 ) ∧ βˆƒ 𝑠 ∈ ℝ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ π‘₯ ) ≀ 𝑠 ) ) )
44 9 43 ax-mp ⊒ ( ( 𝐽 β†Ύt 𝐷 ) ∈ Comp ↔ ( 𝐷 ∈ ( Clsd β€˜ 𝐽 ) ∧ βˆƒ 𝑠 ∈ ℝ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ π‘₯ ) ≀ 𝑠 ) )
45 33 41 44 sylanbrc ⊒ ( πœ‘ β†’ ( 𝐽 β†Ύt 𝐷 ) ∈ Comp )
46 plycn ⊒ ( 𝐹 ∈ ( Poly β€˜ 𝑆 ) β†’ 𝐹 ∈ ( β„‚ –cnβ†’ β„‚ ) )
47 3 46 syl ⊒ ( πœ‘ β†’ 𝐹 ∈ ( β„‚ –cnβ†’ β„‚ ) )
48 abscncf ⊒ abs ∈ ( β„‚ –cnβ†’ ℝ )
49 48 a1i ⊒ ( πœ‘ β†’ abs ∈ ( β„‚ –cnβ†’ ℝ ) )
50 47 49 cncfco ⊒ ( πœ‘ β†’ ( abs ∘ 𝐹 ) ∈ ( β„‚ –cnβ†’ ℝ ) )
51 ssid ⊒ β„‚ βŠ† β„‚
52 ax-resscn ⊒ ℝ βŠ† β„‚
53 10 toponrestid ⊒ 𝐽 = ( 𝐽 β†Ύt β„‚ )
54 6 tgioo2 ⊒ ( topGen β€˜ ran (,) ) = ( 𝐽 β†Ύt ℝ )
55 6 53 54 cncfcn ⊒ ( ( β„‚ βŠ† β„‚ ∧ ℝ βŠ† β„‚ ) β†’ ( β„‚ –cnβ†’ ℝ ) = ( 𝐽 Cn ( topGen β€˜ ran (,) ) ) )
56 51 52 55 mp2an ⊒ ( β„‚ –cnβ†’ ℝ ) = ( 𝐽 Cn ( topGen β€˜ ran (,) ) )
57 50 56 eleqtrdi ⊒ ( πœ‘ β†’ ( abs ∘ 𝐹 ) ∈ ( 𝐽 Cn ( topGen β€˜ ran (,) ) ) )
58 10 toponunii ⊒ β„‚ = βˆͺ 𝐽
59 58 cnrest ⊒ ( ( ( abs ∘ 𝐹 ) ∈ ( 𝐽 Cn ( topGen β€˜ ran (,) ) ) ∧ 𝐷 βŠ† β„‚ ) β†’ ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) ∈ ( ( 𝐽 β†Ύt 𝐷 ) Cn ( topGen β€˜ ran (,) ) ) )
60 57 9 59 sylancl ⊒ ( πœ‘ β†’ ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) ∈ ( ( 𝐽 β†Ύt 𝐷 ) Cn ( topGen β€˜ ran (,) ) ) )
61 7 rpge0d ⊒ ( πœ‘ β†’ 0 ≀ 𝑅 )
62 fveq2 ⊒ ( 𝑦 = 0 β†’ ( abs β€˜ 𝑦 ) = ( abs β€˜ 0 ) )
63 abs0 ⊒ ( abs β€˜ 0 ) = 0
64 62 63 eqtrdi ⊒ ( 𝑦 = 0 β†’ ( abs β€˜ 𝑦 ) = 0 )
65 64 breq1d ⊒ ( 𝑦 = 0 β†’ ( ( abs β€˜ 𝑦 ) ≀ 𝑅 ↔ 0 ≀ 𝑅 ) )
66 65 5 elrab2 ⊒ ( 0 ∈ 𝐷 ↔ ( 0 ∈ β„‚ ∧ 0 ≀ 𝑅 ) )
67 18 61 66 sylanbrc ⊒ ( πœ‘ β†’ 0 ∈ 𝐷 )
68 67 ne0d ⊒ ( πœ‘ β†’ 𝐷 β‰  βˆ… )
69 13 14 45 60 68 evth2 ⊒ ( πœ‘ β†’ βˆƒ 𝑧 ∈ 𝐷 βˆ€ π‘₯ ∈ 𝐷 ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) ≀ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) )
70 fvres ⊒ ( 𝑧 ∈ 𝐷 β†’ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) = ( ( abs ∘ 𝐹 ) β€˜ 𝑧 ) )
71 70 ad2antlr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) = ( ( abs ∘ 𝐹 ) β€˜ 𝑧 ) )
72 plyf ⊒ ( 𝐹 ∈ ( Poly β€˜ 𝑆 ) β†’ 𝐹 : β„‚ ⟢ β„‚ )
73 3 72 syl ⊒ ( πœ‘ β†’ 𝐹 : β„‚ ⟢ β„‚ )
74 73 ad2antrr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ 𝐹 : β„‚ ⟢ β„‚ )
75 simplr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ 𝑧 ∈ 𝐷 )
76 9 75 sselid ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ 𝑧 ∈ β„‚ )
77 fvco3 ⊒ ( ( 𝐹 : β„‚ ⟢ β„‚ ∧ 𝑧 ∈ β„‚ ) β†’ ( ( abs ∘ 𝐹 ) β€˜ 𝑧 ) = ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) )
78 74 76 77 syl2anc ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( abs ∘ 𝐹 ) β€˜ 𝑧 ) = ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) )
79 71 78 eqtrd ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) = ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) )
80 fvres ⊒ ( π‘₯ ∈ 𝐷 β†’ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) = ( ( abs ∘ 𝐹 ) β€˜ π‘₯ ) )
81 80 adantl ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) = ( ( abs ∘ 𝐹 ) β€˜ π‘₯ ) )
82 simpr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ π‘₯ ∈ 𝐷 )
83 9 82 sselid ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ π‘₯ ∈ β„‚ )
84 fvco3 ⊒ ( ( 𝐹 : β„‚ ⟢ β„‚ ∧ π‘₯ ∈ β„‚ ) β†’ ( ( abs ∘ 𝐹 ) β€˜ π‘₯ ) = ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
85 74 83 84 syl2anc ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( abs ∘ 𝐹 ) β€˜ π‘₯ ) = ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
86 81 85 eqtrd ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) = ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
87 79 86 breq12d ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) ∧ π‘₯ ∈ 𝐷 ) β†’ ( ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) ≀ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) ↔ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
88 87 ralbidva ⊒ ( ( πœ‘ ∧ 𝑧 ∈ 𝐷 ) β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) ≀ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) ↔ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
89 88 rexbidva ⊒ ( πœ‘ β†’ ( βˆƒ 𝑧 ∈ 𝐷 βˆ€ π‘₯ ∈ 𝐷 ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ 𝑧 ) ≀ ( ( ( abs ∘ 𝐹 ) β†Ύ 𝐷 ) β€˜ π‘₯ ) ↔ βˆƒ 𝑧 ∈ 𝐷 βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
90 69 89 mpbid ⊒ ( πœ‘ β†’ βˆƒ 𝑧 ∈ 𝐷 βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
91 ssrexv ⊒ ( 𝐷 βŠ† β„‚ β†’ ( βˆƒ 𝑧 ∈ 𝐷 βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ βˆƒ 𝑧 ∈ β„‚ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
92 9 90 91 mpsyl ⊒ ( πœ‘ β†’ βˆƒ 𝑧 ∈ β„‚ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
93 67 adantr ⊒ ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) β†’ 0 ∈ 𝐷 )
94 2fveq3 ⊒ ( π‘₯ = 0 β†’ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) = ( abs β€˜ ( 𝐹 β€˜ 0 ) ) )
95 94 breq2d ⊒ ( π‘₯ = 0 β†’ ( ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ↔ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ) )
96 95 rspcv ⊒ ( 0 ∈ 𝐷 β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ) )
97 93 96 syl ⊒ ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ) )
98 73 ad2antrr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ 𝐹 : β„‚ ⟢ β„‚ )
99 ffvelcdm ⊒ ( ( 𝐹 : β„‚ ⟢ β„‚ ∧ 0 ∈ β„‚ ) β†’ ( 𝐹 β€˜ 0 ) ∈ β„‚ )
100 98 17 99 sylancl ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( 𝐹 β€˜ 0 ) ∈ β„‚ )
101 100 abscld ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ∈ ℝ )
102 simpr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) )
103 102 eldifad ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ π‘₯ ∈ β„‚ )
104 98 103 ffvelcdmd ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( 𝐹 β€˜ π‘₯ ) ∈ β„‚ )
105 104 abscld ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ∈ ℝ )
106 8 ad2antrr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ βˆ€ π‘₯ ∈ β„‚ ( 𝑅 < ( abs β€˜ π‘₯ ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) < ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
107 102 eldifbd ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ Β¬ π‘₯ ∈ 𝐷 )
108 37 baib ⊒ ( π‘₯ ∈ β„‚ β†’ ( π‘₯ ∈ 𝐷 ↔ ( abs β€˜ π‘₯ ) ≀ 𝑅 ) )
109 103 108 syl ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( π‘₯ ∈ 𝐷 ↔ ( abs β€˜ π‘₯ ) ≀ 𝑅 ) )
110 107 109 mtbid ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ Β¬ ( abs β€˜ π‘₯ ) ≀ 𝑅 )
111 34 ad2antrr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ 𝑅 ∈ ℝ )
112 103 abscld ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( abs β€˜ π‘₯ ) ∈ ℝ )
113 111 112 ltnled ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( 𝑅 < ( abs β€˜ π‘₯ ) ↔ Β¬ ( abs β€˜ π‘₯ ) ≀ 𝑅 ) )
114 110 113 mpbird ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ 𝑅 < ( abs β€˜ π‘₯ ) )
115 rsp ⊒ ( βˆ€ π‘₯ ∈ β„‚ ( 𝑅 < ( abs β€˜ π‘₯ ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) < ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) β†’ ( π‘₯ ∈ β„‚ β†’ ( 𝑅 < ( abs β€˜ π‘₯ ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) < ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) ) )
116 106 103 114 115 syl3c ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) < ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
117 101 105 116 ltled ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
118 simplr ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ 𝑧 ∈ β„‚ )
119 98 118 ffvelcdmd ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( 𝐹 β€˜ 𝑧 ) ∈ β„‚ )
120 119 abscld ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ∈ ℝ )
121 letr ⊒ ( ( ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ∈ ℝ ∧ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ∈ ℝ ∧ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ∈ ℝ ) β†’ ( ( ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ∧ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
122 120 101 105 121 syl3anc ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( ( ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ∧ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
123 117 122 mpan2d ⊒ ( ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) ∧ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ) β†’ ( ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) β†’ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
124 123 ralrimdva ⊒ ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) β†’ ( ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ 0 ) ) β†’ βˆ€ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
125 97 124 syld ⊒ ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ βˆ€ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
126 125 ancld ⊒ ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ∧ βˆ€ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) ) )
127 ralunb ⊒ ( βˆ€ π‘₯ ∈ ( 𝐷 βˆͺ ( β„‚ βˆ– 𝐷 ) ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ↔ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ∧ βˆ€ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
128 undif2 ⊒ ( 𝐷 βˆͺ ( β„‚ βˆ– 𝐷 ) ) = ( 𝐷 βˆͺ β„‚ )
129 ssequn1 ⊒ ( 𝐷 βŠ† β„‚ ↔ ( 𝐷 βˆͺ β„‚ ) = β„‚ )
130 9 129 mpbi ⊒ ( 𝐷 βˆͺ β„‚ ) = β„‚
131 128 130 eqtri ⊒ ( 𝐷 βˆͺ ( β„‚ βˆ– 𝐷 ) ) = β„‚
132 131 raleqi ⊒ ( βˆ€ π‘₯ ∈ ( 𝐷 βˆͺ ( β„‚ βˆ– 𝐷 ) ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ↔ βˆ€ π‘₯ ∈ β„‚ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
133 127 132 bitr3i ⊒ ( ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ∧ βˆ€ π‘₯ ∈ ( β„‚ βˆ– 𝐷 ) ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) ↔ βˆ€ π‘₯ ∈ β„‚ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )
134 126 133 imbitrdi ⊒ ( ( πœ‘ ∧ 𝑧 ∈ β„‚ ) β†’ ( βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ βˆ€ π‘₯ ∈ β„‚ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
135 134 reximdva ⊒ ( πœ‘ β†’ ( βˆƒ 𝑧 ∈ β„‚ βˆ€ π‘₯ ∈ 𝐷 ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) β†’ βˆƒ 𝑧 ∈ β„‚ βˆ€ π‘₯ ∈ β„‚ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) ) )
136 92 135 mpd ⊒ ( πœ‘ β†’ βˆƒ 𝑧 ∈ β„‚ βˆ€ π‘₯ ∈ β„‚ ( abs β€˜ ( 𝐹 β€˜ 𝑧 ) ) ≀ ( abs β€˜ ( 𝐹 β€˜ π‘₯ ) ) )