Users' Mathboxes Mathbox for Asger C. Ipsen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  unbdqndv2lem2 Structured version   Visualization version   Unicode version

Theorem unbdqndv2lem2 32501
Description: Lemma for unbdqndv2 32502. (Contributed by Asger C. Ipsen, 12-May-2021.)
Hypotheses
Ref Expression
unbdqndv2lem2.g  |-  G  =  ( z  e.  ( X  \  { A } )  |->  ( ( ( F `  z
)  -  ( F `
 A ) )  /  ( z  -  A ) ) )
unbdqndv2lem2.w  |-  W  =  if ( ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) ,  U ,  V )
unbdqndv2lem2.x  |-  ( ph  ->  X  C_  RR )
unbdqndv2lem2.f  |-  ( ph  ->  F : X --> CC )
unbdqndv2lem2.a  |-  ( ph  ->  A  e.  X )
unbdqndv2lem2.b  |-  ( ph  ->  B  e.  RR+ )
unbdqndv2lem2.d  |-  ( ph  ->  D  e.  RR+ )
unbdqndv2lem2.u  |-  ( ph  ->  U  e.  X )
unbdqndv2lem2.v  |-  ( ph  ->  V  e.  X )
unbdqndv2lem2.1  |-  ( ph  ->  U  =/=  V )
unbdqndv2lem2.2  |-  ( ph  ->  U  <_  A )
unbdqndv2lem2.3  |-  ( ph  ->  A  <_  V )
unbdqndv2lem2.4  |-  ( ph  ->  ( V  -  U
)  <  D )
unbdqndv2lem2.5  |-  ( ph  ->  ( 2  x.  B
)  <_  ( ( abs `  ( ( F `
 V )  -  ( F `  U ) ) )  /  ( V  -  U )
) )
Assertion
Ref Expression
unbdqndv2lem2  |-  ( ph  ->  ( W  e.  ( X  \  { A } )  /\  (
( abs `  ( W  -  A )
)  <  D  /\  B  <_  ( abs `  ( G `  W )
) ) ) )
Distinct variable groups:    z, A    z, B    z, F    z, U    z, V    z, X    ph, z
Allowed substitution hints:    D( z)    G( z)    W( z)

Proof of Theorem unbdqndv2lem2
StepHypRef Expression
1 unbdqndv2lem2.w . . . . . 6  |-  W  =  if ( ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) ,  U ,  V )
21a1i 11 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  W  =  if (
( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) ,  U ,  V ) )
3 iftrue 4092 . . . . . 6  |-  ( ( B  x.  ( V  -  U ) )  <_  ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  ->  if (
( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) ,  U ,  V )  =  U )
43adantl 482 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  if ( ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) ,  U ,  V )  =  U )
52, 4eqtrd 2656 . . . 4  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  W  =  U )
6 unbdqndv2lem2.u . . . . . . 7  |-  ( ph  ->  U  e.  X )
76adantr 481 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  U  e.  X )
8 simplr 792 . . . . . . . . 9  |-  ( ( ( ph  /\  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  /\  U  =  A )  ->  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )
9 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( U  =  A  ->  ( F `  U )  =  ( F `  A ) )
109eqcomd 2628 . . . . . . . . . . . . . 14  |-  ( U  =  A  ->  ( F `  A )  =  ( F `  U ) )
1110oveq2d 6666 . . . . . . . . . . . . 13  |-  ( U  =  A  ->  (
( F `  U
)  -  ( F `
 A ) )  =  ( ( F `
 U )  -  ( F `  U ) ) )
1211fveq2d 6195 . . . . . . . . . . . 12  |-  ( U  =  A  ->  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) )  =  ( abs `  ( ( F `  U )  -  ( F `  U ) ) ) )
1312adantl 482 . . . . . . . . . . 11  |-  ( (
ph  /\  U  =  A )  ->  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) )  =  ( abs `  ( ( F `  U )  -  ( F `  U ) ) ) )
14 unbdqndv2lem2.f . . . . . . . . . . . . . . . 16  |-  ( ph  ->  F : X --> CC )
1514, 6ffvelrnd 6360 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( F `  U
)  e.  CC )
1615subidd 10380 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( F `  U )  -  ( F `  U )
)  =  0 )
1716fveq2d 6195 . . . . . . . . . . . . 13  |-  ( ph  ->  ( abs `  (
( F `  U
)  -  ( F `
 U ) ) )  =  ( abs `  0 ) )
1817adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  U  =  A )  ->  ( abs `  ( ( F `
 U )  -  ( F `  U ) ) )  =  ( abs `  0 ) )
19 abs0 14025 . . . . . . . . . . . . 13  |-  ( abs `  0 )  =  0
2019a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  U  =  A )  ->  ( abs `  0 )  =  0 )
2118, 20eqtrd 2656 . . . . . . . . . . 11  |-  ( (
ph  /\  U  =  A )  ->  ( abs `  ( ( F `
 U )  -  ( F `  U ) ) )  =  0 )
