Proof of Theorem trleile
| Step | Hyp | Ref
| Expression |
| 1 | | trleile.b |
. . . 4
⊢ 𝐵 = (Base‘𝐾) |
| 2 | | eqid 2735 |
. . . 4
⊢
(le‘𝐾) =
(le‘𝐾) |
| 3 | 1, 2 | tleile 18431 |
. . 3
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(le‘𝐾)𝑌 ∨ 𝑌(le‘𝐾)𝑋)) |
| 4 | | 3simpc 1150 |
. . . . . 6
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) |
| 5 | | brxp 5703 |
. . . . . 6
⊢ (𝑋(𝐵 × 𝐵)𝑌 ↔ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵)) |
| 6 | 4, 5 | sylibr 234 |
. . . . 5
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑋(𝐵 × 𝐵)𝑌) |
| 7 | | brin 5171 |
. . . . . 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 5703 |
. . . . . 6
⊢ (𝑌(𝐵 × 𝐵)𝑋 ↔ (𝑌 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵)) |
| 12 | 10, 11 | sylibr 234 |
. . . . 5
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑌(𝐵 × 𝐵)𝑋) |
| 13 | | brin 5171 |
. . . . . 6
⊢ (𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋 ↔ (𝑌(le‘𝐾)𝑋 ∧ 𝑌(𝐵 × 𝐵)𝑋)) |
| 14 | 13 | rbaib 538 |
. . . . 5
⊢ (𝑌(𝐵 × 𝐵)𝑋 → (𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋 ↔ 𝑌(le‘𝐾)𝑋)) |
| 15 | 12, 14 | syl 17 |
. . . 4
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋 ↔ 𝑌(le‘𝐾)𝑋)) |
| 16 | 9, 15 | orbi12d 918 |
. . 3
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ∨ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋) ↔ (𝑋(le‘𝐾)𝑌 ∨ 𝑌(le‘𝐾)𝑋))) |
| 17 | 3, 16 | mpbird 257 |
. 2
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ∨ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋)) |
| 18 | | trleile.l |
. . . 4
⊢ ≤ =
((le‘𝐾) ∩ (𝐵 × 𝐵)) |
| 19 | 18 | breqi 5125 |
. . 3
⊢ (𝑋 ≤ 𝑌 ↔ 𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌) |
| 20 | 18 | breqi 5125 |
. . 3
⊢ (𝑌 ≤ 𝑋 ↔ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋) |
| 21 | 19, 20 | orbi12i 914 |
. 2
⊢ ((𝑋 ≤ 𝑌 ∨ 𝑌 ≤ 𝑋) ↔ (𝑋((le‘𝐾) ∩ (𝐵 × 𝐵))𝑌 ∨ 𝑌((le‘𝐾) ∩ (𝐵 × 𝐵))𝑋)) |
| 22 | 17, 21 | sylibr 234 |
1
⊢ ((𝐾 ∈ Toset ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ≤ 𝑌 ∨ 𝑌 ≤ 𝑋)) |