Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  supxrgelem Structured version   Visualization version   Unicode version

Theorem supxrgelem 39553
Description: If an extended real number can be approximated from below by members of a set, then it is smaller or equal to the supremum of the set. (Contributed by Glauco Siliprandi, 17-Aug-2020.)
Hypotheses
Ref Expression
supxrgelem.xph  |-  F/ x ph
supxrgelem.a  |-  ( ph  ->  A  C_  RR* )
supxrgelem.b  |-  ( ph  ->  B  e.  RR* )
supxrgelem.y  |-  ( (
ph  /\  x  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e x ) )
Assertion
Ref Expression
supxrgelem  |-  ( ph  ->  B  <_  sup ( A ,  RR* ,  <  ) )
Distinct variable groups:    x, A, y    x, B, y    ph, y
Allowed substitution hint:    ph( x)

Proof of Theorem supxrgelem
StepHypRef Expression
1 supxrgelem.b . . . . 5  |-  ( ph  ->  B  e.  RR* )
2 pnfge 11964 . . . . 5  |-  ( B  e.  RR*  ->  B  <_ +oo )
31, 2syl 17 . . . 4  |-  ( ph  ->  B  <_ +oo )
43adantr 481 . . 3  |-  ( (
ph  /\  sup ( A ,  RR* ,  <  )  = +oo )  ->  B  <_ +oo )
5 id 22 . . . . 5  |-  ( sup ( A ,  RR* ,  <  )  = +oo  ->  sup ( A ,  RR* ,  <  )  = +oo )
65eqcomd 2628 . . . 4  |-  ( sup ( A ,  RR* ,  <  )  = +oo  -> +oo  =  sup ( A ,  RR* ,  <  ) )
76adantl 482 . . 3  |-  ( (
ph  /\  sup ( A ,  RR* ,  <  )  = +oo )  -> +oo  =  sup ( A ,  RR* ,  <  ) )
84, 7breqtrd 4679 . 2  |-  ( (
ph  /\  sup ( A ,  RR* ,  <  )  = +oo )  ->  B  <_  sup ( A ,  RR* ,  <  ) )
9 simpl 473 . . 3  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  ph )
10 1rp 11836 . . . . . . . 8  |-  1  e.  RR+
11 nfcv 2764 . . . . . . . . . 10  |-  F/_ x
1
12 supxrgelem.xph . . . . . . . . . . . 12  |-  F/ x ph
13 nfv 1843 . . . . . . . . . . . 12  |-  F/ x
1  e.  RR+
1412, 13nfan 1828 . . . . . . . . . . 11  |-  F/ x
( ph  /\  1  e.  RR+ )
15 nfv 1843 . . . . . . . . . . 11  |-  F/ x E. y  e.  A  B  <  ( y +e 1 )
1614, 15nfim 1825 . . . . . . . . . 10  |-  F/ x
( ( ph  /\  1  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e 1 ) )
17 eleq1 2689 . . . . . . . . . . . 12  |-  ( x  =  1  ->  (
x  e.  RR+  <->  1  e.  RR+ ) )
1817anbi2d 740 . . . . . . . . . . 11  |-  ( x  =  1  ->  (
( ph  /\  x  e.  RR+ )  <->  ( ph  /\  1  e.  RR+ )
) )
19 oveq2 6658 . . . . . . . . . . . . 13  |-  ( x  =  1  ->  (
y +e x )  =  ( y +e 1 ) )
2019breq2d 4665 . . . . . . . . . . . 12  |-  ( x  =  1  ->  ( B  <  ( y +e x )  <->  B  <  ( y +e 1 ) ) )
2120rexbidv 3052 . . . . . . . . . . 11  |-  ( x  =  1  ->  ( E. y  e.  A  B  <  ( y +e x )  <->  E. y  e.  A  B  <  ( y +e 1 ) ) )
2218, 21imbi12d 334 . . . . . . . . . 10  |-  ( x  =  1  ->  (
( ( ph  /\  x  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e x ) )  <-> 
( ( ph  /\  1  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e 1 ) ) ) )
23 supxrgelem.y . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e x ) )
2411, 16, 22, 23vtoclgf 3264 . . . . . . . . 9  |-  ( 1  e.  RR+  ->  ( (
ph  /\  1  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e 1 ) ) )
2510, 24ax-mp 5 . . . . . . . 8  |-  ( (
ph  /\  1  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e 1 ) )
2610, 25mpan2 707 . . . . . . 7  |-  ( ph  ->  E. y  e.  A  B  <  ( y +e 1 ) )
2726adantr 481 . . . . . 6  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  E. y  e.  A  B  <  ( y +e 1 ) )
28 mnfxr 10096 . . . . . . . . . . 11  |- -oo  e.  RR*
2928a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  -> -oo  e.  RR* )
30 supxrgelem.a . . . . . . . . . . . 12  |-  ( ph  ->  A  C_  RR* )
3130sselda 3603 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  A )  ->  y  e.  RR* )
32313adant3 1081 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  y  e.  RR* )
33 supxrcl 12145 . . . . . . . . . . . 12  |-  ( A 
C_  RR*  ->  sup ( A ,  RR* ,  <  )  e.  RR* )
3430, 33syl 17 . . . . . . . . . . 11  |-  ( ph  ->  sup ( A ,  RR* ,  <  )  e. 
RR* )
35343ad2ant1 1082 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  sup ( A ,  RR* ,  <  )  e.  RR* )
36 simpl3 1066 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  y  e.  A  /\  B  < 
( y +e 1 ) )  /\  -. -oo  <  y )  ->  B  <  ( y +e 1 ) )
37 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  ->  -. -oo  <  y )
3831adantr 481 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
y  e.  RR* )
39 ngtmnft 11997 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  RR*  ->  ( y  = -oo  <->  -. -oo  <  y ) )
4038, 39syl 17 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
( y  = -oo  <->  -. -oo 
<  y ) )
4137, 40mpbird 247 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
y  = -oo )
4241oveq1d 6665 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
( y +e 1 )  =  ( -oo +e 1 ) )
43 1re 10039 . . . . . . . . . . . . . . . . 17  |-  1  e.  RR
4443rexri 10097 . . . . . . . . . . . . . . . 16  |-  1  e.  RR*
4544a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
1  e.  RR* )
46 renepnf 10087 . . . . . . . . . . . . . . . . 17  |-  ( 1  e.  RR  ->  1  =/= +oo )
4743, 46ax-mp 5 . . . . . . . . . . . . . . . 16  |-  1  =/= +oo
4847a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
1  =/= +oo )
49 xaddmnf2 12060 . . . . . . . . . . . . . . 15  |-  ( ( 1  e.  RR*  /\  1  =/= +oo )  ->  ( -oo +e 1 )  = -oo )
5045, 48, 49syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
( -oo +e 1 )  = -oo )
5142, 50eqtrd 2656 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  y  e.  A )  /\  -. -oo 
<  y )  -> 
( y +e 1 )  = -oo )
52513adantl3 1219 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  y  e.  A  /\  B  < 
( y +e 1 ) )  /\  -. -oo  <  y )  ->  ( y +e 1 )  = -oo )
5336, 52breqtrd 4679 . . . . . . . . . . 11  |-  ( ( ( ph  /\  y  e.  A  /\  B  < 
( y +e 1 ) )  /\  -. -oo  <  y )  ->  B  < -oo )
54 nltmnf 11963 . . . . . . . . . . . . . 14  |-  ( B  e.  RR*  ->  -.  B  < -oo )
551, 54syl 17 . . . . . . . . . . . . 13  |-  ( ph  ->  -.  B  < -oo )
5655adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  -. -oo  <  y )  ->  -.  B  < -oo )
57563ad2antl1 1223 . . . . . . . . . . 11  |-  ( ( ( ph  /\  y  e.  A  /\  B  < 
( y +e 1 ) )  /\  -. -oo  <  y )  ->  -.  B  < -oo )
5853, 57condan 835 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  -> -oo  <  y )
5930adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  A )  ->  A  C_ 
RR* )
60 simpr 477 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  A )  ->  y  e.  A )
61 supxrub 12154 . . . . . . . . . . . 12  |-  ( ( A  C_  RR*  /\  y  e.  A )  ->  y  <_  sup ( A ,  RR* ,  <  ) )
6259, 60, 61syl2anc 693 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  A )  ->  y  <_  sup ( A ,  RR* ,  <  ) )
63623adant3 1081 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  y  <_  sup ( A ,  RR* ,  <  ) )
6429, 32, 35, 58, 63xrltletrd 11992 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  -> -oo  <  sup ( A ,  RR* ,  <  ) )
65643exp 1264 . . . . . . . 8  |-  ( ph  ->  ( y  e.  A  ->  ( B  <  (
y +e 1 )  -> -oo  <  sup ( A ,  RR* ,  <  ) ) ) )
6665adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  -> 
( y  e.  A  ->  ( B  <  (
y +e 1 )  -> -oo  <  sup ( A ,  RR* ,  <  ) ) ) )
6766rexlimdv 3030 . . . . . 6  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  -> 
( E. y  e.  A  B  <  (
y +e 1 )  -> -oo  <  sup ( A ,  RR* ,  <  ) ) )
6827, 67mpd 15 . . . . 5  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  -> -oo  <  sup ( A ,  RR* ,  <  ) )
69 simpr 477 . . . . . . 7  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  -.  sup ( A ,  RR* ,  <  )  = +oo )
70 nltpnft 11995 . . . . . . . . 9  |-  ( sup ( A ,  RR* ,  <  )  e.  RR*  ->  ( sup ( A ,  RR* ,  <  )  = +oo  <->  -.  sup ( A ,  RR* ,  <  )  < +oo ) )
7134, 70syl 17 . . . . . . . 8  |-  ( ph  ->  ( sup ( A ,  RR* ,  <  )  = +oo  <->  -.  sup ( A ,  RR* ,  <  )  < +oo ) )
7271adantr 481 . . . . . . 7  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  -> 
( sup ( A ,  RR* ,  <  )  = +oo  <->  -.  sup ( A ,  RR* ,  <  )  < +oo ) )
7369, 72mtbid 314 . . . . . 6  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  -.  -.  sup ( A ,  RR* ,  <  )  < +oo )
7473notnotrd 128 . . . . 5  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  sup ( A ,  RR* ,  <  )  < +oo )
7568, 74jca 554 . . . 4  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  -> 
( -oo  <  sup ( A ,  RR* ,  <  )  /\  sup ( A ,  RR* ,  <  )  < +oo ) )
7634adantr 481 . . . . 5  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  sup ( A ,  RR* ,  <  )  e.  RR* )
77 xrrebnd 11999 . . . . 5  |-  ( sup ( A ,  RR* ,  <  )  e.  RR*  ->  ( sup ( A ,  RR* ,  <  )  e.  RR  <->  ( -oo  <  sup ( A ,  RR* ,  <  )  /\  sup ( A ,  RR* ,  <  )  < +oo ) ) )
7876, 77syl 17 . . . 4  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  -> 
( sup ( A ,  RR* ,  <  )  e.  RR  <->  ( -oo  <  sup ( A ,  RR* ,  <  )  /\  sup ( A ,  RR* ,  <  )  < +oo ) ) )
7975, 78mpbird 247 . . 3  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  sup ( A ,  RR* ,  <  )  e.  RR )
80 simpl 473 . . . . 5  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR ) )
81 simpr 477 . . . . . 6  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  -.  B  <_  sup ( A ,  RR* ,  <  ) )
8234adantr 481 . . . . . . . 8  |-  ( (
ph  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  sup ( A ,  RR* ,  <  )  e. 
RR* )
831adantr 481 . . . . . . . 8  |-  ( (
ph  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  B  e.  RR* )
84 xrltnle 10105 . . . . . . . 8  |-  ( ( sup ( A ,  RR* ,  <  )  e. 
RR*  /\  B  e.  RR* )  ->  ( sup ( A ,  RR* ,  <  )  <  B  <->  -.  B  <_  sup ( A ,  RR* ,  <  ) ) )
8582, 83, 84syl2anc 693 . . . . . . 7  |-  ( (
ph  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  ( sup ( A ,  RR* ,  <  )  <  B  <->  -.  B  <_  sup ( A ,  RR* ,  <  ) ) )
8685adantlr 751 . . . . . 6  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  ( sup ( A ,  RR* ,  <  )  <  B  <->  -.  B  <_  sup ( A ,  RR* ,  <  ) ) )
8781, 86mpbird 247 . . . . 5  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  sup ( A ,  RR* ,  <  )  <  B )
88 simpll 790 . . . . . . 7  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ph )
8928a1i 11 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  -> -oo  e.  RR* )
9088, 34syl 17 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  sup ( A ,  RR* ,  <  )  e.  RR* )
9188, 1syl 17 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  B  e.  RR* )
92 mnfle 11969 . . . . . . . . . . . . . 14  |-  ( sup ( A ,  RR* ,  <  )  e.  RR*  -> -oo  <_  sup ( A ,  RR* ,  <  ) )
9334, 92syl 17 . . . . . . . . . . . . 13  |-  ( ph  -> -oo  <_  sup ( A ,  RR* ,  <  ) )
9493ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  -> -oo  <_  sup ( A ,  RR* ,  <  ) )
95 simpr 477 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  sup ( A ,  RR* ,  <  )  <  B )
9689, 90, 91, 94, 95xrlelttrd 11991 . . . . . . . . . . 11  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  -> -oo  <  B
)
97 id 22 . . . . . . . . . . . . . 14  |-  ( ph  ->  ph )
9810a1i 11 . . . . . . . . . . . . . 14  |-  ( ph  ->  1  e.  RR+ )
9997, 98, 25syl2anc 693 . . . . . . . . . . . . 13  |-  ( ph  ->  E. y  e.  A  B  <  ( y +e 1 ) )
10099ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  E. y  e.  A  B  <  ( y +e 1 ) )
10113ad2ant1 1082 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  B  e.  RR* )
10244a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  1  e.  RR* )
10332, 102jca 554 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  (
y  e.  RR*  /\  1  e.  RR* ) )
104 xaddcl 12070 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  RR*  /\  1  e.  RR* )  ->  (
y +e 1 )  e.  RR* )
105103, 104syl 17 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  (
y +e 1 )  e.  RR* )
106 pnfxr 10092 . . . . . . . . . . . . . . . . 17  |- +oo  e.  RR*
107106a1i 11 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  -> +oo  e.  RR* )
108 simp3 1063 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  B  <  ( y +e 1 ) )
10931, 44, 104sylancl 694 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  A )  ->  (
y +e 1 )  e.  RR* )
110 pnfge 11964 . . . . . . . . . . . . . . . . . 18  |-  ( ( y +e 1 )  e.  RR*  ->  ( y +e 1 )  <_ +oo )
111109, 110syl 17 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  A )  ->  (
y +e 1 )  <_ +oo )
1121113adant3 1081 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  (
y +e 1 )  <_ +oo )
113101, 105, 107, 108, 112xrltletrd 11992 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  A  /\  B  <  (
y +e 1 ) )  ->  B  < +oo )
1141133exp 1264 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( y  e.  A  ->  ( B  <  (
y +e 1 )  ->  B  < +oo ) ) )
115114rexlimdv 3030 . . . . . . . . . . . . 13  |-  ( ph  ->  ( E. y  e.  A  B  <  (
y +e 1 )  ->  B  < +oo ) )
11688, 115syl 17 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( E. y  e.  A  B  <  ( y +e 1 )  ->  B  < +oo ) )
117100, 116mpd 15 . . . . . . . . . . 11  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  B  < +oo )
11896, 117jca 554 . . . . . . . . . 10  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( -oo  <  B  /\  B  < +oo ) )
119 xrrebnd 11999 . . . . . . . . . . 11  |-  ( B  e.  RR*  ->  ( B  e.  RR  <->  ( -oo  <  B  /\  B  < +oo ) ) )
12091, 119syl 17 . . . . . . . . . 10  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  e.  RR  <->  ( -oo  <  B  /\  B  < +oo ) ) )
121118, 120mpbird 247 . . . . . . . . 9  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  B  e.  RR )
122 simpr 477 . . . . . . . . . 10  |-  ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  ->  sup ( A ,  RR* ,  <  )  e.  RR )
123122adantr 481 . . . . . . . . 9  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  sup ( A ,  RR* ,  <  )  e.  RR )
124121, 123resubcld 10458 . . . . . . . 8  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR )
12526, 115mpd 15 . . . . . . . . . . . . 13  |-  ( ph  ->  B  < +oo )
126125ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  B  < +oo )
12796, 126jca 554 . . . . . . . . . . 11  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( -oo  <  B  /\  B  < +oo ) )
128127, 120mpbird 247 . . . . . . . . . 10  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  B  e.  RR )
129123, 128posdifd 10614 . . . . . . . . 9  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( sup ( A ,  RR* ,  <  )  <  B  <->  0  <  ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
13095, 129mpbid 222 . . . . . . . 8  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  0  <  ( B  -  sup ( A ,  RR* ,  <  ) ) )
131124, 130elrpd 11869 . . . . . . 7  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )
132 ovex 6678 . . . . . . . 8  |-  ( B  -  sup ( A ,  RR* ,  <  )
)  e.  _V
133 nfcv 2764 . . . . . . . . 9  |-  F/_ x
( B  -  sup ( A ,  RR* ,  <  ) )
134 nfv 1843 . . . . . . . . . . 11  |-  F/ x
( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+
13512, 134nfan 1828 . . . . . . . . . 10  |-  F/ x
( ph  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )
136 nfv 1843 . . . . . . . . . 10  |-  F/ x E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )
137135, 136nfim 1825 . . . . . . . . 9  |-  F/ x
( ( ph  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
138 eleq1 2689 . . . . . . . . . . 11  |-  ( x  =  ( B  -  sup ( A ,  RR* ,  <  ) )  -> 
( x  e.  RR+  <->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )
)
139138anbi2d 740 . . . . . . . . . 10  |-  ( x  =  ( B  -  sup ( A ,  RR* ,  <  ) )  -> 
( ( ph  /\  x  e.  RR+ )  <->  ( ph  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )
) )
140 oveq2 6658 . . . . . . . . . . . 12  |-  ( x  =  ( B  -  sup ( A ,  RR* ,  <  ) )  -> 
( y +e
x )  =  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
141140breq2d 4665 . . . . . . . . . . 11  |-  ( x  =  ( B  -  sup ( A ,  RR* ,  <  ) )  -> 
( B  <  (
y +e x )  <->  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) ) )
142141rexbidv 3052 . . . . . . . . . 10  |-  ( x  =  ( B  -  sup ( A ,  RR* ,  <  ) )  -> 
( E. y  e.  A  B  <  (
y +e x )  <->  E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) ) )
143139, 142imbi12d 334 . . . . . . . . 9  |-  ( x  =  ( B  -  sup ( A ,  RR* ,  <  ) )  -> 
( ( ( ph  /\  x  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e x ) )  <-> 
( ( ph  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) ) ) )
144133, 137, 143, 23vtoclgf 3264 . . . . . . . 8  |-  ( ( B  -  sup ( A ,  RR* ,  <  ) )  e.  _V  ->  ( ( ph  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) ) )
145132, 144ax-mp 5 . . . . . . 7  |-  ( (
ph  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR+ )  ->  E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
14688, 131, 145syl2anc 693 . . . . . 6  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  E. y  e.  A  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
147 ltpnf 11954 . . . . . . . . . . . . 13  |-  ( sup ( A ,  RR* ,  <  )  e.  RR  ->  sup ( A ,  RR* ,  <  )  < +oo )
148147adantr 481 . . . . . . . . . . . 12  |-  ( ( sup ( A ,  RR* ,  <  )  e.  RR  /\  y  = +oo )  ->  sup ( A ,  RR* ,  <  )  < +oo )
149 id 22 . . . . . . . . . . . . . 14  |-  ( y  = +oo  ->  y  = +oo )
150149eqcomd 2628 . . . . . . . . . . . . 13  |-  ( y  = +oo  -> +oo  =  y )
151150adantl 482 . . . . . . . . . . . 12  |-  ( ( sup ( A ,  RR* ,  <  )  e.  RR  /\  y  = +oo )  -> +oo  =  y )
152148, 151breqtrd 4679 . . . . . . . . . . 11  |-  ( ( sup ( A ,  RR* ,  <  )  e.  RR  /\  y  = +oo )  ->  sup ( A ,  RR* ,  <  )  <  y )
153152adantll 750 . . . . . . . . . 10  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  y  = +oo )  ->  sup ( A ,  RR* ,  <  )  < 
y )
154153ad5ant15 1303 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = +oo )  ->  sup ( A ,  RR* ,  <  )  < 
y )
155 simplll 798 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B ) )
156 simpl 473 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -. -oo  <  y )  ->  ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) ) )
15788, 41sylanl1 682 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  A )  /\  -. -oo  <  y
)  ->  y  = -oo )
158157adantlr 751 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -. -oo  <  y )  ->  y  = -oo )
159 simplr 792 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )
160 oveq1 6657 . . . . . . . . . . . . . . . . . 18  |-  ( y  = -oo  ->  (
y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  =  ( -oo +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
161160adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  =  ( -oo +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
162128, 123resubcld 10458 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR )
163162rexrd 10089 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR* )
164163ad3antrrr 766 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR* )
165 renepnf 10087 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  =/= +oo )
166124, 165syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  =/= +oo )
167166ad3antrrr 766 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  =/= +oo )
168 xaddmnf2 12060 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR*  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  =/= +oo )  ->  ( -oo +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  = -oo )
169164, 167, 168syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  ( -oo +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  = -oo )
170161, 169eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  = -oo )
171159, 170breqtrd 4679 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  y  = -oo )  ->  B  < -oo )
172156, 158, 171syl2anc 693 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -. -oo  <  y )  ->  B  < -oo )
17355ad5antr 770 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -. -oo  <  y )  ->  -.  B  < -oo )
174172, 173condan 835 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  A )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> -oo  <  y )
175174adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  -> -oo  <  y )
176 simp3 1063 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  -.  y  = +oo )  ->  -.  y  = +oo )
177313adant3 1081 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  A  /\  -.  y  = +oo )  ->  y  e.  RR* )
178 nltpnft 11995 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  RR*  ->  ( y  = +oo  <->  -.  y  < +oo ) )
179177, 178syl 17 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  A  /\  -.  y  = +oo )  ->  (
y  = +oo  <->  -.  y  < +oo ) )
180176, 179mtbid 314 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  A  /\  -.  y  = +oo )  ->  -.  -.  y  < +oo )
181180notnotrd 128 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  A  /\  -.  y  = +oo )  ->  y  < +oo )
1821813adant1r 1319 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  y  e.  A  /\  -.  y  = +oo )  ->  y  < +oo )
183182ad5ant135 1314 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  y  < +oo )
184175, 183jca 554 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  ( -oo  <  y  /\  y  < +oo ) )
18531adantlr 751 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  y  e.  A )  ->  y  e.  RR* )
186185ad5ant13 1301 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  y  e.  RR* )
187 xrrebnd 11999 . . . . . . . . . . . 12  |-  ( y  e.  RR*  ->  ( y  e.  RR  <->  ( -oo  <  y  /\  y  < +oo ) ) )
188186, 187syl 17 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  ( y  e.  RR  <->  ( -oo  <  y  /\  y  < +oo ) ) )
189184, 188mpbird 247 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  y  e.  RR )
190 simplr 792 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  B  <  (
y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
191121ad2antrr 762 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  ->  B  e.  RR )
192 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  y  e.  RR )
193124adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR )
194 rexadd 12063 . . . . . . . . . . . . . . . 16  |-  ( ( y  e.  RR  /\  ( B  -  sup ( A ,  RR* ,  <  ) )  e.  RR )  ->  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  =  ( y  +  ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
195192, 193, 194syl2anc 693 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  =  ( y  +  ( B  -  sup ( A ,  RR* ,  <  )
) ) )
196192, 193readdcld 10069 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
y  +  ( B  -  sup ( A ,  RR* ,  <  )
) )  e.  RR )
197195, 196eqeltrd 2701 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  e.  RR )
198197adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  e.  RR )
199 simpr 477 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  ->  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) ) )
200191, 198, 191, 199ltsub1dd 10639 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
( B  -  B
)  <  ( (
y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  -  B
) )
201121recnd 10068 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  B  e.  CC )
202201subidd 10380 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( B  -  B )  =  0 )
203202ad2antrr 762 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
( B  -  B
)  =  0 )
204192recnd 10068 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  y  e.  CC )
205201adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  B  e.  CC )
206122recnd 10068 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  ->  sup ( A ,  RR* ,  <  )  e.  CC )
207206ad2antrr 762 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  sup ( A ,  RR* ,  <  )  e.  CC )
208204, 205, 207addsub12d 10415 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
y  +  ( B  -  sup ( A ,  RR* ,  <  )
) )  =  ( B  +  ( y  -  sup ( A ,  RR* ,  <  )
) ) )
209195, 208eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  =  ( B  +  ( y  -  sup ( A ,  RR* ,  <  )
) ) )
210209oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  -  B
)  =  ( ( B  +  ( y  -  sup ( A ,  RR* ,  <  )
) )  -  B
) )
211204, 207subcld 10392 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
y  -  sup ( A ,  RR* ,  <  ) )  e.  CC )
212205, 211pncan2d 10394 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
( B  +  ( y  -  sup ( A ,  RR* ,  <  ) ) )  -  B
)  =  ( y  -  sup ( A ,  RR* ,  <  )
) )
213210, 212eqtrd 2656 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  ->  (
( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  -  B
)  =  ( y  -  sup ( A ,  RR* ,  <  )
) )
214213adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
( ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  -  B )  =  ( y  -  sup ( A ,  RR* ,  <  ) ) )
215203, 214breq12d 4666 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
( ( B  -  B )  <  (
( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  -  B
)  <->  0  <  (
y  -  sup ( A ,  RR* ,  <  ) ) ) )
216200, 215mpbid 222 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
0  <  ( y  -  sup ( A ,  RR* ,  <  ) ) )
217123ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  ->  sup ( A ,  RR* ,  <  )  e.  RR )
218 simplr 792 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
y  e.  RR )
219217, 218posdifd 10614 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  -> 
( sup ( A ,  RR* ,  <  )  <  y  <->  0  <  (
y  -  sup ( A ,  RR* ,  <  ) ) ) )
220216, 219mpbird 247 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  RR )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  ->  sup ( A ,  RR* ,  <  )  <  y
)
221155, 189, 190, 220syl21anc 1325 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  /\  y  e.  A )  /\  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) ) )  /\  -.  y  = +oo )  ->  sup ( A ,  RR* ,  <  )  < 
y )
222154, 221pm2.61dan 832 . . . . . . . 8  |-  ( ( ( ( ( ph  /\ 
sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  A )  /\  B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  )
) ) )  ->  sup ( A ,  RR* ,  <  )  <  y
)
223222ex 450 . . . . . . 7  |-  ( ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B )  /\  y  e.  A )  ->  ( B  <  ( y +e ( B  -  sup ( A ,  RR* ,  <  ) ) )  ->  sup ( A ,  RR* ,  <  )  < 
y ) )
224223reximdva 3017 . . . . . 6  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  ( E. y  e.  A  B  <  ( y +e
( B  -  sup ( A ,  RR* ,  <  ) ) )  ->  E. y  e.  A  sup ( A ,  RR* ,  <  )  <  y ) )
225146, 224mpd 15 . . . . 5  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  sup ( A ,  RR* ,  <  )  <  B
)  ->  E. y  e.  A  sup ( A ,  RR* ,  <  )  <  y )
22680, 87, 225syl2anc 693 . . . 4  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  E. y  e.  A  sup ( A ,  RR* ,  <  )  <  y )
22759, 33syl 17 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  A )  ->  sup ( A ,  RR* ,  <  )  e.  RR* )
22831, 227xrlenltd 10104 . . . . . . . 8  |-  ( (
ph  /\  y  e.  A )  ->  (
y  <_  sup ( A ,  RR* ,  <  )  <->  -.  sup ( A ,  RR* ,  <  )  < 
y ) )
22962, 228mpbid 222 . . . . . . 7  |-  ( (
ph  /\  y  e.  A )  ->  -.  sup ( A ,  RR* ,  <  )  <  y
)
230229ralrimiva 2966 . . . . . 6  |-  ( ph  ->  A. y  e.  A  -.  sup ( A ,  RR* ,  <  )  < 
y )
231 ralnex 2992 . . . . . 6  |-  ( A. y  e.  A  -.  sup ( A ,  RR* ,  <  )  <  y  <->  -. 
E. y  e.  A  sup ( A ,  RR* ,  <  )  <  y
)
232230, 231sylib 208 . . . . 5  |-  ( ph  ->  -.  E. y  e.  A  sup ( A ,  RR* ,  <  )  <  y )
233232ad2antrr 762 . . . 4  |-  ( ( ( ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  /\  -.  B  <_  sup ( A ,  RR* ,  <  ) )  ->  -.  E. y  e.  A  sup ( A ,  RR* ,  <  )  <  y )
234226, 233condan 835 . . 3  |-  ( (
ph  /\  sup ( A ,  RR* ,  <  )  e.  RR )  ->  B  <_  sup ( A ,  RR* ,  <  ) )
2359, 79, 234syl2anc 693 . 2  |-  ( (
ph  /\  -.  sup ( A ,  RR* ,  <  )  = +oo )  ->  B  <_  sup ( A ,  RR* ,  <  ) )
2368, 235pm2.61dan 832 1  |-  ( ph  ->  B  <_  sup ( A ,  RR* ,  <  ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483   F/wnf 1708    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   _Vcvv 3200    C_ wss 3574   class class class wbr 4653  (class class class)co 6650   supcsup 8346   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939   +oocpnf 10071   -oocmnf 10072   RR*cxr 10073    < clt 10074    <_ cle 10075    - cmin 10266   RR+crp 11832   +ecxad 11944
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-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-po 5035  df-so 5036  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-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-1st 7168  df-2nd 7169  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-rp 11833  df-xadd 11947
This theorem is referenced by:  supxrge  39554
  Copyright terms: Public domain W3C validator