| Step | Hyp | Ref
| Expression |
| 1 | | brlexod.1 |
. . . 4
⊢ (𝜑 → 𝐴 ∈ On) |
| 2 | | brlexod.2 |
. . . 4
⊢ (𝜑 → 𝐵 ∈ On) |
| 3 | 1, 2 | opelxpd 5689 |
. . 3
⊢ (𝜑 → 〈𝐴, 𝐵〉 ∈ (On ×
On)) |
| 4 | | brlexod.3 |
. . . 4
⊢ (𝜑 → 𝐶 ∈ On) |
| 5 | | brlexod.4 |
. . . 4
⊢ (𝜑 → 𝐷 ∈ On) |
| 6 | 4, 5 | opelxpd 5689 |
. . 3
⊢ (𝜑 → 〈𝐶, 𝐷〉 ∈ (On ×
On)) |
| 7 | 3, 6 | jca 521 |
. 2
⊢ (𝜑 → (〈𝐴, 𝐵〉 ∈ (On × On) ∧
〈𝐶, 𝐷〉 ∈ (On ×
On))) |
| 8 | | df-lexo 35921 |
. . . 4
⊢ LexOrd =
{〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ (On × On) ∧
𝑦 ∈ (On × On))
∧ ((1st ‘𝑥) ∈ (1st ‘𝑦) ∨ ((1st
‘𝑥) = (1st
‘𝑦) ∧
(2nd ‘𝑥)
∈ (2nd ‘𝑦))))} |
| 9 | 8 | a1i 11 |
. . 3
⊢ (𝜑 → LexOrd = {〈𝑥, 𝑦〉 ∣ ((𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On)) ∧
((1st ‘𝑥)
∈ (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd
‘𝑥) ∈
(2nd ‘𝑦))))}) |
| 10 | | fveq2 6885 |
. . . . . . 7
⊢ (𝑥 = 〈𝐴, 𝐵〉 → (1st ‘𝑥) = (1st
‘〈𝐴, 𝐵〉)) |
| 11 | | op1stg 8013 |
. . . . . . . 8
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) →
(1st ‘〈𝐴, 𝐵〉) = 𝐴) |
| 12 | 1, 2, 11 | syl2anc 596 |
. . . . . . 7
⊢ (𝜑 → (1st
‘〈𝐴, 𝐵〉) = 𝐴) |
| 13 | 10, 12 | sylan9eqr 2817 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑥 = 〈𝐴, 𝐵〉) → (1st ‘𝑥) = 𝐴) |
| 14 | 13 | adantrr 730 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → (1st ‘𝑥) = 𝐴) |
| 15 | | fveq2 6885 |
. . . . . . 7
⊢ (𝑦 = 〈𝐶, 𝐷〉 → (1st ‘𝑦) = (1st
‘〈𝐶, 𝐷〉)) |
| 16 | | op1stg 8013 |
. . . . . . . 8
⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ On) →
(1st ‘〈𝐶, 𝐷〉) = 𝐶) |
| 17 | 4, 5, 16 | syl2anc 596 |
. . . . . . 7
⊢ (𝜑 → (1st
‘〈𝐶, 𝐷〉) = 𝐶) |
| 18 | 15, 17 | sylan9eqr 2817 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑦 = 〈𝐶, 𝐷〉) → (1st ‘𝑦) = 𝐶) |
| 19 | 18 | adantrl 729 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → (1st ‘𝑦) = 𝐶) |
| 20 | 14, 19 | eleq12d 2854 |
. . . 4
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → ((1st
‘𝑥) ∈
(1st ‘𝑦)
↔ 𝐴 ∈ 𝐶)) |
| 21 | 14, 19 | eqeq12d 2776 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → ((1st
‘𝑥) = (1st
‘𝑦) ↔ 𝐴 = 𝐶)) |
| 22 | | fveq2 6885 |
. . . . . . . 8
⊢ (𝑥 = 〈𝐴, 𝐵〉 → (2nd ‘𝑥) = (2nd
‘〈𝐴, 𝐵〉)) |
| 23 | | op2ndg 8014 |
. . . . . . . . 9
⊢ ((𝐴 ∈ On ∧ 𝐵 ∈ On) →
(2nd ‘〈𝐴, 𝐵〉) = 𝐵) |
| 24 | 1, 2, 23 | syl2anc 596 |
. . . . . . . 8
⊢ (𝜑 → (2nd
‘〈𝐴, 𝐵〉) = 𝐵) |
| 25 | 22, 24 | sylan9eqr 2817 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑥 = 〈𝐴, 𝐵〉) → (2nd ‘𝑥) = 𝐵) |
| 26 | 25 | adantrr 730 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → (2nd ‘𝑥) = 𝐵) |
| 27 | | fveq2 6885 |
. . . . . . . 8
⊢ (𝑦 = 〈𝐶, 𝐷〉 → (2nd ‘𝑦) = (2nd
‘〈𝐶, 𝐷〉)) |
| 28 | | op2ndg 8014 |
. . . . . . . . 9
⊢ ((𝐶 ∈ On ∧ 𝐷 ∈ On) →
(2nd ‘〈𝐶, 𝐷〉) = 𝐷) |
| 29 | 4, 5, 28 | syl2anc 596 |
. . . . . . . 8
⊢ (𝜑 → (2nd
‘〈𝐶, 𝐷〉) = 𝐷) |
| 30 | 27, 29 | sylan9eqr 2817 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑦 = 〈𝐶, 𝐷〉) → (2nd ‘𝑦) = 𝐷) |
| 31 | 30 | adantrl 729 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → (2nd ‘𝑦) = 𝐷) |
| 32 | 26, 31 | eleq12d 2854 |
. . . . 5
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → ((2nd
‘𝑥) ∈
(2nd ‘𝑦)
↔ 𝐵 ∈ 𝐷)) |
| 33 | 21, 32 | anbi12d 644 |
. . . 4
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → (((1st
‘𝑥) = (1st
‘𝑦) ∧
(2nd ‘𝑥)
∈ (2nd ‘𝑦)) ↔ (𝐴 = 𝐶 ∧ 𝐵 ∈ 𝐷))) |
| 34 | 20, 33 | orbi12d 932 |
. . 3
⊢ ((𝜑 ∧ (𝑥 = 〈𝐴, 𝐵〉 ∧ 𝑦 = 〈𝐶, 𝐷〉)) → (((1st
‘𝑥) ∈
(1st ‘𝑦)
∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) ∈ (2nd
‘𝑦))) ↔ (𝐴 ∈ 𝐶 ∨ (𝐴 = 𝐶 ∧ 𝐵 ∈ 𝐷)))) |
| 35 | 9, 34 | brab2d 5511 |
. 2
⊢ (𝜑 → (〈𝐴, 𝐵〉LexOrd〈𝐶, 𝐷〉 ↔ ((〈𝐴, 𝐵〉 ∈ (On × On) ∧
〈𝐶, 𝐷〉 ∈ (On × On)) ∧ (𝐴 ∈ 𝐶 ∨ (𝐴 = 𝐶 ∧ 𝐵 ∈ 𝐷))))) |
| 36 | 7, 35 | mpbirand 720 |
1
⊢ (𝜑 → (〈𝐴, 𝐵〉LexOrd〈𝐶, 𝐷〉 ↔ (𝐴 ∈ 𝐶 ∨ (𝐴 = 𝐶 ∧ 𝐵 ∈ 𝐷)))) |