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