Proof of Theorem xrminadd
| Step | Hyp | Ref
| Expression |
| 1 | | simp1 999 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐴 ∈
ℝ*) |
| 2 | 1 | xnegcld 9930 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒𝐴 ∈
ℝ*) |
| 3 | | simp2 1000 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐵 ∈
ℝ*) |
| 4 | 3 | xnegcld 9930 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒𝐵 ∈
ℝ*) |
| 5 | | simp3 1001 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐶 ∈
ℝ*) |
| 6 | 5 | xnegcld 9930 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒𝐶 ∈
ℝ*) |
| 7 | | xrmaxcl 11417 |
. . . 4
⊢
((-𝑒𝐵 ∈ ℝ* ∧
-𝑒𝐶
∈ ℝ*) → sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < ) ∈
ℝ*) |
| 8 | 4, 6, 7 | syl2anc 411 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < ) ∈
ℝ*) |
| 9 | | xnegdi 9943 |
. . 3
⊢
((-𝑒𝐴 ∈ ℝ* ∧
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < ) ∈
ℝ*) → -𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < )) =
(-𝑒-𝑒𝐴 +𝑒
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 10 | 2, 8, 9 | syl2anc 411 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) →
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < )) =
(-𝑒-𝑒𝐴 +𝑒
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 11 | 1, 3 | xaddcld 9959 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +𝑒 𝐵) ∈
ℝ*) |
| 12 | 1, 5 | xaddcld 9959 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +𝑒 𝐶) ∈
ℝ*) |
| 13 | | xrminmax 11430 |
. . . 4
⊢ (((𝐴 +𝑒 𝐵) ∈ ℝ*
∧ (𝐴
+𝑒 𝐶)
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, <
)) |
| 14 | 11, 12, 13 | syl2anc 411 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, <
)) |
| 15 | | xnegdi 9943 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -𝑒(𝐴 +𝑒 𝐵) = (-𝑒𝐴 +𝑒
-𝑒𝐵)) |
| 16 | 1, 3, 15 | syl2anc 411 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒(𝐴 +𝑒 𝐵) = (-𝑒𝐴 +𝑒
-𝑒𝐵)) |
| 17 | | xnegdi 9943 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐶 ∈
ℝ*) → -𝑒(𝐴 +𝑒 𝐶) = (-𝑒𝐴 +𝑒
-𝑒𝐶)) |
| 18 | 1, 5, 17 | syl2anc 411 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒(𝐴 +𝑒 𝐶) = (-𝑒𝐴 +𝑒
-𝑒𝐶)) |
| 19 | 16, 18 | preq12d 3707 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → {-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)} = {(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}) |
| 20 | 19 | supeq1d 7053 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, <
)) |
| 21 | | xnegeq 9902 |
. . . 4
⊢
(sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) →
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, <
)) |
| 22 | 20, 21 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) →
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, <
)) |
| 23 | | xrmaxadd 11426 |
. . . . 5
⊢
((-𝑒𝐴 ∈ ℝ* ∧
-𝑒𝐵
∈ ℝ* ∧ -𝑒𝐶 ∈ ℝ*) →
sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
(-𝑒𝐴
+𝑒 sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 24 | 2, 4, 6, 23 | syl3anc 1249 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
(-𝑒𝐴
+𝑒 sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 25 | | xnegeq 9902 |
. . . 4
⊢
(sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
(-𝑒𝐴
+𝑒 sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < )) →
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 26 | 24, 25 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) →
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 27 | 14, 22, 26 | 3eqtrd 2233 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 28 | | xnegneg 9908 |
. . . . 5
⊢ (𝐴 ∈ ℝ*
→ -𝑒-𝑒𝐴 = 𝐴) |
| 29 | 28 | eqcomd 2202 |
. . . 4
⊢ (𝐴 ∈ ℝ*
→ 𝐴 =
-𝑒-𝑒𝐴) |
| 30 | 1, 29 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐴 =
-𝑒-𝑒𝐴) |
| 31 | | xrminmax 11430 |
. . . 4
⊢ ((𝐵 ∈ ℝ*
∧ 𝐶 ∈
ℝ*) → inf({𝐵, 𝐶}, ℝ*, < ) =
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
)) |
| 32 | 3, 5, 31 | syl2anc 411 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({𝐵, 𝐶}, ℝ*, < ) =
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
)) |
| 33 | 30, 32 | oveq12d 5940 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +𝑒 inf({𝐵, 𝐶}, ℝ*, < )) =
(-𝑒-𝑒𝐴 +𝑒
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
| 34 | 10, 27, 33 | 3eqtr4d 2239 |
1
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) = (𝐴 +𝑒
inf({𝐵, 𝐶}, ℝ*, <
))) |