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

Theorem suplesup 40125
Description: If any element of 𝐴 can be approximated from below by members of 𝐵, then the supremum of 𝐴 is less than or equal to the supremum of 𝐵. (Contributed by Glauco Siliprandi, 17-Aug-2020.)
Hypotheses
Ref Expression
suplesup.a (𝜑𝐴 ⊆ ℝ)
suplesup.b (𝜑𝐵 ⊆ ℝ*)
suplesup.c (𝜑 → ∀𝑥𝐴𝑦 ∈ ℝ+𝑧𝐵 (𝑥𝑦) < 𝑧)
Assertion
Ref Expression
suplesup (𝜑 → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
Distinct variable groups:   𝑥,𝐴,𝑧   𝑥,𝐵,𝑦,𝑧   𝜑,𝑥,𝑧
Allowed substitution hints:   𝜑(𝑦)   𝐴(𝑦)

Proof of Theorem suplesup
Dummy variables 𝑟 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 suplesup.a . . . . . 6 (𝜑𝐴 ⊆ ℝ)
2 ressxr 10337 . . . . . 6 ℝ ⊆ ℝ*
31, 2syl6ss 3773 . . . . 5 (𝜑𝐴 ⊆ ℝ*)
4 supxrcl 12347 . . . . 5 (𝐴 ⊆ ℝ* → sup(𝐴, ℝ*, < ) ∈ ℝ*)
53, 4syl 17 . . . 4 (𝜑 → sup(𝐴, ℝ*, < ) ∈ ℝ*)
65adantr 472 . . 3 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
7 eqidd 2766 . . . 4 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → +∞ = +∞)
8 simpr 477 . . . 4 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) = +∞)
9 peano2re 10463 . . . . . . . . . 10 (𝑤 ∈ ℝ → (𝑤 + 1) ∈ ℝ)
109adantl 473 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑤 + 1) ∈ ℝ)
113adantr 472 . . . . . . . . . . . 12 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → 𝐴 ⊆ ℝ*)
12 supxrunb2 12352 . . . . . . . . . . . 12 (𝐴 ⊆ ℝ* → (∀𝑟 ∈ ℝ ∃𝑥𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ*, < ) = +∞))
1311, 12syl 17 . . . . . . . . . . 11 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → (∀𝑟 ∈ ℝ ∃𝑥𝐴 𝑟 < 𝑥 ↔ sup(𝐴, ℝ*, < ) = +∞))
148, 13mpbird 248 . . . . . . . . . 10 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → ∀𝑟 ∈ ℝ ∃𝑥𝐴 𝑟 < 𝑥)
1514adantr 472 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∀𝑟 ∈ ℝ ∃𝑥𝐴 𝑟 < 𝑥)
16 breq1 4812 . . . . . . . . . . 11 (𝑟 = (𝑤 + 1) → (𝑟 < 𝑥 ↔ (𝑤 + 1) < 𝑥))
1716rexbidv 3199 . . . . . . . . . 10 (𝑟 = (𝑤 + 1) → (∃𝑥𝐴 𝑟 < 𝑥 ↔ ∃𝑥𝐴 (𝑤 + 1) < 𝑥))
1817rspcva 3459 . . . . . . . . 9 (((𝑤 + 1) ∈ ℝ ∧ ∀𝑟 ∈ ℝ ∃𝑥𝐴 𝑟 < 𝑥) → ∃𝑥𝐴 (𝑤 + 1) < 𝑥)
1910, 15, 18syl2anc 579 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑥𝐴 (𝑤 + 1) < 𝑥)
20 1rp 12032 . . . . . . . . . . . . . . . 16 1 ∈ ℝ+
2120a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝐴) → 1 ∈ ℝ+)
22 suplesup.c . . . . . . . . . . . . . . . 16 (𝜑 → ∀𝑥𝐴𝑦 ∈ ℝ+𝑧𝐵 (𝑥𝑦) < 𝑧)
2322r19.21bi 3079 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝐴) → ∀𝑦 ∈ ℝ+𝑧𝐵 (𝑥𝑦) < 𝑧)
24 oveq2 6850 . . . . . . . . . . . . . . . . . 18 (𝑦 = 1 → (𝑥𝑦) = (𝑥 − 1))
2524breq1d 4819 . . . . . . . . . . . . . . . . 17 (𝑦 = 1 → ((𝑥𝑦) < 𝑧 ↔ (𝑥 − 1) < 𝑧))
2625rexbidv 3199 . . . . . . . . . . . . . . . 16 (𝑦 = 1 → (∃𝑧𝐵 (𝑥𝑦) < 𝑧 ↔ ∃𝑧𝐵 (𝑥 − 1) < 𝑧))
2726rspcva 3459 . . . . . . . . . . . . . . 15 ((1 ∈ ℝ+ ∧ ∀𝑦 ∈ ℝ+𝑧𝐵 (𝑥𝑦) < 𝑧) → ∃𝑧𝐵 (𝑥 − 1) < 𝑧)
2821, 23, 27syl2anc 579 . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴) → ∃𝑧𝐵 (𝑥 − 1) < 𝑧)
2928adantlr 706 . . . . . . . . . . . . 13 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴) → ∃𝑧𝐵 (𝑥 − 1) < 𝑧)
30293adant3 1162 . . . . . . . . . . . 12 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧𝐵 (𝑥 − 1) < 𝑧)
31 nfv 2009 . . . . . . . . . . . . 13 𝑧((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥)
32 simp11r 1384 . . . . . . . . . . . . . . . 16 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ)
332, 32sseldi 3759 . . . . . . . . . . . . . . 15 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 ∈ ℝ*)
341sselda 3761 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥𝐴) → 𝑥 ∈ ℝ)
35 1red 10294 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑥𝐴) → 1 ∈ ℝ)
3634, 35resubcld 10712 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑥𝐴) → (𝑥 − 1) ∈ ℝ)
3736adantlr 706 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴) → (𝑥 − 1) ∈ ℝ)
38373adant3 1162 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑥 − 1) ∈ ℝ)
39383ad2ant1 1163 . . . . . . . . . . . . . . . 16 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ)
402, 39sseldi 3759 . . . . . . . . . . . . . . 15 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) ∈ ℝ*)
41 suplesup.b . . . . . . . . . . . . . . . . . . 19 (𝜑𝐵 ⊆ ℝ*)
4241sselda 3761 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧𝐵) → 𝑧 ∈ ℝ*)
4342adantlr 706 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ∈ ℝ) ∧ 𝑧𝐵) → 𝑧 ∈ ℝ*)
44433ad2antl1 1236 . . . . . . . . . . . . . . . 16 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵) → 𝑧 ∈ ℝ*)
45443adant3 1162 . . . . . . . . . . . . . . 15 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑧 ∈ ℝ*)
46 simp3 1168 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑤 + 1) < 𝑥)
47 simp1r 1255 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑤 ∈ ℝ)
48 1red 10294 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → 1 ∈ ℝ)
4934adantlr 706 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴) → 𝑥 ∈ ℝ)
50493adant3 1162 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑥 ∈ ℝ)
5147, 48, 50ltaddsubd 10881 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → ((𝑤 + 1) < 𝑥𝑤 < (𝑥 − 1)))
5246, 51mpbid 223 . . . . . . . . . . . . . . . 16 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → 𝑤 < (𝑥 − 1))
53523ad2ant1 1163 . . . . . . . . . . . . . . 15 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < (𝑥 − 1))
54 simp3 1168 . . . . . . . . . . . . . . 15 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → (𝑥 − 1) < 𝑧)
5533, 40, 45, 53, 54xrlttrd 12192 . . . . . . . . . . . . . 14 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) ∧ 𝑧𝐵 ∧ (𝑥 − 1) < 𝑧) → 𝑤 < 𝑧)
56553exp 1148 . . . . . . . . . . . . 13 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → (𝑧𝐵 → ((𝑥 − 1) < 𝑧𝑤 < 𝑧)))
5731, 56reximdai 3158 . . . . . . . . . . . 12 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → (∃𝑧𝐵 (𝑥 − 1) < 𝑧 → ∃𝑧𝐵 𝑤 < 𝑧))
5830, 57mpd 15 . . . . . . . . . . 11 (((𝜑𝑤 ∈ ℝ) ∧ 𝑥𝐴 ∧ (𝑤 + 1) < 𝑥) → ∃𝑧𝐵 𝑤 < 𝑧)
59583exp 1148 . . . . . . . . . 10 ((𝜑𝑤 ∈ ℝ) → (𝑥𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧𝐵 𝑤 < 𝑧)))
6059adantlr 706 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (𝑥𝐴 → ((𝑤 + 1) < 𝑥 → ∃𝑧𝐵 𝑤 < 𝑧)))
6160rexlimdv 3177 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑥𝐴 (𝑤 + 1) < 𝑥 → ∃𝑧𝐵 𝑤 < 𝑧))
6219, 61mpd 15 . . . . . . 7 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧𝐵 𝑤 < 𝑧)
632a1i 11 . . . . . . . . . . . . 13 (𝜑 → ℝ ⊆ ℝ*)
6463sselda 3761 . . . . . . . . . . . 12 ((𝜑𝑤 ∈ ℝ) → 𝑤 ∈ ℝ*)
6564ad2antrr 717 . . . . . . . . . . 11 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑧𝐵) ∧ 𝑤 < 𝑧) → 𝑤 ∈ ℝ*)
6643adantr 472 . . . . . . . . . . 11 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑧𝐵) ∧ 𝑤 < 𝑧) → 𝑧 ∈ ℝ*)
67 simpr 477 . . . . . . . . . . 11 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑧𝐵) ∧ 𝑤 < 𝑧) → 𝑤 < 𝑧)
6865, 66, 67xrltled 12183 . . . . . . . . . 10 ((((𝜑𝑤 ∈ ℝ) ∧ 𝑧𝐵) ∧ 𝑤 < 𝑧) → 𝑤𝑧)
6968ex 401 . . . . . . . . 9 (((𝜑𝑤 ∈ ℝ) ∧ 𝑧𝐵) → (𝑤 < 𝑧𝑤𝑧))
7069adantllr 710 . . . . . . . 8 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) ∧ 𝑧𝐵) → (𝑤 < 𝑧𝑤𝑧))
7170reximdva 3163 . . . . . . 7 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → (∃𝑧𝐵 𝑤 < 𝑧 → ∃𝑧𝐵 𝑤𝑧))
7262, 71mpd 15 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝑤 ∈ ℝ) → ∃𝑧𝐵 𝑤𝑧)
7372ralrimiva 3113 . . . . 5 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → ∀𝑤 ∈ ℝ ∃𝑧𝐵 𝑤𝑧)
74 supxrunb1 12351 . . . . . . 7 (𝐵 ⊆ ℝ* → (∀𝑤 ∈ ℝ ∃𝑧𝐵 𝑤𝑧 ↔ sup(𝐵, ℝ*, < ) = +∞))
7541, 74syl 17 . . . . . 6 (𝜑 → (∀𝑤 ∈ ℝ ∃𝑧𝐵 𝑤𝑧 ↔ sup(𝐵, ℝ*, < ) = +∞))
7675adantr 472 . . . . 5 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → (∀𝑤 ∈ ℝ ∃𝑧𝐵 𝑤𝑧 ↔ sup(𝐵, ℝ*, < ) = +∞))
7773, 76mpbid 223 . . . 4 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐵, ℝ*, < ) = +∞)
787, 8, 773eqtr4d 2809 . . 3 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) = sup(𝐵, ℝ*, < ))
796, 78xreqled 40116 . 2 ((𝜑 ∧ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
80 supeq1 8558 . . . . . . 7 (𝐴 = ∅ → sup(𝐴, ℝ*, < ) = sup(∅, ℝ*, < ))
81 xrsup0 12355 . . . . . . . 8 sup(∅, ℝ*, < ) = -∞
8281a1i 11 . . . . . . 7 (𝐴 = ∅ → sup(∅, ℝ*, < ) = -∞)
8380, 82eqtrd 2799 . . . . . 6 (𝐴 = ∅ → sup(𝐴, ℝ*, < ) = -∞)
8483adantl 473 . . . . 5 ((𝜑𝐴 = ∅) → sup(𝐴, ℝ*, < ) = -∞)
85 supxrcl 12347 . . . . . . . 8 (𝐵 ⊆ ℝ* → sup(𝐵, ℝ*, < ) ∈ ℝ*)
8641, 85syl 17 . . . . . . 7 (𝜑 → sup(𝐵, ℝ*, < ) ∈ ℝ*)
87 mnfle 12169 . . . . . . 7 (sup(𝐵, ℝ*, < ) ∈ ℝ* → -∞ ≤ sup(𝐵, ℝ*, < ))
8886, 87syl 17 . . . . . 6 (𝜑 → -∞ ≤ sup(𝐵, ℝ*, < ))
8988adantr 472 . . . . 5 ((𝜑𝐴 = ∅) → -∞ ≤ sup(𝐵, ℝ*, < ))
9084, 89eqbrtrd 4831 . . . 4 ((𝜑𝐴 = ∅) → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
9190adantlr 706 . . 3 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ 𝐴 = ∅) → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
92 simpll 783 . . . 4 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → 𝜑)
931adantr 472 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ⊆ ℝ)
94 neqne 2945 . . . . . . . . 9 𝐴 = ∅ → 𝐴 ≠ ∅)
9594adantl 473 . . . . . . . 8 ((𝜑 ∧ ¬ 𝐴 = ∅) → 𝐴 ≠ ∅)
96 supxrgtmnf 12361 . . . . . . . 8 ((𝐴 ⊆ ℝ ∧ 𝐴 ≠ ∅) → -∞ < sup(𝐴, ℝ*, < ))
9793, 95, 96syl2anc 579 . . . . . . 7 ((𝜑 ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ*, < ))
9897adantlr 706 . . . . . 6 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → -∞ < sup(𝐴, ℝ*, < ))
99 simpr 477 . . . . . . . . 9 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → ¬ sup(𝐴, ℝ*, < ) = +∞)
100 simpl 474 . . . . . . . . . 10 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → 𝜑)
101 nltpnft 12197 . . . . . . . . . 10 (sup(𝐴, ℝ*, < ) ∈ ℝ* → (sup(𝐴, ℝ*, < ) = +∞ ↔ ¬ sup(𝐴, ℝ*, < ) < +∞))
102100, 5, 1013syl 18 . . . . . . . . 9 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → (sup(𝐴, ℝ*, < ) = +∞ ↔ ¬ sup(𝐴, ℝ*, < ) < +∞))
10399, 102mtbid 315 . . . . . . . 8 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → ¬ ¬ sup(𝐴, ℝ*, < ) < +∞)
104 notnotr 128 . . . . . . . 8 (¬ ¬ sup(𝐴, ℝ*, < ) < +∞ → sup(𝐴, ℝ*, < ) < +∞)
105103, 104syl 17 . . . . . . 7 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) < +∞)
106105adantr 472 . . . . . 6 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ*, < ) < +∞)
10798, 106jca 507 . . . . 5 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (-∞ < sup(𝐴, ℝ*, < ) ∧ sup(𝐴, ℝ*, < ) < +∞))
10892, 5syl 17 . . . . . 6 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ*, < ) ∈ ℝ*)
109 xrrebnd 12201 . . . . . 6 (sup(𝐴, ℝ*, < ) ∈ ℝ* → (sup(𝐴, ℝ*, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ*, < ) ∧ sup(𝐴, ℝ*, < ) < +∞)))
110108, 109syl 17 . . . . 5 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → (sup(𝐴, ℝ*, < ) ∈ ℝ ↔ (-∞ < sup(𝐴, ℝ*, < ) ∧ sup(𝐴, ℝ*, < ) < +∞)))
111107, 110mpbird 248 . . . 4 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ*, < ) ∈ ℝ)
112 nfv 2009 . . . . 5 𝑤(𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ)
11341adantr 472 . . . . 5 ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) → 𝐵 ⊆ ℝ*)
114 simpr 477 . . . . 5 ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) → sup(𝐴, ℝ*, < ) ∈ ℝ)
115114adantr 472 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → sup(𝐴, ℝ*, < ) ∈ ℝ)
116 simpr 477 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → 𝑤 ∈ ℝ+)
117116rphalfcld 12082 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (𝑤 / 2) ∈ ℝ+)
118115, 117ltsubrpd 12102 . . . . . . 7 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < sup(𝐴, ℝ*, < ))
1193ad2antrr 717 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → 𝐴 ⊆ ℝ*)
120 rpre 12036 . . . . . . . . . . . 12 (𝑤 ∈ ℝ+𝑤 ∈ ℝ)
121 2re 11346 . . . . . . . . . . . . 13 2 ∈ ℝ
122121a1i 11 . . . . . . . . . . . 12 (𝑤 ∈ ℝ+ → 2 ∈ ℝ)
123 2ne0 11383 . . . . . . . . . . . . 13 2 ≠ 0
124123a1i 11 . . . . . . . . . . . 12 (𝑤 ∈ ℝ+ → 2 ≠ 0)
125120, 122, 124redivcld 11107 . . . . . . . . . . 11 (𝑤 ∈ ℝ+ → (𝑤 / 2) ∈ ℝ)
126125adantl 473 . . . . . . . . . 10 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (𝑤 / 2) ∈ ℝ)
127115, 126resubcld 10712 . . . . . . . . 9 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) ∈ ℝ)
1282, 127sseldi 3759 . . . . . . . 8 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) ∈ ℝ*)
129 supxrlub 12357 . . . . . . . 8 ((𝐴 ⊆ ℝ* ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) ∈ ℝ*) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < sup(𝐴, ℝ*, < ) ↔ ∃𝑥𝐴 (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥))
130119, 128, 129syl2anc 579 . . . . . . 7 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < sup(𝐴, ℝ*, < ) ↔ ∃𝑥𝐴 (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥))
131118, 130mpbid 223 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → ∃𝑥𝐴 (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥)
132 rphalfcl 12056 . . . . . . . . . . . 12 (𝑤 ∈ ℝ+ → (𝑤 / 2) ∈ ℝ+)
1331323ad2ant2 1164 . . . . . . . . . . 11 ((𝜑𝑤 ∈ ℝ+𝑥𝐴) → (𝑤 / 2) ∈ ℝ+)
134233adant2 1161 . . . . . . . . . . 11 ((𝜑𝑤 ∈ ℝ+𝑥𝐴) → ∀𝑦 ∈ ℝ+𝑧𝐵 (𝑥𝑦) < 𝑧)
135 oveq2 6850 . . . . . . . . . . . . . 14 (𝑦 = (𝑤 / 2) → (𝑥𝑦) = (𝑥 − (𝑤 / 2)))
136135breq1d 4819 . . . . . . . . . . . . 13 (𝑦 = (𝑤 / 2) → ((𝑥𝑦) < 𝑧 ↔ (𝑥 − (𝑤 / 2)) < 𝑧))
137136rexbidv 3199 . . . . . . . . . . . 12 (𝑦 = (𝑤 / 2) → (∃𝑧𝐵 (𝑥𝑦) < 𝑧 ↔ ∃𝑧𝐵 (𝑥 − (𝑤 / 2)) < 𝑧))
138137rspcva 3459 . . . . . . . . . . 11 (((𝑤 / 2) ∈ ℝ+ ∧ ∀𝑦 ∈ ℝ+𝑧𝐵 (𝑥𝑦) < 𝑧) → ∃𝑧𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
139133, 134, 138syl2anc 579 . . . . . . . . . 10 ((𝜑𝑤 ∈ ℝ+𝑥𝐴) → ∃𝑧𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
140139ad5ant134 1482 . . . . . . . . 9 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧𝐵 (𝑥 − (𝑤 / 2)) < 𝑧)
141 recn 10279 . . . . . . . . . . . . . . . . . 18 (sup(𝐴, ℝ*, < ) ∈ ℝ → sup(𝐴, ℝ*, < ) ∈ ℂ)
142141adantr 472 . . . . . . . . . . . . . . . . 17 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ+) → sup(𝐴, ℝ*, < ) ∈ ℂ)
143120recnd 10322 . . . . . . . . . . . . . . . . . . 19 (𝑤 ∈ ℝ+𝑤 ∈ ℂ)
144143adantl 473 . . . . . . . . . . . . . . . . . 18 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ+) → 𝑤 ∈ ℂ)
145144halfcld 11523 . . . . . . . . . . . . . . . . 17 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ+) → (𝑤 / 2) ∈ ℂ)
146142, 145, 145subsub4d 10677 . . . . . . . . . . . . . . . 16 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ+) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) = (sup(𝐴, ℝ*, < ) − ((𝑤 / 2) + (𝑤 / 2))))
1471432halvesd 11524 . . . . . . . . . . . . . . . . . 18 (𝑤 ∈ ℝ+ → ((𝑤 / 2) + (𝑤 / 2)) = 𝑤)
148147oveq2d 6858 . . . . . . . . . . . . . . . . 17 (𝑤 ∈ ℝ+ → (sup(𝐴, ℝ*, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ*, < ) − 𝑤))
149148adantl 473 . . . . . . . . . . . . . . . 16 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ+) → (sup(𝐴, ℝ*, < ) − ((𝑤 / 2) + (𝑤 / 2))) = (sup(𝐴, ℝ*, < ) − 𝑤))
150146, 149eqtr2d 2800 . . . . . . . . . . . . . . 15 ((sup(𝐴, ℝ*, < ) ∈ ℝ ∧ 𝑤 ∈ ℝ+) → (sup(𝐴, ℝ*, < ) − 𝑤) = ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
151150adantll 705 . . . . . . . . . . . . . 14 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (sup(𝐴, ℝ*, < ) − 𝑤) = ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
152151adantr 472 . . . . . . . . . . . . 13 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → (sup(𝐴, ℝ*, < ) − 𝑤) = ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
153152ad3antrrr 721 . . . . . . . . . . . 12 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ*, < ) − 𝑤) = ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)))
154127, 126resubcld 10712 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
155154adantr 472 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
156155ad3antrrr 721 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ)
1572, 156sseldi 3759 . . . . . . . . . . . . 13 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) ∈ ℝ*)
158120, 49sylanl2 671 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → 𝑥 ∈ ℝ)
159125ad2antlr 718 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → (𝑤 / 2) ∈ ℝ)
160158, 159resubcld 10712 . . . . . . . . . . . . . . . 16 (((𝜑𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
161160adantllr 710 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
162161ad3antrrr 721 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ)
1632, 162sseldi 3759 . . . . . . . . . . . . 13 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) ∈ ℝ*)
164 simp-6l 809 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝜑)
165 simplr 785 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧𝐵)
166164, 165, 42syl2anc 579 . . . . . . . . . . . . 13 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑧 ∈ ℝ*)
167 simp-6r 811 . . . . . . . . . . . . . . 15 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → sup(𝐴, ℝ*, < ) ∈ ℝ)
168120ad5antlr 730 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑤 ∈ ℝ)
169168rehalfcld 11525 . . . . . . . . . . . . . . 15 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑤 / 2) ∈ ℝ)
170167, 169resubcld 10712 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) ∈ ℝ)
171 simp-4r 803 . . . . . . . . . . . . . . 15 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥𝐴)
172164, 171, 34syl2anc 579 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → 𝑥 ∈ ℝ)
173 simpllr 793 . . . . . . . . . . . . . 14 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥)
174170, 172, 169, 173ltsub1dd 10893 . . . . . . . . . . . . 13 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < (𝑥 − (𝑤 / 2)))
175 simpr 477 . . . . . . . . . . . . 13 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (𝑥 − (𝑤 / 2)) < 𝑧)
176157, 163, 166, 174, 175xrlttrd 12192 . . . . . . . . . . . 12 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) − (𝑤 / 2)) < 𝑧)
177153, 176eqbrtrd 4831 . . . . . . . . . . 11 (((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) ∧ (𝑥 − (𝑤 / 2)) < 𝑧) → (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧)
178177ex 401 . . . . . . . . . 10 ((((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) ∧ 𝑧𝐵) → ((𝑥 − (𝑤 / 2)) < 𝑧 → (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧))
179178reximdva 3163 . . . . . . . . 9 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) → (∃𝑧𝐵 (𝑥 − (𝑤 / 2)) < 𝑧 → ∃𝑧𝐵 (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧))
180140, 179mpd 15 . . . . . . . 8 (((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) ∧ (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥) → ∃𝑧𝐵 (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧)
181180ex 401 . . . . . . 7 ((((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) ∧ 𝑥𝐴) → ((sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥 → ∃𝑧𝐵 (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧))
182181rexlimdva 3178 . . . . . 6 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → (∃𝑥𝐴 (sup(𝐴, ℝ*, < ) − (𝑤 / 2)) < 𝑥 → ∃𝑧𝐵 (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧))
183131, 182mpd 15 . . . . 5 (((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) ∧ 𝑤 ∈ ℝ+) → ∃𝑧𝐵 (sup(𝐴, ℝ*, < ) − 𝑤) < 𝑧)
184112, 113, 114, 183supxrgere 40119 . . . 4 ((𝜑 ∧ sup(𝐴, ℝ*, < ) ∈ ℝ) → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
18592, 111, 184syl2anc 579 . . 3 (((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) ∧ ¬ 𝐴 = ∅) → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
18691, 185pm2.61dan 847 . 2 ((𝜑 ∧ ¬ sup(𝐴, ℝ*, < ) = +∞) → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
18779, 186pm2.61dan 847 1 (𝜑 → sup(𝐴, ℝ*, < ) ≤ sup(𝐵, ℝ*, < ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  wne 2937  wral 3055  wrex 3056  wss 3732  c0 4079   class class class wbr 4809  (class class class)co 6842  supcsup 8553  cc 10187  cr 10188  0cc0 10189  1c1 10190   + caddc 10192  +∞cpnf 10325  -∞cmnf 10326  *cxr 10327   < clt 10328  cle 10329  cmin 10520   / cdiv 10938  2c2 11327  +crp 12028
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266  ax-pre-sup 10267
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-op 4341  df-uni 4595  df-br 4810  df-opab 4872  df-mpt 4889  df-id 5185  df-po 5198  df-so 5199  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-er 7947  df-en 8161  df-dom 8162  df-sdom 8163  df-sup 8555  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-div 10939  df-2 11335  df-rp 12029
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator