Proof of Theorem infglbti
Step | Hyp | Ref
| Expression |
1 | | df-inf 6962 |
. . . . 5
⊢ inf(𝐵, 𝐴, 𝑅) = sup(𝐵, 𝐴, ◡𝑅) |
2 | 1 | breq1i 3996 |
. . . 4
⊢
(inf(𝐵, 𝐴, 𝑅)𝑅𝐶 ↔ sup(𝐵, 𝐴, ◡𝑅)𝑅𝐶) |
3 | | simpr 109 |
. . . . 5
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → 𝐶 ∈ 𝐴) |
4 | | infclti.ti |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢𝑅𝑣 ∧ ¬ 𝑣𝑅𝑢))) |
5 | 4 | cnvti 6996 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑢 ∈ 𝐴 ∧ 𝑣 ∈ 𝐴)) → (𝑢 = 𝑣 ↔ (¬ 𝑢◡𝑅𝑣 ∧ ¬ 𝑣◡𝑅𝑢))) |
6 | | infclti.ex |
. . . . . . . 8
⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑦𝑅𝑥 ∧ ∀𝑦 ∈ 𝐴 (𝑥𝑅𝑦 → ∃𝑧 ∈ 𝐵 𝑧𝑅𝑦))) |
7 | 6 | cnvinfex 6995 |
. . . . . . 7
⊢ (𝜑 → ∃𝑥 ∈ 𝐴 (∀𝑦 ∈ 𝐵 ¬ 𝑥◡𝑅𝑦 ∧ ∀𝑦 ∈ 𝐴 (𝑦◡𝑅𝑥 → ∃𝑧 ∈ 𝐵 𝑦◡𝑅𝑧))) |
8 | 5, 7 | supclti 6975 |
. . . . . 6
⊢ (𝜑 → sup(𝐵, 𝐴, ◡𝑅) ∈ 𝐴) |
9 | 8 | adantr 274 |
. . . . 5
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → sup(𝐵, 𝐴, ◡𝑅) ∈ 𝐴) |
10 | | brcnvg 4792 |
. . . . . 6
⊢ ((𝐶 ∈ 𝐴 ∧ sup(𝐵, 𝐴, ◡𝑅) ∈ 𝐴) → (𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅) ↔ sup(𝐵, 𝐴, ◡𝑅)𝑅𝐶)) |
11 | 10 | bicomd 140 |
. . . . 5
⊢ ((𝐶 ∈ 𝐴 ∧ sup(𝐵, 𝐴, ◡𝑅) ∈ 𝐴) → (sup(𝐵, 𝐴, ◡𝑅)𝑅𝐶 ↔ 𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅))) |
12 | 3, 9, 11 | syl2anc 409 |
. . . 4
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (sup(𝐵, 𝐴, ◡𝑅)𝑅𝐶 ↔ 𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅))) |
13 | 2, 12 | syl5bb 191 |
. . 3
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (inf(𝐵, 𝐴, 𝑅)𝑅𝐶 ↔ 𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅))) |
14 | 5, 7 | suplubti 6977 |
. . . . 5
⊢ (𝜑 → ((𝐶 ∈ 𝐴 ∧ 𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅)) → ∃𝑧 ∈ 𝐵 𝐶◡𝑅𝑧)) |
15 | 14 | expdimp 257 |
. . . 4
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅) → ∃𝑧 ∈ 𝐵 𝐶◡𝑅𝑧)) |
16 | | vex 2733 |
. . . . . 6
⊢ 𝑧 ∈ V |
17 | | brcnvg 4792 |
. . . . . 6
⊢ ((𝐶 ∈ 𝐴 ∧ 𝑧 ∈ V) → (𝐶◡𝑅𝑧 ↔ 𝑧𝑅𝐶)) |
18 | 3, 16, 17 | sylancl 411 |
. . . . 5
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (𝐶◡𝑅𝑧 ↔ 𝑧𝑅𝐶)) |
19 | 18 | rexbidv 2471 |
. . . 4
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (∃𝑧 ∈ 𝐵 𝐶◡𝑅𝑧 ↔ ∃𝑧 ∈ 𝐵 𝑧𝑅𝐶)) |
20 | 15, 19 | sylibd 148 |
. . 3
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (𝐶◡𝑅sup(𝐵, 𝐴, ◡𝑅) → ∃𝑧 ∈ 𝐵 𝑧𝑅𝐶)) |
21 | 13, 20 | sylbid 149 |
. 2
⊢ ((𝜑 ∧ 𝐶 ∈ 𝐴) → (inf(𝐵, 𝐴, 𝑅)𝑅𝐶 → ∃𝑧 ∈ 𝐵 𝑧𝑅𝐶)) |
22 | 21 | expimpd 361 |
1
⊢ (𝜑 → ((𝐶 ∈ 𝐴 ∧ inf(𝐵, 𝐴, 𝑅)𝑅𝐶) → ∃𝑧 ∈ 𝐵 𝑧𝑅𝐶)) |