2213, 21eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  U  =  A )  ->  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) )  =  0 )
2322adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  /\  U  =  A )  ->  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) )  =  0 )
248, 23breqtrd 4679 . . . . . . . 8  |-  ( ( ( ph  /\  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  /\  U  =  A )  ->  ( B  x.  ( V  -  U ) )  <_ 
0 )
25 unbdqndv2lem2.b . . . . . . . . . . . . 13  |-  ( ph  ->  B  e.  RR+ )
2625rpred 11872 . . . . . . . . . . . 12  |-  ( ph  ->  B  e.  RR )
27 unbdqndv2lem2.x . . . . . . . . . . . . . 14  |-  ( ph  ->  X  C_  RR )
28 unbdqndv2lem2.v . . . . . . . . . . . . . 14  |-  ( ph  ->  V  e.  X )
2927, 28sseldd 3604 . . . . . . . . . . . . 13  |-  ( ph  ->  V  e.  RR )
3027, 6sseldd 3604 . . . . . . . . . . . . 13  |-  ( ph  ->  U  e.  RR )
3129, 30resubcld 10458 . . . . . . . . . . . 12  |-  ( ph  ->  ( V  -  U
)  e.  RR )
3225rpgt0d 11875 . . . . . . . . . . . 12  |-  ( ph  ->  0  <  B )
33 unbdqndv2lem2.a . . . . . . . . . . . . . . . 16  |-  ( ph  ->  A  e.  X )
3427, 33sseldd 3604 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  e.  RR )
35 unbdqndv2lem2.2 . . . . . . . . . . . . . . 15  |-  ( ph  ->  U  <_  A )
36 unbdqndv2lem2.3 . . . . . . . . . . . . . . 15  |-  ( ph  ->  A  <_  V )
3730, 34, 29, 35, 36letrd 10194 . . . . . . . . . . . . . 14  |-  ( ph  ->  U  <_  V )
38 unbdqndv2lem2.1 . . . . . . . . . . . . . . 15  |-  ( ph  ->  U  =/=  V )
3938necomd 2849 . . . . . . . . . . . . . 14  |-  ( ph  ->  V  =/=  U )
4030, 29, 37, 39leneltd 10191 . . . . . . . . . . . . 13  |-  ( ph  ->  U  <  V )
4130, 29posdifd 10614 . . . . . . . . . . . . 13  |-  ( ph  ->  ( U  <  V  <->  0  <  ( V  -  U ) ) )
4240, 41mpbid 222 . . . . . . . . . . . 12  |-  ( ph  ->  0  <  ( V  -  U ) )
4326, 31, 32, 42mulgt0d 10192 . . . . . . . . . . 11  |-  ( ph  ->  0  <  ( B  x.  ( V  -  U ) ) )
44 0red 10041 . . . . . . . . . . . 12  |-  ( ph  ->  0  e.  RR )
4526, 31remulcld 10070 . . . . . . . . . . . 12  |-  ( ph  ->  ( B  x.  ( V  -  U )
)  e.  RR )
4644, 45ltnled 10184 . . . . . . . . . . 11  |-  ( ph  ->  ( 0  <  ( B  x.  ( V  -  U ) )  <->  -.  ( B  x.  ( V  -  U ) )  <_ 
0 ) )
4743, 46mpbid 222 . . . . . . . . . 10  |-  ( ph  ->  -.  ( B  x.  ( V  -  U
) )  <_  0
)
4847adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  -.  ( B  x.  ( V  -  U )
)  <_  0 )
4948adantr 481 . . . . . . . 8  |-  ( ( ( ph  /\  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  /\  U  =  A )  ->  -.  ( B  x.  ( V  -  U )
)  <_  0 )
5024, 49pm2.65da 600 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  -.  U  =  A
)
5150neqned 2801 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  U  =/=  A )
527, 51jca 554 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( U  e.  X  /\  U  =/=  A
) )
53 eldifsn 4317 . . . . 5  |-  ( U  e.  ( X  \  { A } )  <->  ( U  e.  X  /\  U  =/= 
A ) )
5452, 53sylibr 224 . . . 4  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  U  e.  ( X  \  { A } ) )
555, 54eqeltrd 2701 . . 3  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  W  e.  ( X  \  { A } ) )
565oveq1d 6665 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( W  -  A
)  =  ( U  -  A ) )
5756fveq2d 6195 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  ( W  -  A )
)  =  ( abs `  ( U  -  A
) ) )
5830, 34, 35abssuble0d 14171 . . . . . . 7  |-  ( ph  ->  ( abs `  ( U  -  A )
)  =  ( A  -  U ) )
5958adantr 481 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  ( U  -  A )
)  =  ( A  -  U ) )
6057, 59eqtrd 2656 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  ( W  -  A )
)  =  ( A  -  U ) )
6134, 30resubcld 10458 . . . . . . 7  |-  ( ph  ->  ( A  -  U
)  e.  RR )
62 unbdqndv2lem2.d . . . . . . . 8  |-  ( ph  ->  D  e.  RR+ )
6362rpred 11872 . . . . . . 7  |-  ( ph  ->  D  e.  RR )
6434, 29, 30, 36lesub1dd 10643 . . . . . . 7  |-  ( ph  ->  ( A  -  U
)  <_  ( V  -  U ) )
65 unbdqndv2lem2.4 . . . . . . 7  |-  ( ph  ->  ( V  -  U
)  <  D )
6661, 31, 63, 64, 65lelttrd 10195 . . . . . 6  |-  ( ph  ->  ( A  -  U
)  <  D )
6766adantr 481 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( A  -  U
)  <  D )
6860, 67eqbrtrd 4675 . . . 4  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  ( W  -  A )
)  <  D )
6926, 61remulcld 10070 . . . . . . . 8  |-  ( ph  ->  ( B  x.  ( A  -  U )
)  e.  RR )
7069adantr 481 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( B  x.  ( A  -  U )
)  e.  RR )
7145adantr 481 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( B  x.  ( V  -  U )
)  e.  RR )
7214, 33ffvelrnd 6360 . . . . . . . . . 10  |-  ( ph  ->  ( F `  A
)  e.  CC )
7315, 72subcld 10392 . . . . . . . . 9  |-  ( ph  ->  ( ( F `  U )  -  ( F `  A )
)  e.  CC )
7473abscld 14175 . . . . . . . 8  |-  ( ph  ->  ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  e.  RR )
7574adantr 481 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  e.  RR )
7644, 26, 32ltled 10185 . . . . . . . . 9  |-  ( ph  ->  0  <_  B )
7761, 31, 26, 76, 64lemul2ad 10964 . . . . . . . 8  |-  ( ph  ->  ( B  x.  ( A  -  U )
)  <_  ( B  x.  ( V  -  U
) ) )
7877adantr 481 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( B  x.  ( A  -  U )
)  <_  ( B  x.  ( V  -  U
) ) )
79 simpr 477 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )
8070, 71, 75, 78, 79letrd 10194 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( B  x.  ( A  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )
8126adantr 481 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  B  e.  RR )
8261adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( A  -  U
)  e.  RR )
8335adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  U  <_  A )
8451necomd 2849 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  A  =/=  U )
8583, 84jca 554 . . . . . . . . . . 11  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( U  <_  A  /\  A  =/=  U
) )
8630, 34ltlend 10182 . . . . . . . . . . . 12  |-  ( ph  ->  ( U  <  A  <->  ( U  <_  A  /\  A  =/=  U ) ) )
8786adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( U  <  A  <->  ( U  <_  A  /\  A  =/=  U ) ) )
8885, 87mpbird 247 . . . . . . . . . 10  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  U  <  A )
8930, 34posdifd 10614 . . . . . . . . . . 11  |-  ( ph  ->  ( U  <  A  <->  0  <  ( A  -  U ) ) )
9089adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( U  <  A  <->  0  <  ( A  -  U ) ) )
9188, 90mpbid 222 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
0  <  ( A  -  U ) )
9282, 91jca 554 . . . . . . . 8  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( A  -  U )  e.  RR  /\  0  <  ( A  -  U ) ) )
93 elrp 11834 . . . . . . . 8  |-  ( ( A  -  U )  e.  RR+  <->  ( ( A  -  U )  e.  RR  /\  0  < 
( A  -  U
) ) )
9492, 93sylibr 224 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( A  -  U
)  e.  RR+ )
9581, 75, 94lemuldivd 11921 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( B  x.  ( A  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) )  <->  B  <_  ( ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  /  ( A  -  U ) ) ) )
9680, 95mpbid 222 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  B  <_  ( ( abs `  ( ( F `  U )  -  ( F `  A )
) )  /  ( A  -  U )
) )
975fveq2d 6195 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( G `  W
)  =  ( G `
 U ) )
