Proof of Theorem supmax
| Step | Hyp | Ref
| Expression |
| 1 | | supmax.1 |
. . . . 5
⊢ R Or A |
| 2 | 1 | supub 4580 |
. . . 4
⊢ (∃x ∈ A (∀z ∈ B ¬
xRz ⋀ ∀z ∈ A (zRx → ∃y ∈ B zRy)) → (C
∈ B
→ ¬ sup(B, A, R)RC)) |
| 3 | | supmaxlem 4588 |
. . . 4
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) → ∃x ∈ A (∀z ∈ B ¬
xRz ⋀ ∀z ∈ A (zRx → ∃y ∈ B zRy))) |
| 4 | | 3simp2 789 |
. . . 4
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
C ∈
B) |
| 5 | 2, 3, 4 | sylc 68 |
. . 3
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) → ¬
sup(B, A, R)RC) |
| 6 | 1 | supnub 4582 |
. . . 4
⊢ (∃x ∈ A (∀z ∈ B ¬
xRz ⋀ ∀z ∈ A (zRx → ∃y ∈ B zRy)) → ((C
∈ A ⋀ ∀y ∈ B ¬ CRy) → ¬ CRsup(B, A, R))) |
| 7 | | 3simpb 786 |
. . . 4
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
(C ∈
A ⋀
∀y
∈ B ¬
CRy)) |
| 8 | 6, 3, 7 | sylc 68 |
. . 3
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) → ¬
CRsup(B, A, R)) |
| 9 | 5, 8 | jca 288 |
. 2
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
(¬ sup(B, A, R)RC ⋀ ¬ CRsup(B, A, R))) |
| 10 | | sotrieq2 2862 |
. . . 4
⊢ ((R Or A ⋀ (sup(B,
A, R)
∈ A ⋀ C ∈ A)) →
(sup(B, A, R) = C ↔ (¬ sup(B, A, R)RC ⋀ ¬
CRsup(B, A, R)))) |
| 11 | 1, 10 | mpan 695 |
. . 3
⊢ ((sup(B, A, R) ∈ A ⋀ C ∈ A) → (sup(B, A, R) = C ↔
(¬ sup(B, A, R)RC ⋀ ¬ CRsup(B, A, R)))) |
| 12 | 1 | supcl 4579 |
. . . 4
⊢ (∃x ∈ A (∀z ∈ B ¬
xRz ⋀ ∀z ∈ A (zRx → ∃y ∈ B zRy)) → sup(B, A, R) ∈ A) |
| 13 | 3, 12 | syl 10 |
. . 3
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
sup(B, A, R) ∈ A) |
| 14 | | 3simp1 788 |
. . 3
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
C ∈
A) |
| 15 | 11, 13, 14 | sylanc 471 |
. 2
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
(sup(B, A, R) = C ↔ (¬ sup(B, A, R)RC ⋀ ¬
CRsup(B, A, R)))) |
| 16 | 9, 15 | mpbird 196 |
1
⊢ ((C ∈ A ⋀ C ∈ B ⋀ ∀y ∈ B ¬
CRy) →
sup(B, A, R) = C) |