Proof of Theorem xrminadd
Step | Hyp | Ref
| Expression |
1 | | simp1 987 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐴 ∈
ℝ*) |
2 | 1 | xnegcld 9791 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒𝐴 ∈
ℝ*) |
3 | | simp2 988 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐵 ∈
ℝ*) |
4 | 3 | xnegcld 9791 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒𝐵 ∈
ℝ*) |
5 | | simp3 989 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐶 ∈
ℝ*) |
6 | 5 | xnegcld 9791 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒𝐶 ∈
ℝ*) |
7 | | xrmaxcl 11193 |
. . . 4
⊢
((-𝑒𝐵 ∈ ℝ* ∧
-𝑒𝐶
∈ ℝ*) → sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < ) ∈
ℝ*) |
8 | 4, 6, 7 | syl2anc 409 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < ) ∈
ℝ*) |
9 | | xnegdi 9804 |
. . 3
⊢
((-𝑒𝐴 ∈ ℝ* ∧
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < ) ∈
ℝ*) → -𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < )) =
(-𝑒-𝑒𝐴 +𝑒
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
10 | 2, 8, 9 | syl2anc 409 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) →
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < )) =
(-𝑒-𝑒𝐴 +𝑒
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
11 | 1, 3 | xaddcld 9820 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +𝑒 𝐵) ∈
ℝ*) |
12 | 1, 5 | xaddcld 9820 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +𝑒 𝐶) ∈
ℝ*) |
13 | | xrminmax 11206 |
. . . 4
⊢ (((𝐴 +𝑒 𝐵) ∈ ℝ*
∧ (𝐴
+𝑒 𝐶)
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, <
)) |
14 | 11, 12, 13 | syl2anc 409 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, <
)) |
15 | | xnegdi 9804 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -𝑒(𝐴 +𝑒 𝐵) = (-𝑒𝐴 +𝑒
-𝑒𝐵)) |
16 | 1, 3, 15 | syl2anc 409 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒(𝐴 +𝑒 𝐵) = (-𝑒𝐴 +𝑒
-𝑒𝐵)) |
17 | | xnegdi 9804 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐶 ∈
ℝ*) → -𝑒(𝐴 +𝑒 𝐶) = (-𝑒𝐴 +𝑒
-𝑒𝐶)) |
18 | 1, 5, 17 | syl2anc 409 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -𝑒(𝐴 +𝑒 𝐶) = (-𝑒𝐴 +𝑒
-𝑒𝐶)) |
19 | 16, 18 | preq12d 3661 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → {-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)} = {(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}) |
20 | 19 | supeq1d 6952 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, <
)) |
21 | | xnegeq 9763 |
. . . 4
⊢
(sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) →
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, <
)) |
22 | 20, 21 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) →
-𝑒sup({-𝑒(𝐴 +𝑒 𝐵), -𝑒(𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, <
)) |
23 | | xrmaxadd 11202 |
. . . . 5
⊢
((-𝑒𝐴 ∈ ℝ* ∧
-𝑒𝐵
∈ ℝ* ∧ -𝑒𝐶 ∈ ℝ*) →
sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
(-𝑒𝐴
+𝑒 sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
24 | 2, 4, 6, 23 | syl3anc 1228 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
(-𝑒𝐴
+𝑒 sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
25 | | xnegeq 9763 |
. . . 4
⊢
(sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
(-𝑒𝐴
+𝑒 sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, < )) →
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
26 | 24, 25 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) →
-𝑒sup({(-𝑒𝐴 +𝑒
-𝑒𝐵),
(-𝑒𝐴
+𝑒 -𝑒𝐶)}, ℝ*, < ) =
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
27 | 14, 22, 26 | 3eqtrd 2202 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) =
-𝑒(-𝑒𝐴 +𝑒
sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
28 | | xnegneg 9769 |
. . . . 5
⊢ (𝐴 ∈ ℝ*
→ -𝑒-𝑒𝐴 = 𝐴) |
29 | 28 | eqcomd 2171 |
. . . 4
⊢ (𝐴 ∈ ℝ*
→ 𝐴 =
-𝑒-𝑒𝐴) |
30 | 1, 29 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐴 =
-𝑒-𝑒𝐴) |
31 | | xrminmax 11206 |
. . . 4
⊢ ((𝐵 ∈ ℝ*
∧ 𝐶 ∈
ℝ*) → inf({𝐵, 𝐶}, ℝ*, < ) =
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
)) |
32 | 3, 5, 31 | syl2anc 409 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({𝐵, 𝐶}, ℝ*, < ) =
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
)) |
33 | 30, 32 | oveq12d 5860 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +𝑒 inf({𝐵, 𝐶}, ℝ*, < )) =
(-𝑒-𝑒𝐴 +𝑒
-𝑒sup({-𝑒𝐵, -𝑒𝐶}, ℝ*, <
))) |
34 | 10, 27, 33 | 3eqtr4d 2208 |
1
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +𝑒 𝐵), (𝐴 +𝑒 𝐶)}, ℝ*, < ) = (𝐴 +𝑒
inf({𝐵, 𝐶}, ℝ*, <
))) |