98 unbdqndv2lem2.g . . . . . . . . . . 11  |-  G  =  ( z  e.  ( X  \  { A } )  |->  ( ( ( F `  z
)  -  ( F `
 A ) )  /  ( z  -  A ) ) )
9998a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  G  =  ( z  e.  ( X  \  { A } )  |->  ( ( ( F `  z
)  -  ( F `
 A ) )  /  ( z  -  A ) ) ) )
100 fveq2 6191 . . . . . . . . . . . . 13  |-  ( z  =  U  ->  ( F `  z )  =  ( F `  U ) )
101100oveq1d 6665 . . . . . . . . . . . 12  |-  ( z  =  U  ->  (
( F `  z
)  -  ( F `
 A ) )  =  ( ( F `
 U )  -  ( F `  A ) ) )
102 oveq1 6657 . . . . . . . . . . . 12  |-  ( z  =  U  ->  (
z  -  A )  =  ( U  -  A ) )
103101, 102oveq12d 6668 . . . . . . . . . . 11  |-  ( z  =  U  ->  (
( ( F `  z )  -  ( F `  A )
)  /  ( z  -  A ) )  =  ( ( ( F `  U )  -  ( F `  A ) )  / 
( U  -  A
) ) )
104103adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  /\  z  =  U )  ->  (
( ( F `  z )  -  ( F `  A )
)  /  ( z  -  A ) )  =  ( ( ( F `  U )  -  ( F `  A ) )  / 
( U  -  A
) ) )
105 ovexd 6680 . . . . . . . . . 10  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( ( F `
 U )  -  ( F `  A ) )  /  ( U  -  A ) )  e.  _V )
