Proof of Theorem trleile
Step | Hyp | Ref
| Expression |
1 | | trleile.b |
. . . 4
⊢ 𝐵 = (Base‘𝐾) |
2 | | eqid 2738 |
. . . 4
⊢
(le‘𝐾) =
(le‘𝐾) |
3 | 1, 2 | tleile 18054 |
. . 3
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(le‘𝐾)𝑌 ∨ 𝑌(le‘𝐾)𝑋)) |
4 | | 3simpc 1148 |
. . . . . 6
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) |
5 | | brxp 5627 |
. . . . . 6
⊢ (𝑋(𝐵 × 𝐵)𝑌 ↔ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) |
6 | 4, 5 | sylibr 233 |
. . . . 5
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑋(𝐵 × 𝐵)𝑌) |
7 | | brin 5122 |
. . . . . 6
⊢ (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ↔ (𝑋(le‘𝐾)𝑌 ∧ 𝑋(𝐵 × 𝐵)𝑌)) |
8 | 7 | rbaib 538 |
. . . . 5
⊢ (𝑋(𝐵 × 𝐵)𝑌 → (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ↔ 𝑋(le‘𝐾)𝑌)) |
9 | 6, 8 | syl 17 |
. . . 4
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ↔ 𝑋(le‘𝐾)𝑌)) |
10 | 4 | ancomd 461 |
. . . . . 6
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑌 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) |
11 | | brxp 5627 |
. . . . . 6
⊢ (𝑌(𝐵 × 𝐵)𝑋 ↔ (𝑌 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) |
12 | 10, 11 | sylibr 233 |
. . . . 5
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑌(𝐵 × 𝐵)𝑋) |
13 | | brin 5122 |
. . . . . 6
⊢ (𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋 ↔ (𝑌(le‘𝐾)𝑋 ∧ 𝑌(𝐵 × 𝐵)𝑋)) |
14 | 13 | rbaib 538 |
. . . . 5
⊢ (𝑌(𝐵 × 𝐵)𝑋 → (𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋 ↔ 𝑌(le‘𝐾)𝑋)) |
15 | 12, 14 | syl 17 |
. . . 4
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋 ↔ 𝑌(le‘𝐾)𝑋)) |
16 | 9, 15 | orbi12d 915 |
. . 3
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ∨ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋) ↔ (𝑋(le‘𝐾)𝑌 ∨ 𝑌(le‘𝐾)𝑋))) |
17 | 3, 16 | mpbird 256 |
. 2
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ∨ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋)) |
18 | | trleile.l |
. . . 4
⊢ ≤ =
((le‘𝐾) ∩ (𝐵 × 𝐵)) |
19 | 18 | breqi 5076 |
. . 3
⊢ (𝑋 ≤ 𝑌 ↔ 𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌) |
20 | 18 | breqi 5076 |
. . 3
⊢ (𝑌 ≤ 𝑋 ↔ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋) |
21 | 19, 20 | orbi12i 911 |
. 2
⊢ ((𝑋 ≤ 𝑌 ∨ 𝑌 ≤ 𝑋) ↔ (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ∨ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋)) |
22 | 17, 21 | sylibr 233 |
1
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ≤ 𝑌 ∨ 𝑌 ≤ 𝑋)) |