Metamath Proof Explorer


Theorem supxrunb3

Description: The supremum of an unbounded-above set of extended reals is plus infinity. (Contributed by Glauco Siliprandi, 23-Oct-2021)

Ref Expression
Assertion supxrunb3 A * x y A x y sup A * < = +∞

Proof

Step Hyp Ref Expression
1 peano2re w w + 1
2 1 adantl x y A x y w w + 1
3 simpl x y A x y w x y A x y
4 breq1 x = w + 1 x y w + 1 y
5 4 rexbidv x = w + 1 y A x y y A w + 1 y
6 5 rspcva w + 1 x y A x y y A w + 1 y
7 2 3 6 syl2anc x y A x y w y A w + 1 y
8 7 adantll A * x y A x y w y A w + 1 y
9 nfv y A *
10 nfcv _ y
11 nfre1 y y A x y
12 10 11 nfralw y x y A x y
13 9 12 nfan y A * x y A x y
14 nfv y w
15 13 14 nfan y A * x y A x y w
16 simp1r A * w y A w + 1 y w
17 rexr w w *
18 16 17 syl A * w y A w + 1 y w *
19 1 rexrd w w + 1 *
20 16 19 syl A * w y A w + 1 y w + 1 *
21 simp1l A * w y A w + 1 y A *
22 simp2 A * w y A w + 1 y y A
23 ssel2 A * y A y *
24 21 22 23 syl2anc A * w y A w + 1 y y *
25 16 ltp1d A * w y A w + 1 y w < w + 1
26 simp3 A * w y A w + 1 y w + 1 y
27 18 20 24 25 26 xrltletrd A * w y A w + 1 y w < y
28 27 3exp A * w y A w + 1 y w < y
29 28 adantlr A * x y A x y w y A w + 1 y w < y
30 15 29 reximdai A * x y A x y w y A w + 1 y y A w < y
31 8 30 mpd A * x y A x y w y A w < y
32 31 ralrimiva A * x y A x y w y A w < y
33 32 ex A * x y A x y w y A w < y
34 breq1 w = x w < y x < y
35 34 rexbidv w = x y A w < y y A x < y
36 35 cbvralvw w y A w < y x y A x < y
37 36 biimpi w y A w < y x y A x < y
38 nfv x A *
39 nfra1 x x y A x < y
40 38 39 nfan x A * x y A x < y
41 simpll A * x y A x < y x A *
42 simpr A * x y A x < y x x
43 rspa x y A x < y x y A x < y
44 43 adantll A * x y A x < y x y A x < y
45 rexr x x *
46 45 ad3antlr A * x y A x < y x *
47 23 adantr A * y A x < y y *
48 47 adantllr A * x y A x < y y *
49 simpr A * x y A x < y x < y
50 46 48 49 xrltled A * x y A x < y x y
51 50 ex A * x y A x < y x y
52 51 reximdva A * x y A x < y y A x y
53 52 adantlr A * x y A x < y x y A x < y y A x y
54 44 53 mpd A * x y A x < y x y A x y
55 simpr A * x y A x y y A x y
56 41 42 54 55 syl21anc A * x y A x < y x y A x y
57 56 ex A * x y A x < y x y A x y
58 40 57 ralrimi A * x y A x < y x y A x y
59 37 58 sylan2 A * w y A w < y x y A x y
60 59 ex A * w y A w < y x y A x y
61 33 60 impbid A * x y A x y w y A w < y
62 supxrunb2 A * w y A w < y sup A * < = +∞
63 61 62 bitrd A * x y A x y sup A * < = +∞