| Step | Hyp | Ref
| Expression |
| 1 | | xnegcl 10252 |
. . . . . . . . . . . 12
⊢ (𝑧 ∈ ℝ*
→ -e𝑧
∈ ℝ*) |
| 2 | | elprg 3729 |
. . . . . . . . . . . 12
⊢
(-e𝑧
∈ ℝ* → (-e𝑧 ∈ {𝐴, 𝐵} ↔ (-e𝑧 = 𝐴 ∨ -e𝑧 = 𝐵))) |
| 3 | 1, 2 | syl 14 |
. . . . . . . . . . 11
⊢ (𝑧 ∈ ℝ*
→ (-e𝑧
∈ {𝐴, 𝐵} ↔ (-e𝑧 = 𝐴 ∨ -e𝑧 = 𝐵))) |
| 4 | 3 | adantl 277 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
(-e𝑧 ∈
{𝐴, 𝐵} ↔ (-e𝑧 = 𝐴 ∨ -e𝑧 = 𝐵))) |
| 5 | | simpr 110 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) → 𝑧 ∈
ℝ*) |
| 6 | | simpll 531 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) → 𝐴 ∈
ℝ*) |
| 7 | 5, 6 | xrnegcon1d 12056 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
(-e𝑧 = 𝐴 ↔ -e𝐴 = 𝑧)) |
| 8 | | eqcom 2240 |
. . . . . . . . . . . 12
⊢
(-e𝐴 =
𝑧 ↔ 𝑧 = -e𝐴) |
| 9 | 7, 8 | bitrdi 196 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
(-e𝑧 = 𝐴 ↔ 𝑧 = -e𝐴)) |
| 10 | | simplr 533 |
. . . . . . . . . . . . 13
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) → 𝐵 ∈
ℝ*) |
| 11 | 5, 10 | xrnegcon1d 12056 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
(-e𝑧 = 𝐵 ↔ -e𝐵 = 𝑧)) |
| 12 | | eqcom 2240 |
. . . . . . . . . . . 12
⊢
(-e𝐵 =
𝑧 ↔ 𝑧 = -e𝐵) |
| 13 | 11, 12 | bitrdi 196 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
(-e𝑧 = 𝐵 ↔ 𝑧 = -e𝐵)) |
| 14 | 9, 13 | orbi12d 805 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
((-e𝑧 = 𝐴 ∨ -e𝑧 = 𝐵) ↔ (𝑧 = -e𝐴 ∨ 𝑧 = -e𝐵))) |
| 15 | 4, 14 | bitrd 188 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑧 ∈ ℝ*) →
(-e𝑧 ∈
{𝐴, 𝐵} ↔ (𝑧 = -e𝐴 ∨ 𝑧 = -e𝐵))) |
| 16 | 15 | rabbidva 2809 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → {𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}} = {𝑧 ∈ ℝ* ∣ (𝑧 = -e𝐴 ∨ 𝑧 = -e𝐵)}) |
| 17 | | dfrab2 3508 |
. . . . . . . . . 10
⊢ {𝑧 ∈ ℝ*
∣ (𝑧 =
-e𝐴 ∨ 𝑧 = -e𝐵)} = ({𝑧 ∣ (𝑧 = -e𝐴 ∨ 𝑧 = -e𝐵)} ∩
ℝ*) |
| 18 | | dfpr2 3728 |
. . . . . . . . . . 11
⊢
{-e𝐴,
-e𝐵} = {𝑧 ∣ (𝑧 = -e𝐴 ∨ 𝑧 = -e𝐵)} |
| 19 | 18 | ineq1i 3428 |
. . . . . . . . . 10
⊢
({-e𝐴,
-e𝐵} ∩
ℝ*) = ({𝑧
∣ (𝑧 =
-e𝐴 ∨ 𝑧 = -e𝐵)} ∩
ℝ*) |
| 20 | 17, 19 | eqtr4i 2262 |
. . . . . . . . 9
⊢ {𝑧 ∈ ℝ*
∣ (𝑧 =
-e𝐴 ∨ 𝑧 = -e𝐵)} = ({-e𝐴, -e𝐵} ∩
ℝ*) |
| 21 | | xnegcl 10252 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ ℝ*
→ -e𝐴
∈ ℝ*) |
| 22 | | xnegcl 10252 |
. . . . . . . . . . 11
⊢ (𝐵 ∈ ℝ*
→ -e𝐵
∈ ℝ*) |
| 23 | | prssi 3873 |
. . . . . . . . . . 11
⊢
((-e𝐴
∈ ℝ* ∧ -e𝐵 ∈ ℝ*) →
{-e𝐴,
-e𝐵} ⊆
ℝ*) |
| 24 | 21, 22, 23 | syl2an 289 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → {-e𝐴, -e𝐵} ⊆
ℝ*) |
| 25 | | df-ss 3233 |
. . . . . . . . . 10
⊢
({-e𝐴,
-e𝐵} ⊆
ℝ* ↔ ({-e𝐴, -e𝐵} ∩ ℝ*) =
{-e𝐴,
-e𝐵}) |
| 26 | 24, 25 | sylib 122 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → ({-e𝐴, -e𝐵} ∩ ℝ*) =
{-e𝐴,
-e𝐵}) |
| 27 | 20, 26 | eqtrid 2283 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → {𝑧 ∈ ℝ* ∣ (𝑧 = -e𝐴 ∨ 𝑧 = -e𝐵)} = {-e𝐴, -e𝐵}) |
| 28 | 16, 27 | eqtrd 2271 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → {𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}} = {-e𝐴, -e𝐵}) |
| 29 | 28 | supeq1d 7334 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → sup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) =
sup({-e𝐴,
-e𝐵},
ℝ*, < )) |
| 30 | | xrmaxcl 12044 |
. . . . . . 7
⊢
((-e𝐴
∈ ℝ* ∧ -e𝐵 ∈ ℝ*) →
sup({-e𝐴,
-e𝐵},
ℝ*, < ) ∈ ℝ*) |
| 31 | 21, 22, 30 | syl2an 289 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → sup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ*) |
| 32 | 29, 31 | eqeltrd 2315 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → sup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ∈
ℝ*) |
| 33 | 32 | xnegcld 10275 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ∈
ℝ*) |
| 34 | | xnegeq 10247 |
. . . . . . . . 9
⊢ (𝑦 = 𝐴 → -e𝑦 = -e𝐴) |
| 35 | 34 | adantl 277 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → -e𝑦 = -e𝐴) |
| 36 | | xrmax1sup 12045 |
. . . . . . . . . 10
⊢
((-e𝐴
∈ ℝ* ∧ -e𝐵 ∈ ℝ*) →
-e𝐴 ≤
sup({-e𝐴,
-e𝐵},
ℝ*, < )) |
| 37 | 21, 22, 36 | syl2an 289 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -e𝐴 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 38 | 37 | ad2antrr 492 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → -e𝐴 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 39 | 35, 38 | eqbrtrd 4153 |
. . . . . . 7
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → -e𝑦 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 40 | | simpll 531 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → (𝐴 ∈ ℝ* ∧ 𝐵 ∈
ℝ*)) |
| 41 | | simpr 110 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → 𝑦 = 𝐴) |
| 42 | | simplll 539 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → 𝐴 ∈
ℝ*) |
| 43 | 41, 42 | eqeltrd 2315 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → 𝑦 ∈ ℝ*) |
| 44 | | xnegeq 10247 |
. . . . . . . . . . . . 13
⊢
(sup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) =
sup({-e𝐴,
-e𝐵},
ℝ*, < ) → -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) =
-esup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 45 | 29, 44 | syl 14 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) =
-esup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 46 | 45 | breq2d 4143 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → (𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ↔ 𝑦 <
-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 47 | 46 | notbid 677 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → (¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ↔ ¬
𝑦 <
-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 48 | 47 | adantr 276 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) → (¬
𝑦 <
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) ↔ ¬
𝑦 <
-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 49 | 31 | adantr 276 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
sup({-e𝐴,
-e𝐵},
ℝ*, < ) ∈ ℝ*) |
| 50 | 49 | xnegcld 10275 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
-esup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ*) |
| 51 | | xrlenlt 8397 |
. . . . . . . . . 10
⊢
((-esup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ* ∧ 𝑦
∈ ℝ*) → (-esup({-e𝐴, -e𝐵}, ℝ*, < ) ≤ 𝑦 ↔ ¬ 𝑦 < -esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 52 | 50, 51 | sylancom 424 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
(-esup({-e𝐴, -e𝐵}, ℝ*, < ) ≤ 𝑦 ↔ ¬ 𝑦 < -esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 53 | | xleneg 10257 |
. . . . . . . . . . 11
⊢
((-esup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ* ∧ 𝑦
∈ ℝ*) → (-esup({-e𝐴, -e𝐵}, ℝ*, < ) ≤ 𝑦 ↔ -e𝑦 ≤
-e-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 54 | 50, 53 | sylancom 424 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
(-esup({-e𝐴, -e𝐵}, ℝ*, < ) ≤ 𝑦 ↔ -e𝑦 ≤
-e-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 55 | | xnegneg 10253 |
. . . . . . . . . . . 12
⊢
(sup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ* → -e-esup({-e𝐴, -e𝐵}, ℝ*, < ) =
sup({-e𝐴,
-e𝐵},
ℝ*, < )) |
| 56 | 49, 55 | syl 14 |
. . . . . . . . . . 11
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
-e-esup({-e𝐴, -e𝐵}, ℝ*, < ) =
sup({-e𝐴,
-e𝐵},
ℝ*, < )) |
| 57 | 56 | breq2d 4143 |
. . . . . . . . . 10
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
(-e𝑦 ≤
-e-esup({-e𝐴, -e𝐵}, ℝ*, < ) ↔
-e𝑦 ≤
sup({-e𝐴,
-e𝐵},
ℝ*, < ))) |
| 58 | 54, 57 | bitrd 188 |
. . . . . . . . 9
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
(-esup({-e𝐴, -e𝐵}, ℝ*, < ) ≤ 𝑦 ↔ -e𝑦 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 59 | 48, 52, 58 | 3bitr2d 216 |
. . . . . . . 8
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) → (¬
𝑦 <
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) ↔
-e𝑦 ≤
sup({-e𝐴,
-e𝐵},
ℝ*, < ))) |
| 60 | 40, 43, 59 | syl2anc 415 |
. . . . . . 7
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → (¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ↔
-e𝑦 ≤
sup({-e𝐴,
-e𝐵},
ℝ*, < ))) |
| 61 | 39, 60 | mpbird 167 |
. . . . . 6
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐴) → ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
)) |
| 62 | | xnegeq 10247 |
. . . . . . . . 9
⊢ (𝑦 = 𝐵 → -e𝑦 = -e𝐵) |
| 63 | 62 | adantl 277 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → -e𝑦 = -e𝐵) |
| 64 | | xrmax2sup 12046 |
. . . . . . . . . 10
⊢
((-e𝐴
∈ ℝ* ∧ -e𝐵 ∈ ℝ*) →
-e𝐵 ≤
sup({-e𝐴,
-e𝐵},
ℝ*, < )) |
| 65 | 21, 22, 64 | syl2an 289 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -e𝐵 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 66 | 65 | ad2antrr 492 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → -e𝐵 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 67 | 63, 66 | eqbrtrd 4153 |
. . . . . . 7
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → -e𝑦 ≤ sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 68 | | simpll 531 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → (𝐴 ∈ ℝ* ∧ 𝐵 ∈
ℝ*)) |
| 69 | | simpr 110 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → 𝑦 = 𝐵) |
| 70 | | simpllr 540 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → 𝐵 ∈
ℝ*) |
| 71 | 69, 70 | eqeltrd 2315 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → 𝑦 ∈ ℝ*) |
| 72 | 68, 71, 59 | syl2anc 415 |
. . . . . . 7
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → (¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ↔
-e𝑦 ≤
sup({-e𝐴,
-e𝐵},
ℝ*, < ))) |
| 73 | 67, 72 | mpbird 167 |
. . . . . 6
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) ∧ 𝑦 = 𝐵) → ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
)) |
| 74 | | elpri 3732 |
. . . . . . 7
⊢ (𝑦 ∈ {𝐴, 𝐵} → (𝑦 = 𝐴 ∨ 𝑦 = 𝐵)) |
| 75 | 74 | adantl 277 |
. . . . . 6
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) → (𝑦 = 𝐴 ∨ 𝑦 = 𝐵)) |
| 76 | 61, 73, 75 | mpjaodan 810 |
. . . . 5
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ {𝐴, 𝐵}) → ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
)) |
| 77 | 76 | ralrimiva 2623 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → ∀𝑦 ∈ {𝐴, 𝐵} ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
)) |
| 78 | 21 | ad3antrrr 496 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → -e𝐴 ∈
ℝ*) |
| 79 | 22 | ad3antlr 497 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → -e𝐵 ∈
ℝ*) |
| 80 | | simplr 533 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → 𝑦 ∈ ℝ*) |
| 81 | 80 | xnegcld 10275 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → -e𝑦 ∈
ℝ*) |
| 82 | | simpr 110 |
. . . . . . . . . . 11
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
< 𝑦) |
| 83 | 45 | breq1d 4141 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → (-esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) < 𝑦 ↔
-esup({-e𝐴, -e𝐵}, ℝ*, < ) < 𝑦)) |
| 84 | 83 | ad2antrr 492 |
. . . . . . . . . . 11
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) →
(-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦 ↔
-esup({-e𝐴, -e𝐵}, ℝ*, < ) < 𝑦)) |
| 85 | 82, 84 | mpbid 147 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) →
-esup({-e𝐴, -e𝐵}, ℝ*, < ) < 𝑦) |
| 86 | 50 | adantr 276 |
. . . . . . . . . . . 12
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) →
-esup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ*) |
| 87 | | xltneg 10256 |
. . . . . . . . . . . 12
⊢
((-esup({-e𝐴, -e𝐵}, ℝ*, < ) ∈
ℝ* ∧ 𝑦
∈ ℝ*) → (-esup({-e𝐴, -e𝐵}, ℝ*, < ) < 𝑦 ↔ -e𝑦 <
-e-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 88 | 86, 80, 87 | syl2anc 415 |
. . . . . . . . . . 11
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) →
(-esup({-e𝐴, -e𝐵}, ℝ*, < ) < 𝑦 ↔ -e𝑦 <
-e-esup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 89 | 56 | breq2d 4143 |
. . . . . . . . . . . 12
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
(-e𝑦 <
-e-esup({-e𝐴, -e𝐵}, ℝ*, < ) ↔
-e𝑦 <
sup({-e𝐴,
-e𝐵},
ℝ*, < ))) |
| 90 | 89 | adantr 276 |
. . . . . . . . . . 11
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → (-e𝑦 <
-e-esup({-e𝐴, -e𝐵}, ℝ*, < ) ↔
-e𝑦 <
sup({-e𝐴,
-e𝐵},
ℝ*, < ))) |
| 91 | 88, 90 | bitrd 188 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) →
(-esup({-e𝐴, -e𝐵}, ℝ*, < ) < 𝑦 ↔ -e𝑦 < sup({-e𝐴, -e𝐵}, ℝ*, <
))) |
| 92 | 85, 91 | mpbid 147 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → -e𝑦 < sup({-e𝐴, -e𝐵}, ℝ*, <
)) |
| 93 | | xrmaxleastlt 12048 |
. . . . . . . . 9
⊢
(((-e𝐴
∈ ℝ* ∧ -e𝐵 ∈ ℝ*) ∧
(-e𝑦 ∈
ℝ* ∧ -e𝑦 < sup({-e𝐴, -e𝐵}, ℝ*, < ))) →
(-e𝑦 <
-e𝐴 ∨
-e𝑦 <
-e𝐵)) |
| 94 | 78, 79, 81, 92, 93 | syl22anc 1279 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → (-e𝑦 < -e𝐴 ∨ -e𝑦 < -e𝐵)) |
| 95 | | simplll 539 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → 𝐴 ∈
ℝ*) |
| 96 | | xltneg 10256 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℝ*
∧ 𝑦 ∈
ℝ*) → (𝐴 < 𝑦 ↔ -e𝑦 < -e𝐴)) |
| 97 | 95, 80, 96 | syl2anc 415 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → (𝐴 < 𝑦 ↔ -e𝑦 < -e𝐴)) |
| 98 | | simpllr 540 |
. . . . . . . . . 10
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → 𝐵 ∈
ℝ*) |
| 99 | | xltneg 10256 |
. . . . . . . . . 10
⊢ ((𝐵 ∈ ℝ*
∧ 𝑦 ∈
ℝ*) → (𝐵 < 𝑦 ↔ -e𝑦 < -e𝐵)) |
| 100 | 98, 80, 99 | syl2anc 415 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → (𝐵 < 𝑦 ↔ -e𝑦 < -e𝐵)) |
| 101 | 97, 100 | orbi12d 805 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → ((𝐴 < 𝑦 ∨ 𝐵 < 𝑦) ↔ (-e𝑦 < -e𝐴 ∨ -e𝑦 < -e𝐵))) |
| 102 | 94, 101 | mpbird 167 |
. . . . . . 7
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → (𝐴 < 𝑦 ∨ 𝐵 < 𝑦)) |
| 103 | | breq1 4134 |
. . . . . . . . 9
⊢ (𝑧 = 𝐴 → (𝑧 < 𝑦 ↔ 𝐴 < 𝑦)) |
| 104 | | breq1 4134 |
. . . . . . . . 9
⊢ (𝑧 = 𝐵 → (𝑧 < 𝑦 ↔ 𝐵 < 𝑦)) |
| 105 | 103, 104 | rexprg 3761 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → (∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦 ↔ (𝐴 < 𝑦 ∨ 𝐵 < 𝑦))) |
| 106 | 105 | ad2antrr 492 |
. . . . . . 7
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → (∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦 ↔ (𝐴 < 𝑦 ∨ 𝐵 < 𝑦))) |
| 107 | 102, 106 | mpbird 167 |
. . . . . 6
⊢ ((((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) ∧
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦) → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦) |
| 108 | 107 | ex 115 |
. . . . 5
⊢ (((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) ∧ 𝑦 ∈ ℝ*) →
(-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦)) |
| 109 | 108 | ralrimiva 2623 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → ∀𝑦 ∈ ℝ*
(-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦)) |
| 110 | | breq2 4135 |
. . . . . . . 8
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ (𝑦 < 𝑥 ↔ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
))) |
| 111 | 110 | notbid 677 |
. . . . . . 7
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ (¬ 𝑦 < 𝑥 ↔ ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
))) |
| 112 | 111 | ralbidv 2550 |
. . . . . 6
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ (∀𝑦 ∈
{𝐴, 𝐵} ¬ 𝑦 < 𝑥 ↔ ∀𝑦 ∈ {𝐴, 𝐵} ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, <
))) |
| 113 | | breq1 4134 |
. . . . . . . 8
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ (𝑥 < 𝑦 ↔ -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
< 𝑦)) |
| 114 | 113 | imbi1d 231 |
. . . . . . 7
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ ((𝑥 < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦) ↔ (-esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
< 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦))) |
| 115 | 114 | ralbidv 2550 |
. . . . . 6
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ (∀𝑦 ∈
ℝ* (𝑥 <
𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦) ↔ ∀𝑦 ∈ ℝ*
(-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, < ) < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦))) |
| 116 | 112, 115 | anbi12d 477 |
. . . . 5
⊢ (𝑥 = -esup({𝑧 ∈ ℝ*
∣ -e𝑧
∈ {𝐴, 𝐵}}, ℝ*, < )
→ ((∀𝑦 ∈
{𝐴, 𝐵} ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ* (𝑥 < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦)) ↔ (∀𝑦 ∈ {𝐴, 𝐵} ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ∧
∀𝑦 ∈
ℝ* (-esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦)))) |
| 117 | 116 | rspcev 2929 |
. . . 4
⊢
((-esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ∈
ℝ* ∧ (∀𝑦 ∈ {𝐴, 𝐵} ¬ 𝑦 < -esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) ∧
∀𝑦 ∈
ℝ* (-esup({𝑧 ∈ ℝ* ∣
-e𝑧 ∈
{𝐴, 𝐵}}, ℝ*, < ) < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦))) → ∃𝑥 ∈ ℝ* (∀𝑦 ∈ {𝐴, 𝐵} ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ* (𝑥 < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦))) |
| 118 | 33, 77, 109, 117 | syl12anc 1276 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → ∃𝑥 ∈ ℝ* (∀𝑦 ∈ {𝐴, 𝐵} ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ* (𝑥 < 𝑦 → ∃𝑧 ∈ {𝐴, 𝐵}𝑧 < 𝑦))) |
| 119 | | prssi 3873 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → {𝐴, 𝐵} ⊆
ℝ*) |
| 120 | 118, 119 | infxrnegsupex 12055 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → inf({𝐴, 𝐵}, ℝ*, < ) =
-esup({𝑧 ∈
ℝ* ∣ -e𝑧 ∈ {𝐴, 𝐵}}, ℝ*, <
)) |
| 121 | 120, 45 | eqtrd 2271 |
1
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → inf({𝐴, 𝐵}, ℝ*, < ) =
-esup({-e𝐴, -e𝐵}, ℝ*, <
)) |