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 ℝ * < = +∞