10699, 104, 54, 105fvmptd 6288 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( G `  U
)  =  ( ( ( F `  U
)  -  ( F `
 A ) )  /  ( U  -  A ) ) )
10797, 106eqtrd 2656 . . . . . . . 8  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( G `  W
)  =  ( ( ( F `  U
)  -  ( F `
 A ) )  /  ( U  -  A ) ) )
108107fveq2d 6195 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  ( G `  W )
)  =  ( abs `  ( ( ( F `
 U )  -  ( F `  A ) )  /  ( U  -  A ) ) ) )
10973adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( F `  U )  -  ( F `  A )
)  e.  CC )
11030recnd 10068 . . . . . . . . . . 11  |-  ( ph  ->  U  e.  CC )
11134recnd 10068 . . . . . . . . . . 11  |-  ( ph  ->  A  e.  CC )
112110, 111subcld 10392 . . . . . . . . . 10  |-  ( ph  ->  ( U  -  A
)  e.  CC )
113112adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( U  -  A
)  e.  CC )
114110adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  U  e.  CC )
115111adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  A  e.  CC )
116114, 115, 51subne0d 10401 . . . . . . . . 9  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( U  -  A
)  =/=  0 )
117109, 113, 116absdivd 14194 . . . . . . . 8  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  (
( ( F `  U )  -  ( F `  A )
)  /  ( U  -  A ) ) )  =  ( ( abs `  ( ( F `  U )  -  ( F `  A ) ) )  /  ( abs `  ( U  -  A )
) ) )
11859oveq2d 6666 . . . . . . . 8  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  /  ( abs `  ( U  -  A
) ) )  =  ( ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  /  ( A  -  U ) ) )
119117, 118eqtrd 2656 . . . . . . 7  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  (
( ( F `  U )  -  ( F `  A )
)  /  ( U  -  A ) ) )  =  ( ( abs `  ( ( F `  U )  -  ( F `  A ) ) )  /  ( A  -  U ) ) )
120108, 119eqtrd 2656 . . . . . 6  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( abs `  ( G `  W )
)  =  ( ( abs `  ( ( F `  U )  -  ( F `  A ) ) )  /  ( A  -  U ) ) )
121120eqcomd 2628 . . . . 5  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  /  ( A  -  U ) )  =  ( abs `  ( G `  W )
) )
12296, 121breqtrd 4679 . . . 4  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  ->  B  <_  ( abs `  ( G `  W )
) )
12368, 122jca 554 . . 3  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( ( abs `  ( W  -  A )
)  <  D  /\  B  <_  ( abs `  ( G `  W )
) ) )
12455, 123jca 554 . 2  |-  ( (
ph  /\  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( W  e.  ( X  \  { A } )  /\  (
( abs `  ( W  -  A )
)  <  D  /\  B  <_  ( abs `  ( G `  W )
) ) ) )
1251a1i 11 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  W  =  if ( ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) ,  U ,  V ) )
126 simpr 477 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  -.  ( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )
127126iffalsed 4097 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  if ( ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) ,  U ,  V )  =  V )
128125, 127eqtrd 2656 . . . 4  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  W  =  V )
12928adantr 481 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  V  e.  X )
13030, 29, 37abssubge0d 14170 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( abs `  ( V  -  U )
)  =  ( V  -  U ) )
131130oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( B  x.  ( abs `  ( V  -  U ) ) )  =  ( B  x.  ( V  -  U
) ) )
132131breq1d 4663 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) )  <->  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) ) )
133132adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  <->  ( B  x.  ( V  -  U
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) ) )
134126, 133mtbird 315 . . . . . . . . . . 11  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  -.  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )
13514, 28ffvelrnd 6360 . . . . . . . . . . . . 13  |-  ( ph  ->  ( F `  V
)  e.  CC )
13631recnd 10068 . . . . . . . . . . . . 13  |-  ( ph  ->  ( V  -  U
)  e.  CC )
13744, 42gtned 10172 . . . . . . . . . . . . 13  |-  ( ph  ->  ( V  -  U
)  =/=  0 )
138 unbdqndv2lem2.5 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( 2  x.  B
)  <_  ( ( abs `  ( ( F `
 V )  -  ( F `  U ) ) )  /  ( V  -  U )
) )
139135, 15subcld 10392 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( F `  V )  -  ( F `  U )
)  e.  CC )
140139, 136, 137absdivd 14194 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( abs `  (
( ( F `  V )  -  ( F `  U )
)  /  ( V  -  U ) ) )  =  ( ( abs `  ( ( F `  V )  -  ( F `  U ) ) )  /  ( abs `  ( V  -  U )
) ) )
141130oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( abs `  (
( F `  V
)  -  ( F `
 U ) ) )  /  ( abs `  ( V  -  U
) ) )  =  ( ( abs `  (
( F `  V
)  -  ( F `
 U ) ) )  /  ( V  -  U ) ) )
142140, 141eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( abs `  (
( ( F `  V )  -  ( F `  U )
)  /  ( V  -  U ) ) )  =  ( ( abs `  ( ( F `  V )  -  ( F `  U ) ) )  /  ( V  -  U ) ) )
143142eqcomd 2628 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( abs `  (
( F `  V
)  -  ( F `
 U ) ) )  /  ( V  -  U ) )  =  ( abs `  (
( ( F `  V )  -  ( F `  U )
)  /  ( V  -  U ) ) ) )
144138, 143breqtrd 4679 . . . . . . . . . . . . 13  |-  ( ph  ->  ( 2  x.  B
)  <_  ( abs `  ( ( ( F `
 V )  -  ( F `  U ) )  /  ( V  -  U ) ) ) )
145135, 15, 72, 136, 25, 137, 144unbdqndv2lem1 32500 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  ( ( F `  V )  -  ( F `  A )
) )  \/  ( B  x.  ( abs `  ( V  -  U
) ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) ) )
146145adantr 481 . . . . . . . . . . 11  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  \/  ( B  x.  ( abs `  ( V  -  U )
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) ) )
147 orel2 398 . . . . . . . . . . 11  |-  ( -.  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  U
)  -  ( F `
 A ) ) )  ->  ( (
( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  \/  ( B  x.  ( abs `  ( V  -  U )
) )  <_  ( abs `  ( ( F `
 U )  -  ( F `  A ) ) ) )  -> 
( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) ) ) )
148134, 146, 147sylc 65 . . . . . . . . . 10  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( B  x.  ( abs `  ( V  -  U
) ) )  <_ 
( abs `  (
( F `  V
)  -  ( F `
 A ) ) ) )
149148adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  -.  ( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )  /\  V  =  A )  ->  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) ) )
150 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( V  =  A  ->  ( F `  V )  =  ( F `  A ) )
151150oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( V  =  A  ->  (
( F `  V
)  -  ( F `
 A ) )  =  ( ( F `
 A )  -  ( F `  A ) ) )
152151adantl 482 . . . . . . . . . . . . 13  |-  ( (
ph  /\  V  =  A )  ->  (
( F `  V
)  -  ( F `
 A ) )  =  ( ( F `
 A )  -  ( F `  A ) ) )
15372subidd 10380 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( F `  A )  -  ( F `  A )
)  =  0 )
154153adantr 481 . . . . . . . . . . . . 13  |-  ( (
ph  /\  V  =  A )  ->  (
( F `  A
)  -  ( F `
 A ) )  =  0 )
155152, 154eqtrd 2656 . . . . . . . . . . . 12  |-  ( (
ph  /\  V  =  A )  ->  (
( F `  V
)  -  ( F `
 A ) )  =  0 )
156155fveq2d 6195 . . . . . . . . . . 11  |-  ( (
ph  /\  V  =  A )  ->  ( abs `  ( ( F `
 V )  -  ( F `  A ) ) )  =  ( abs `  0 ) )
15719a1i 11 . . . . . . . . . . 11  |-  ( (
ph  /\  V  =  A )  ->  ( abs `  0 )  =  0 )
158156, 157eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  V  =  A )  ->  ( abs `  ( ( F `
 V )  -  ( F `  A ) ) )  =  0 )
159158adantlr 751 . . . . . . . . 9  |-  ( ( ( ph  /\  -.  ( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )  /\  V  =  A )  ->  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  =  0 )
160149, 159breqtrd 4679 . . . . . . . 8  |-  ( ( ( ph  /\  -.  ( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )  /\  V  =  A )  ->  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  0 )
161131breq1d 4663 . . . . . . . . . . 11  |-  ( ph  ->  ( ( B  x.  ( abs `  ( V  -  U ) ) )  <_  0  <->  ( B  x.  ( V  -  U
) )  <_  0
) )
16247, 161mtbird 315 . . . . . . . . . 10  |-  ( ph  ->  -.  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  0 )
163162adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  -.  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  0 )
164163adantr 481 . . . . . . . 8  |-  ( ( ( ph  /\  -.  ( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )  /\  V  =  A )  ->  -.  ( B  x.  ( abs `  ( V  -  U ) ) )  <_  0 )
165160, 164pm2.65da 600 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  -.  V  =  A )
166165neqned 2801 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  V  =/=  A )
167129, 166jca 554 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( V  e.  X  /\  V  =/=  A ) )
168 eldifsn 4317 . . . . 5  |-  ( V  e.  ( X  \  { A } )  <->  ( V  e.  X  /\  V  =/= 
A ) )
169167, 168sylibr 224 . . . 4  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  V  e.  ( X  \  { A } ) )
170128, 169eqeltrd 2701 . . 3  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  W  e.  ( X  \  { A } ) )
171128oveq1d 6665 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( W  -  A )  =  ( V  -  A ) )
172171fveq2d 6195 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( W  -  A ) )  =  ( abs `  ( V  -  A )
) )
17334, 29, 36abssubge0d 14170 . . . . . . 7  |-  ( ph  ->  ( abs `  ( V  -  A )
)  =  ( V  -  A ) )
174173adantr 481 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( V  -  A ) )  =  ( V  -  A
) )
175172, 174eqtrd 2656 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( W  -  A ) )  =  ( V  -  A
) )
17629, 34resubcld 10458 . . . . . . 7  |-  ( ph  ->  ( V  -  A
)  e.  RR )
17730, 34, 29, 35lesub2dd 10644 . . . . . . 7  |-  ( ph  ->  ( V  -  A
)  <_  ( V  -  U ) )
178176, 31, 63, 177, 65lelttrd 10195 . . . . . 6  |-  ( ph  ->  ( V  -  A
)  <  D )
179178adantr 481 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( V  -  A )  <  D )
180175, 179eqbrtrd 4675 . . . 4  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( W  -  A ) )  < 
D )
181173, 176eqeltrd 2701 . . . . . . . . 9  |-  ( ph  ->  ( abs `  ( V  -  A )
)  e.  RR )
18226, 181remulcld 10070 . . . . . . . 8  |-  ( ph  ->  ( B  x.  ( abs `  ( V  -  A ) ) )  e.  RR )
183182adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( B  x.  ( abs `  ( V  -  A
) ) )  e.  RR )
184131, 45eqeltrd 2701 . . . . . . . 8  |-  ( ph  ->  ( B  x.  ( abs `  ( V  -  U ) ) )  e.  RR )
185184adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( B  x.  ( abs `  ( V  -  U
) ) )  e.  RR )
186135, 72subcld 10392 . . . . . . . . 9  |-  ( ph  ->  ( ( F `  V )  -  ( F `  A )
)  e.  CC )
187186abscld 14175 . . . . . . . 8  |-  ( ph  ->  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  e.  RR )
188187adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( ( F `
 V )  -  ( F `  A ) ) )  e.  RR )
