Proof of Theorem xrminadd
| Step | Hyp | Ref
| Expression |
| 1 | | simp1 1028 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐴 ∈
ℝ*) |
| 2 | 1 | xnegcld 10275 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -e𝐴 ∈
ℝ*) |
| 3 | | simp2 1029 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐵 ∈
ℝ*) |
| 4 | 3 | xnegcld 10275 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -e𝐵 ∈
ℝ*) |
| 5 | | simp3 1030 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐶 ∈
ℝ*) |
| 6 | 5 | xnegcld 10275 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -e𝐶 ∈
ℝ*) |
| 7 | | xrmaxcl 12044 |
. . . 4
⊢
((-e𝐵
∈ ℝ* ∧ -e𝐶 ∈ ℝ*) →
sup({-e𝐵,
-e𝐶},
ℝ*, < ) ∈ ℝ*) |
| 8 | 4, 6, 7 | syl2anc 415 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({-e𝐵, -e𝐶}, ℝ*, < ) ∈
ℝ*) |
| 9 | | xnegdi 10288 |
. . 3
⊢
((-e𝐴
∈ ℝ* ∧ sup({-e𝐵, -e𝐶}, ℝ*, < ) ∈
ℝ*) → -e(-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, < )) =
(-e-e𝐴 +e
-esup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 10 | 2, 8, 9 | syl2anc 415 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -e(-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, < )) =
(-e-e𝐴 +e
-esup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 11 | 1, 3 | xaddcld 10304 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +e 𝐵) ∈
ℝ*) |
| 12 | 1, 5 | xaddcld 10304 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +e 𝐶) ∈
ℝ*) |
| 13 | | xrminmax 12057 |
. . . 4
⊢ (((𝐴 +e 𝐵) ∈ ℝ* ∧ (𝐴 +e 𝐶) ∈ ℝ*) →
inf({(𝐴 +e 𝐵), (𝐴 +e 𝐶)}, ℝ*, < ) =
-esup({-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)}, ℝ*, <
)) |
| 14 | 11, 12, 13 | syl2anc 415 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +e 𝐵), (𝐴 +e 𝐶)}, ℝ*, < ) =
-esup({-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)}, ℝ*, <
)) |
| 15 | | xnegdi 10288 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ*) → -e(𝐴 +e 𝐵) = (-e𝐴 +e -e𝐵)) |
| 16 | 1, 3, 15 | syl2anc 415 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -e(𝐴 +e 𝐵) = (-e𝐴 +e -e𝐵)) |
| 17 | | xnegdi 10288 |
. . . . . . 7
⊢ ((𝐴 ∈ ℝ*
∧ 𝐶 ∈
ℝ*) → -e(𝐴 +e 𝐶) = (-e𝐴 +e -e𝐶)) |
| 18 | 1, 5, 17 | syl2anc 415 |
. . . . . 6
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -e(𝐴 +e 𝐶) = (-e𝐴 +e -e𝐶)) |
| 19 | 16, 18 | preq12d 3796 |
. . . . 5
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → {-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)} = {(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)}) |
| 20 | 19 | supeq1d 7334 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)}, ℝ*, < ) =
sup({(-e𝐴
+e -e𝐵), (-e𝐴 +e -e𝐶)}, ℝ*, <
)) |
| 21 | | xnegeq 10247 |
. . . 4
⊢
(sup({-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)}, ℝ*, < ) =
sup({(-e𝐴
+e -e𝐵), (-e𝐴 +e -e𝐶)}, ℝ*, < )
→ -esup({-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)}, ℝ*, < ) =
-esup({(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)},
ℝ*, < )) |
| 22 | 20, 21 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -esup({-e(𝐴 +e 𝐵), -e(𝐴 +e 𝐶)}, ℝ*, < ) =
-esup({(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)},
ℝ*, < )) |
| 23 | | xrmaxadd 12053 |
. . . . 5
⊢
((-e𝐴
∈ ℝ* ∧ -e𝐵 ∈ ℝ* ∧
-e𝐶 ∈
ℝ*) → sup({(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)},
ℝ*, < ) = (-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 24 | 2, 4, 6, 23 | syl3anc 1278 |
. . . 4
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → sup({(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)},
ℝ*, < ) = (-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 25 | | xnegeq 10247 |
. . . 4
⊢
(sup({(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)},
ℝ*, < ) = (-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, < )) →
-esup({(-e𝐴 +e -e𝐵), (-e𝐴 +e
-e𝐶)},
ℝ*, < ) = -e(-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 26 | 24, 25 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → -esup({(-e𝐴 +e
-e𝐵),
(-e𝐴
+e -e𝐶)}, ℝ*, < ) =
-e(-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 27 | 14, 22, 26 | 3eqtrd 2275 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +e 𝐵), (𝐴 +e 𝐶)}, ℝ*, < ) =
-e(-e𝐴 +e sup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 28 | | xnegneg 10253 |
. . . . 5
⊢ (𝐴 ∈ ℝ*
→ -e-e𝐴 = 𝐴) |
| 29 | 28 | eqcomd 2244 |
. . . 4
⊢ (𝐴 ∈ ℝ*
→ 𝐴 =
-e-e𝐴) |
| 30 | 1, 29 | syl 14 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → 𝐴 = -e-e𝐴) |
| 31 | | xrminmax 12057 |
. . . 4
⊢ ((𝐵 ∈ ℝ*
∧ 𝐶 ∈
ℝ*) → inf({𝐵, 𝐶}, ℝ*, < ) =
-esup({-e𝐵, -e𝐶}, ℝ*, <
)) |
| 32 | 3, 5, 31 | syl2anc 415 |
. . 3
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({𝐵, 𝐶}, ℝ*, < ) =
-esup({-e𝐵, -e𝐶}, ℝ*, <
)) |
| 33 | 30, 32 | oveq12d 6106 |
. 2
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → (𝐴 +e inf({𝐵, 𝐶}, ℝ*, < )) =
(-e-e𝐴 +e
-esup({-e𝐵, -e𝐶}, ℝ*, <
))) |
| 34 | 10, 27, 33 | 3eqtr4d 2281 |
1
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝐶
∈ ℝ*) → inf({(𝐴 +e 𝐵), (𝐴 +e 𝐶)}, ℝ*, < ) = (𝐴 +e inf({𝐵, 𝐶}, ℝ*, <
))) |