| Step | Hyp | Ref
| Expression |
| 1 | | supminfxrrnmpt.x |
. . . 4
⊢
Ⅎ𝑥𝜑 |
| 2 | | eqid 2761 |
. . . 4
⊢ (𝑥 ∈ 𝐴 ↦ 𝐵) = (𝑥 ∈ 𝐴 ↦ 𝐵) |
| 3 | | supminfxrrnmpt.b |
. . . 4
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈
ℝ*) |
| 4 | 1, 2, 3 | rnmptssd 7124 |
. . 3
⊢ (𝜑 → ran (𝑥 ∈ 𝐴 ↦ 𝐵) ⊆
ℝ*) |
| 5 | 4 | supminfxr2 46478 |
. 2
⊢ (𝜑 → sup(ran (𝑥 ∈ 𝐴 ↦ 𝐵), ℝ*, < ) =
-einf({𝑦 ∈
ℝ* ∣ -e𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵)}, ℝ*, <
)) |
| 6 | | xnegex 13338 |
. . . . . . . . . . . 12
⊢
-e𝑦 ∈
V |
| 7 | 2 | elrnmpt 5940 |
. . . . . . . . . . . 12
⊢ (
-e𝑦 ∈ V
→ ( -e𝑦
∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵) ↔ ∃𝑥 ∈ 𝐴 -e𝑦 = 𝐵)) |
| 8 | 6, 7 | ax-mp 5 |
. . . . . . . . . . 11
⊢ (
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵) ↔ ∃𝑥 ∈ 𝐴 -e𝑦 = 𝐵) |
| 9 | 8 | biimpi 219 |
. . . . . . . . . 10
⊢ (
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵) → ∃𝑥 ∈ 𝐴 -e𝑦 = 𝐵) |
| 10 | | eqid 2761 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ 𝐴 ↦ -e𝐵) = (𝑥 ∈ 𝐴 ↦ -e𝐵) |
| 11 | | xnegneg 13344 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑦 ∈ ℝ*
→ -e -e𝑦 = 𝑦) |
| 12 | 11 | eqcomd 2767 |
. . . . . . . . . . . . . . . 16
⊢ (𝑦 ∈ ℝ*
→ 𝑦 = -e
-e𝑦) |
| 13 | 12 | adantr 486 |
. . . . . . . . . . . . . . 15
⊢ ((𝑦 ∈ ℝ*
∧ -e𝑦 =
𝐵) → 𝑦 = -e
-e𝑦) |
| 14 | | xnegeq 13337 |
. . . . . . . . . . . . . . . 16
⊢ (
-e𝑦 = 𝐵 → -e
-e𝑦 =
-e𝐵) |
| 15 | 14 | adantl 487 |
. . . . . . . . . . . . . . 15
⊢ ((𝑦 ∈ ℝ*
∧ -e𝑦 =
𝐵) → -e
-e𝑦 =
-e𝐵) |
| 16 | 13, 15 | eqtrd 2796 |
. . . . . . . . . . . . . 14
⊢ ((𝑦 ∈ ℝ*
∧ -e𝑦 =
𝐵) → 𝑦 = -e𝐵) |
| 17 | 16 | ex 418 |
. . . . . . . . . . . . 13
⊢ (𝑦 ∈ ℝ*
→ ( -e𝑦 =
𝐵 → 𝑦 = -e𝐵)) |
| 18 | 17 | reximdv 3178 |
. . . . . . . . . . . 12
⊢ (𝑦 ∈ ℝ*
→ (∃𝑥 ∈
𝐴 -e𝑦 = 𝐵 → ∃𝑥 ∈ 𝐴 𝑦 = -e𝐵)) |
| 19 | 18 | imp 412 |
. . . . . . . . . . 11
⊢ ((𝑦 ∈ ℝ*
∧ ∃𝑥 ∈ 𝐴 -e𝑦 = 𝐵) → ∃𝑥 ∈ 𝐴 𝑦 = -e𝐵) |
| 20 | | simpl 488 |
. . . . . . . . . . 11
⊢ ((𝑦 ∈ ℝ*
∧ ∃𝑥 ∈ 𝐴 -e𝑦 = 𝐵) → 𝑦 ∈ ℝ*) |
| 21 | 10, 19, 20 | elrnmptd 5945 |
. . . . . . . . . 10
⊢ ((𝑦 ∈ ℝ*
∧ ∃𝑥 ∈ 𝐴 -e𝑦 = 𝐵) → 𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) |
| 22 | 9, 21 | sylan2 605 |
. . . . . . . . 9
⊢ ((𝑦 ∈ ℝ*
∧ -e𝑦 ∈
ran (𝑥 ∈ 𝐴 ↦ 𝐵)) → 𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) |
| 23 | 22 | ex 418 |
. . . . . . . 8
⊢ (𝑦 ∈ ℝ*
→ ( -e𝑦
∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵) → 𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ -e𝐵))) |
| 24 | 23 | rgen 3079 |
. . . . . . 7
⊢
∀𝑦 ∈
ℝ* ( -e𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵) → 𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) |
| 25 | | rabss 4018 |
. . . . . . . 8
⊢ ({𝑦 ∈ ℝ*
∣ -e𝑦
∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵)} ⊆ ran (𝑥 ∈ 𝐴 ↦ -e𝐵) ↔ ∀𝑦 ∈ ℝ* (
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵) → 𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ -e𝐵))) |
| 26 | 25 | biimpri 231 |
. . . . . . 7
⊢
(∀𝑦 ∈
ℝ* ( -e𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵) → 𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) → {𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)} ⊆ ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) |
| 27 | 24, 26 | ax-mp 5 |
. . . . . 6
⊢ {𝑦 ∈ ℝ*
∣ -e𝑦
∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵)} ⊆ ran (𝑥 ∈ 𝐴 ↦ -e𝐵) |
| 28 | 27 | a1i 11 |
. . . . 5
⊢ (𝜑 → {𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)} ⊆ ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) |
| 29 | | nfcv 2923 |
. . . . . . . 8
⊢
Ⅎ𝑥
-e𝑦 |
| 30 | | nfmpt1 5204 |
. . . . . . . . 9
⊢
Ⅎ𝑥(𝑥 ∈ 𝐴 ↦ 𝐵) |
| 31 | 30 | nfrn 5934 |
. . . . . . . 8
⊢
Ⅎ𝑥ran
(𝑥 ∈ 𝐴 ↦ 𝐵) |
| 32 | 29, 31 | nfel 2937 |
. . . . . . 7
⊢
Ⅎ𝑥
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵) |
| 33 | | nfcv 2923 |
. . . . . . 7
⊢
Ⅎ𝑥ℝ* |
| 34 | 32, 33 | nfrabw 3448 |
. . . . . 6
⊢
Ⅎ𝑥{𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)} |
| 35 | | xnegeq 13337 |
. . . . . . . 8
⊢ (𝑦 = -e𝐵 → -e𝑦 = -e
-e𝐵) |
| 36 | 35 | eleq1d 2846 |
. . . . . . 7
⊢ (𝑦 = -e𝐵 → ( -e𝑦 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵) ↔ -e -e𝐵 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵))) |
| 37 | 3 | xnegcld 13430 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -e𝐵 ∈
ℝ*) |
| 38 | | xnegneg 13344 |
. . . . . . . . 9
⊢ (𝐵 ∈ ℝ*
→ -e -e𝐵 = 𝐵) |
| 39 | 3, 38 | syl 18 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -e -e𝐵 = 𝐵) |
| 40 | | simpr 490 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐴) |
| 41 | 2, 40, 3 | elrnmpt1d 5946 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → 𝐵 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵)) |
| 42 | 39, 41 | eqeltrd 2861 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -e -e𝐵 ∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵)) |
| 43 | 36, 37, 42 | elrabd 3647 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 ∈ 𝐴) → -e𝐵 ∈ {𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)}) |
| 44 | 1, 34, 10, 43 | rnmptssdf 46265 |
. . . . 5
⊢ (𝜑 → ran (𝑥 ∈ 𝐴 ↦ -e𝐵) ⊆ {𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)}) |
| 45 | 28, 44 | eqssd 3948 |
. . . 4
⊢ (𝜑 → {𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)} = ran (𝑥 ∈ 𝐴 ↦ -e𝐵)) |
| 46 | 45 | infeq1d 9470 |
. . 3
⊢ (𝜑 → inf({𝑦 ∈ ℝ* ∣
-e𝑦 ∈ ran
(𝑥 ∈ 𝐴 ↦ 𝐵)}, ℝ*, < ) = inf(ran
(𝑥 ∈ 𝐴 ↦ -e𝐵), ℝ*, <
)) |
| 47 | 46 | xnegeqd 46446 |
. 2
⊢ (𝜑 → -einf({𝑦 ∈ ℝ*
∣ -e𝑦
∈ ran (𝑥 ∈ 𝐴 ↦ 𝐵)}, ℝ*, < ) =
-einf(ran (𝑥
∈ 𝐴 ↦
-e𝐵),
ℝ*, < )) |
| 48 | 5, 47 | eqtrd 2796 |
1
⊢ (𝜑 → sup(ran (𝑥 ∈ 𝐴 ↦ 𝐵), ℝ*, < ) =
-einf(ran (𝑥
∈ 𝐴 ↦
-e𝐵),
ℝ*, < )) |