189130, 31eqeltrd 2701 . . . . . . . . 9  |-  ( ph  ->  ( abs `  ( V  -  U )
)  e.  RR )
190177, 173, 1303brtr4d 4685 . . . . . . . . 9  |-  ( ph  ->  ( abs `  ( V  -  A )
)  <_  ( abs `  ( V  -  U
) ) )
191181, 189, 26, 76, 190lemul2ad 10964 . . . . . . . 8  |-  ( ph  ->  ( B  x.  ( abs `  ( V  -  A ) ) )  <_  ( B  x.  ( abs `  ( V  -  U ) ) ) )
192191adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( B  x.  ( abs `  ( V  -  A
) ) )  <_ 
( B  x.  ( abs `  ( V  -  U ) ) ) )
193183, 185, 188, 192, 148letrd 10194 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( B  x.  ( abs `  ( V  -  A
) ) )  <_ 
( abs `  (
( F `  V
)  -  ( F `
 A ) ) ) )
19426adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  B  e.  RR )
195176recnd 10068 . . . . . . . . 9  |-  ( ph  ->  ( V  -  A
)  e.  CC )
196195adantr 481 . . . . . . . 8  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( V  -  A )  e.  CC )
19729recnd 10068 . . . . . . . . . 10  |-  ( ph  ->  V  e.  CC )
198197adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  V  e.  CC )
199111adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  A  e.  CC )
200198, 199, 166subne0d 10401 . . . . . . . 8  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( V  -  A )  =/=  0 )
201196, 200absrpcld 14187 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( V  -  A ) )  e.  RR+ )
202194, 188, 201lemuldivd 11921 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( B  x.  ( abs `  ( V  -  A ) ) )  <_  ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  <->  B  <_  ( ( abs `  ( ( F `  V )  -  ( F `  A ) ) )  /  ( abs `  ( V  -  A )
) ) ) )
203193, 202mpbid 222 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  B  <_  ( ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  /  ( abs `  ( V  -  A
) ) ) )
204128fveq2d 6195 . . . . . . . . 9  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( G `  W )  =  ( G `  V ) )
20598a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  G  =  ( z  e.  ( X  \  { A } )  |->  ( ( ( F `  z
)  -  ( F `
 A ) )  /  ( z  -  A ) ) ) )
206 fveq2 6191 . . . . . . . . . . . . 13  |-  ( z  =  V  ->  ( F `  z )  =  ( F `  V ) )
207206oveq1d 6665 . . . . . . . . . . . 12  |-  ( z  =  V  ->  (
( F `  z
)  -  ( F `
 A ) )  =  ( ( F `
 V )  -  ( F `  A ) ) )
208 oveq1 6657 . . . . . . . . . . . 12  |-  ( z  =  V  ->  (
z  -  A )  =  ( V  -  A ) )
209207, 208oveq12d 6668 . . . . . . . . . . 11  |-  ( z  =  V  ->  (
( ( F `  z )  -  ( F `  A )
)  /  ( z  -  A ) )  =  ( ( ( F `  V )  -  ( F `  A ) )  / 
( V  -  A
) ) )
210209adantl 482 . . . . . . . . . 10  |-  ( ( ( ph  /\  -.  ( B  x.  ( V  -  U )
)  <_  ( abs `  ( ( F `  U )  -  ( F `  A )
) ) )  /\  z  =  V )  ->  ( ( ( F `
 z )  -  ( F `  A ) )  /  ( z  -  A ) )  =  ( ( ( F `  V )  -  ( F `  A ) )  / 
( V  -  A
) ) )
211 ovexd 6680 . . . . . . . . . 10  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( ( F `  V )  -  ( F `  A )
)  /  ( V  -  A ) )  e.  _V )
212205, 210, 169, 211fvmptd 6288 . . . . . . . . 9  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( G `  V )  =  ( ( ( F `  V )  -  ( F `  A ) )  / 
( V  -  A
) ) )
213204, 212eqtrd 2656 . . . . . . . 8  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( G `  W )  =  ( ( ( F `  V )  -  ( F `  A ) )  / 
( V  -  A
) ) )
214213fveq2d 6195 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( G `  W ) )  =  ( abs `  (
( ( F `  V )  -  ( F `  A )
)  /  ( V  -  A ) ) ) )
215186adantr 481 . . . . . . . 8  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( F `  V
)  -  ( F `
 A ) )  e.  CC )
