Proof of Theorem supub
| Step | Hyp | Ref
| Expression |
| 1 | | breq2 2066 |
. . . . 5
⊢ (w =
C → (sup(B, A, R)Rw ↔ sup(B,
A, R)RC)) |
| 2 | 1 | negbid 463 |
. . . 4
⊢ (w =
C → (¬ sup(B, A, R)Rw ↔ ¬ sup(B, A, R)RC)) |
| 3 | 2 | imbi2d 464 |
. . 3
⊢ (w =
C → ((∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
¬ sup(B, A, R)Rw) ↔
(∃x ∈ A (∀y
∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
¬ sup(B, A, R)RC))) |
| 4 | | df-sup 2154 |
. . . . . . . 8
⊢ sup(B,
A, R) =
∪{x ∈
A∣(∀y ∈ B ¬
xRy ∧
∀y ∈ A (yRx →
∃z ∈ B yRz))} |
| 5 | 4 | cleqcomi 1105 |
. . . . . . 7
⊢ ∪{x ∈ A∣(∀y ∈ B ¬
xRy ∧
∀y ∈ A (yRx →
∃z ∈ B yRz))} =
sup(B, A, R) |
| 6 | | breq1 2065 |
. . . . . . . . . . . 12
⊢ (x =
sup(B, A, R) →
(xRy ↔
sup(B, A, R)Ry)) |
| 7 | 6 | negbid 463 |
. . . . . . . . . . 11
⊢ (x =
sup(B, A, R) →
(¬ xRy ↔ ¬
sup(B, A, R)Ry)) |
| 8 | 7 | biraldv 1219 |
. . . . . . . . . 10
⊢ (x =
sup(B, A, R) →
(∀y ∈ B ¬ xRy ↔ ∀y ∈ B ¬
sup(B, A, R)Ry)) |
| 9 | | breq2 2066 |
. . . . . . . . . . . 12
⊢ (x =
sup(B, A, R) →
(yRx ↔
yRsup(B, A, R))) |
| 10 | 9 | imbi1d 465 |
. . . . . . . . . . 11
⊢ (x =
sup(B, A, R) →
((yRx →
∃z ∈ B yRz) ↔
(yRsup(B, A, R) →
∃z ∈ B yRz))) |
| 11 | 10 | biraldv 1219 |
. . . . . . . . . 10
⊢ (x =
sup(B, A, R) →
(∀y ∈ A (yRx →
∃z ∈ B yRz) ↔
∀y ∈ A (yRsup(B, A, R) →
∃z ∈ B yRz))) |
| 12 | 8, 11 | anbi12d 476 |
. . . . . . . . 9
⊢ (x =
sup(B, A, R) →
((∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) ↔
(∀y ∈ B ¬ sup(B,
A, R)Ry ∧ ∀y ∈ A
(yRsup(B, A, R) →
∃z ∈ B yRz)))) |
| 13 | 12 | reuuni2 1956 |
. . . . . . . 8
⊢ ((sup(B, A, R) ∈ A
∧ ∃!x ∈ A (∀y
∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz))) →
((∀y ∈ B ¬ sup(B,
A, R)Ry ∧ ∀y ∈ A
(yRsup(B, A, R) →
∃z ∈ B yRz)) ↔
∪{x ∈
A∣(∀y ∈ B ¬
xRy ∧
∀y ∈ A (yRx →
∃z ∈ B yRz))} =
sup(B, A, R))) |
| 14 | | supmo.1 |
. . . . . . . . 9
⊢ R Or
A |
| 15 | 14 | supcl 2159 |
. . . . . . . 8
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
sup(B, A, R) ∈
A) |
| 16 | 14 | supeu 2158 |
. . . . . . . 8
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
∃!x ∈ A (∀y
∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz))) |
| 17 | 13, 15, 16 | sylanc 361 |
. . . . . . 7
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
((∀y ∈ B ¬ sup(B,
A, R)Ry ∧ ∀y ∈ A
(yRsup(B, A, R) →
∃z ∈ B yRz)) ↔
∪{x ∈
A∣(∀y ∈ B ¬
xRy ∧
∀y ∈ A (yRx →
∃z ∈ B yRz))} =
sup(B, A, R))) |
| 18 | 5, 17 | mpbiri 169 |
. . . . . 6
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
(∀y ∈ B ¬ sup(B,
A, R)Ry ∧ ∀y ∈ A
(yRsup(B, A, R) →
∃z ∈ B yRz))) |
| 19 | 18 | pm3.26d 258 |
. . . . 5
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
∀y ∈ B ¬ sup(B,
A, R)Ry) |
| 20 | | breq2 2066 |
. . . . . . 7
⊢ (y =
w → (sup(B, A, R)Ry ↔ sup(B,
A, R)Rw)) |
| 21 | 20 | negbid 463 |
. . . . . 6
⊢ (y =
w → (¬ sup(B, A, R)Ry ↔ ¬ sup(B, A, R)Rw)) |
| 22 | 21 | rcla4v 1402 |
. . . . 5
⊢ (∀y ∈ B ¬
sup(B, A, R)Ry →
(w ∈ B → ¬ sup(B, A, R)Rw)) |
| 23 | 19, 22 | syl 12 |
. . . 4
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
(w ∈ B → ¬ sup(B, A, R)Rw)) |
| 24 | 23 | com12 13 |
. . 3
⊢ (w
∈ B → (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
¬ sup(B, A, R)Rw)) |
| 25 | 3, 24 | vtoclga 1387 |
. 2
⊢ (C
∈ B → (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
¬ sup(B, A, R)RC)) |
| 26 | 25 | com12 13 |
1
⊢ (∃x ∈ A
(∀y ∈ B ¬ xRy ∧ ∀y ∈ A
(yRx →
∃z ∈ B yRz)) →
(C ∈ B → ¬ sup(B, A, R)RC)) |