216215, 196, 200absdivd 14194 . . . . . . 7  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( ( ( F `  V )  -  ( F `  A ) )  / 
( V  -  A
) ) )  =  ( ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  /  ( abs `  ( V  -  A
) ) ) )
217214, 216eqtrd 2656 . . . . . 6  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( abs `  ( G `  W ) )  =  ( ( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  /  ( abs `  ( V  -  A
) ) ) )
218217eqcomd 2628 . . . . 5  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( abs `  (
( F `  V
)  -  ( F `
 A ) ) )  /  ( abs `  ( V  -  A
) ) )  =  ( abs `  ( G `  W )
) )
219203, 218breqtrd 4679 . . . 4  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  B  <_  ( abs `  ( G `  W )
) )
220180, 219jca 554 . . 3  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  (
( abs `  ( W  -  A )
)  <  D  /\  B  <_  ( abs `  ( G `  W )
) ) )
221170, 220jca 554 . 2  |-  ( (
ph  /\  -.  ( B  x.  ( V  -  U ) )  <_ 
( abs `  (
( F `  U
)  -  ( F `
 A ) ) ) )  ->  ( W  e.  ( X  \  { A } )  /\  ( ( abs `  ( W  -  A
) )  <  D  /\  B  <_  ( abs `  ( G `  W
) ) ) ) )
222124, 221pm2.61dan 832 1  |-  ( ph  ->  ( W  e.  ( X  \  { A } )  /\  (
( abs `  ( W  -  A )
)  <  D  /\  B  <_  ( abs `  ( G `  W )
) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    = wceq 1483    e. wcel 1990    =/= wne 2794   _Vcvv 3200    \ cdif 3571    C_ wss 3574   ifcif 4086   {csn 4177   class class class wbr 4653    |-> cmpt 4729   -->wf 5884   ` cfv 5888  (class class class)co 6650   CCcc 9934   RRcr 9935   0cc0 9936    x. cmul 9941    < clt 10074    <_ cle 10075    - cmin 10266    / cdiv 10684   2c2 11070   RR+crp 11832   abscabs 13974
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-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  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
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  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-iun 4522  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-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-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-om 7066  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-er 7742  df-en 7956  df-dom 7957  df-sdom 7958  df-sup 8348  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-n0 11293  df-z 11378  df-uz 11688  df-rp 11833  df-seq 12802  df-exp 12861  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976
This theorem is referenced by:  unbdqndv2  32502
  Copyright terms: Public domain W3C validator