Users' Mathboxes Mathbox for Alexander van der Vekens < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  rrx2plordisom Structured version   Visualization version   GIF version

Theorem rrx2plordisom 46779
Description: The set of points in the two dimensional Euclidean plane with the lexicographical ordering is isomorphic to the cartesian product of the real numbers with the lexicographical ordering implied by the ordering of the real numbers. (Contributed by AV, 12-Mar-2023.)
Hypotheses
Ref Expression
rrx2plord.o 𝑂 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝑅𝑦𝑅) ∧ ((𝑥‘1) < (𝑦‘1) ∨ ((𝑥‘1) = (𝑦‘1) ∧ (𝑥‘2) < (𝑦‘2))))}
rrx2plord2.r 𝑅 = (ℝ ↑m {1, 2})
rrx2plordisom.f 𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
rrx2plordisom.t 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}
Assertion
Ref Expression
rrx2plordisom 𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)
Distinct variable group:   𝑥,𝑅,𝑦
Allowed substitution hints:   𝑇(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝑂(𝑥,𝑦)

Proof of Theorem rrx2plordisom
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 rrx2plord2.r . . . . 5 𝑅 = (ℝ ↑m {1, 2})
2 eqid 2736 . . . . 5 (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
31, 2rrx2xpref1o 46774 . . . 4 (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}):(ℝ × ℝ)–1-1-onto𝑅
4 elxpi 5654 . . . . . 6 (𝑎 ∈ (ℝ × ℝ) → ∃𝑐𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)))
5 elxpi 5654 . . . . . 6 (𝑏 ∈ (ℝ × ℝ) → ∃𝑒𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)))
6 df-br 5105 . . . . . . . . . . . . 13 (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))})
7 opelxpi 5669 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ))
87adantl 482 . . . . . . . . . . . . . . 15 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ))
9 eleq1 2825 . . . . . . . . . . . . . . . 16 (𝑎 = ⟨𝑐, 𝑑⟩ → (𝑎 ∈ (ℝ × ℝ) ↔ ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ)))
109adantr 481 . . . . . . . . . . . . . . 15 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎 ∈ (ℝ × ℝ) ↔ ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ)))
118, 10mpbird 256 . . . . . . . . . . . . . 14 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → 𝑎 ∈ (ℝ × ℝ))
12 opelxpi 5669 . . . . . . . . . . . . . . . 16 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ))
1312adantl 482 . . . . . . . . . . . . . . 15 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ))
14 eleq1 2825 . . . . . . . . . . . . . . . 16 (𝑏 = ⟨𝑒, 𝑓⟩ → (𝑏 ∈ (ℝ × ℝ) ↔ ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ)))
1514adantr 481 . . . . . . . . . . . . . . 15 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑏 ∈ (ℝ × ℝ) ↔ ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ)))
1613, 15mpbird 256 . . . . . . . . . . . . . 14 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → 𝑏 ∈ (ℝ × ℝ))
17 fveq2 6840 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑎 → (1st𝑥) = (1st𝑎))
18 fveq2 6840 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑏 → (1st𝑦) = (1st𝑏))
1917, 18breqan12d 5120 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑎𝑦 = 𝑏) → ((1st𝑥) < (1st𝑦) ↔ (1st𝑎) < (1st𝑏)))
2017, 18eqeqan12d 2750 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑎𝑦 = 𝑏) → ((1st𝑥) = (1st𝑦) ↔ (1st𝑎) = (1st𝑏)))
21 fveq2 6840 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑎 → (2nd𝑥) = (2nd𝑎))
22 fveq2 6840 . . . . . . . . . . . . . . . . . 18 (𝑦 = 𝑏 → (2nd𝑦) = (2nd𝑏))
2321, 22breqan12d 5120 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑎𝑦 = 𝑏) → ((2nd𝑥) < (2nd𝑦) ↔ (2nd𝑎) < (2nd𝑏)))
2420, 23anbi12d 631 . . . . . . . . . . . . . . . 16 ((𝑥 = 𝑎𝑦 = 𝑏) → (((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦)) ↔ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏))))
2519, 24orbi12d 917 . . . . . . . . . . . . . . 15 ((𝑥 = 𝑎𝑦 = 𝑏) → (((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))) ↔ ((1st𝑎) < (1st𝑏) ∨ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏)))))
2625opelopab2a 5491 . . . . . . . . . . . . . 14 ((𝑎 ∈ (ℝ × ℝ) ∧ 𝑏 ∈ (ℝ × ℝ)) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))} ↔ ((1st𝑎) < (1st𝑏) ∨ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏)))))
2711, 16, 26syl2an 596 . . . . . . . . . . . . 13 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))} ↔ ((1st𝑎) < (1st𝑏) ∨ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏)))))
286, 27bitrid 282 . . . . . . . . . . . 12 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((1st𝑎) < (1st𝑏) ∨ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏)))))
29 1ne2 12358 . . . . . . . . . . . . . . . 16 1 ≠ 2
30 1ex 11148 . . . . . . . . . . . . . . . . 17 1 ∈ V
31 vex 3448 . . . . . . . . . . . . . . . . 17 𝑐 ∈ V
3230, 31fvpr1 7136 . . . . . . . . . . . . . . . 16 (1 ≠ 2 → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = 𝑐)
3329, 32mp1i 13 . . . . . . . . . . . . . . 15 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = 𝑐)
34 vex 3448 . . . . . . . . . . . . . . . . 17 𝑒 ∈ V
3530, 34fvpr1 7136 . . . . . . . . . . . . . . . 16 (1 ≠ 2 → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) = 𝑒)
3629, 35mp1i 13 . . . . . . . . . . . . . . 15 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) = 𝑒)
3733, 36breq12d 5117 . . . . . . . . . . . . . 14 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ↔ 𝑐 < 𝑒))
3833, 36eqeq12d 2752 . . . . . . . . . . . . . . 15 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ↔ 𝑐 = 𝑒))
39 2ex 12227 . . . . . . . . . . . . . . . . . 18 2 ∈ V
40 vex 3448 . . . . . . . . . . . . . . . . . 18 𝑑 ∈ V
4139, 40fvpr2 7138 . . . . . . . . . . . . . . . . 17 (1 ≠ 2 → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) = 𝑑)
4229, 41mp1i 13 . . . . . . . . . . . . . . . 16 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) = 𝑑)
43 vex 3448 . . . . . . . . . . . . . . . . . 18 𝑓 ∈ V
4439, 43fvpr2 7138 . . . . . . . . . . . . . . . . 17 (1 ≠ 2 → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) = 𝑓)
4529, 44mp1i 13 . . . . . . . . . . . . . . . 16 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) = 𝑓)
4642, 45breq12d 5117 . . . . . . . . . . . . . . 15 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) ↔ 𝑑 < 𝑓))
4738, 46anbi12d 631 . . . . . . . . . . . . . 14 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2)) ↔ (𝑐 = 𝑒𝑑 < 𝑓)))
4837, 47orbi12d 917 . . . . . . . . . . . . 13 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∨ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2))) ↔ (𝑐 < 𝑒 ∨ (𝑐 = 𝑒𝑑 < 𝑓))))
49 eqid 2736 . . . . . . . . . . . . . . . 16 {1, 2} = {1, 2}
5049, 1prelrrx2 46769 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅)
5150adantl 482 . . . . . . . . . . . . . 14 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅)
5249, 1prelrrx2 46769 . . . . . . . . . . . . . . 15 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅)
5352adantl 482 . . . . . . . . . . . . . 14 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅)
54 rrx2plord.o . . . . . . . . . . . . . . 15 𝑂 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝑅𝑦𝑅) ∧ ((𝑥‘1) < (𝑦‘1) ∨ ((𝑥‘1) = (𝑦‘1) ∧ (𝑥‘2) < (𝑦‘2))))}
5554rrx2plord 46776 . . . . . . . . . . . . . 14 (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅 ∧ {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ↔ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∨ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2)))))
5651, 53, 55syl2an 596 . . . . . . . . . . . . 13 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ↔ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∨ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2)))))
5731, 40op1std 7928 . . . . . . . . . . . . . . . 16 (𝑎 = ⟨𝑐, 𝑑⟩ → (1st𝑎) = 𝑐)
5857adantr 481 . . . . . . . . . . . . . . 15 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (1st𝑎) = 𝑐)
5934, 43op1std 7928 . . . . . . . . . . . . . . . 16 (𝑏 = ⟨𝑒, 𝑓⟩ → (1st𝑏) = 𝑒)
6059adantr 481 . . . . . . . . . . . . . . 15 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (1st𝑏) = 𝑒)
6158, 60breqan12d 5120 . . . . . . . . . . . . . 14 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((1st𝑎) < (1st𝑏) ↔ 𝑐 < 𝑒))
6258, 60eqeqan12d 2750 . . . . . . . . . . . . . . 15 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((1st𝑎) = (1st𝑏) ↔ 𝑐 = 𝑒))
6331, 40op2ndd 7929 . . . . . . . . . . . . . . . . 17 (𝑎 = ⟨𝑐, 𝑑⟩ → (2nd𝑎) = 𝑑)
6463adantr 481 . . . . . . . . . . . . . . . 16 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (2nd𝑎) = 𝑑)
6534, 43op2ndd 7929 . . . . . . . . . . . . . . . . 17 (𝑏 = ⟨𝑒, 𝑓⟩ → (2nd𝑏) = 𝑓)
6665adantr 481 . . . . . . . . . . . . . . . 16 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (2nd𝑏) = 𝑓)
6764, 66breqan12d 5120 . . . . . . . . . . . . . . 15 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((2nd𝑎) < (2nd𝑏) ↔ 𝑑 < 𝑓))
6862, 67anbi12d 631 . . . . . . . . . . . . . 14 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏)) ↔ (𝑐 = 𝑒𝑑 < 𝑓)))
6961, 68orbi12d 917 . . . . . . . . . . . . 13 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st𝑎) < (1st𝑏) ∨ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏))) ↔ (𝑐 < 𝑒 ∨ (𝑐 = 𝑒𝑑 < 𝑓))))
7048, 56, 693bitr4rd 311 . . . . . . . . . . . 12 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st𝑎) < (1st𝑏) ∨ ((1st𝑎) = (1st𝑏) ∧ (2nd𝑎) < (2nd𝑏))) ↔ {⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩}))
71 fveq2 6840 . . . . . . . . . . . . . . . 16 (𝑎 = ⟨𝑐, 𝑑⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑐, 𝑑⟩))
72 df-ov 7357 . . . . . . . . . . . . . . . 16 (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑐, 𝑑⟩)
7371, 72eqtr4di 2794 . . . . . . . . . . . . . . 15 (𝑎 = ⟨𝑐, 𝑑⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑))
74 eqidd 2737 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}))
75 opeq2 4830 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑐 → ⟨1, 𝑥⟩ = ⟨1, 𝑐⟩)
7675adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝑥 = 𝑐𝑦 = 𝑑) → ⟨1, 𝑥⟩ = ⟨1, 𝑐⟩)
77 opeq2 4830 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑑 → ⟨2, 𝑦⟩ = ⟨2, 𝑑⟩)
7877adantl 482 . . . . . . . . . . . . . . . . . 18 ((𝑥 = 𝑐𝑦 = 𝑑) → ⟨2, 𝑦⟩ = ⟨2, 𝑑⟩)
7976, 78preq12d 4701 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑐𝑦 = 𝑑) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
8079adantl 482 . . . . . . . . . . . . . . . 16 (((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) ∧ (𝑥 = 𝑐𝑦 = 𝑑)) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
81 simpl 483 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → 𝑐 ∈ ℝ)
82 simpr 485 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → 𝑑 ∈ ℝ)
83 prex 5388 . . . . . . . . . . . . . . . . 17 {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ V
8483a1i 11 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ V)
8574, 80, 81, 82, 84ovmpod 7504 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑) = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
8673, 85sylan9eq 2796 . . . . . . . . . . . . . 14 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
8786eqcomd 2742 . . . . . . . . . . . . 13 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎))
88 fveq2 6840 . . . . . . . . . . . . . . . 16 (𝑏 = ⟨𝑒, 𝑓⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑒, 𝑓⟩))
89 df-ov 7357 . . . . . . . . . . . . . . . 16 (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑒, 𝑓⟩)
9088, 89eqtr4di 2794 . . . . . . . . . . . . . . 15 (𝑏 = ⟨𝑒, 𝑓⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓))
91 eqidd 2737 . . . . . . . . . . . . . . . 16 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}))
92 opeq2 4830 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑒 → ⟨1, 𝑥⟩ = ⟨1, 𝑒⟩)
9392adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝑥 = 𝑒𝑦 = 𝑓) → ⟨1, 𝑥⟩ = ⟨1, 𝑒⟩)
94 opeq2 4830 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 𝑓 → ⟨2, 𝑦⟩ = ⟨2, 𝑓⟩)
9594adantl 482 . . . . . . . . . . . . . . . . . 18 ((𝑥 = 𝑒𝑦 = 𝑓) → ⟨2, 𝑦⟩ = ⟨2, 𝑓⟩)
9693, 95preq12d 4701 . . . . . . . . . . . . . . . . 17 ((𝑥 = 𝑒𝑦 = 𝑓) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
9796adantl 482 . . . . . . . . . . . . . . . 16 (((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) ∧ (𝑥 = 𝑒𝑦 = 𝑓)) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
98 simpl 483 . . . . . . . . . . . . . . . 16 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → 𝑒 ∈ ℝ)
99 simpr 485 . . . . . . . . . . . . . . . 16 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → 𝑓 ∈ ℝ)
100 prex 5388 . . . . . . . . . . . . . . . . 17 {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ V
101100a1i 11 . . . . . . . . . . . . . . . 16 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ V)
10291, 97, 98, 99, 101ovmpod 7504 . . . . . . . . . . . . . . 15 ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓) = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
10390, 102sylan9eq 2796 . . . . . . . . . . . . . 14 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
104103eqcomd 2742 . . . . . . . . . . . . 13 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))
10587, 104breqan12d 5120 . . . . . . . . . . . 12 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
10628, 70, 1053bitrd 304 . . . . . . . . . . 11 (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
107106expcom 414 . . . . . . . . . 10 ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
108107exlimivv 1935 . . . . . . . . 9 (∃𝑒𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
109108com12 32 . . . . . . . 8 ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (∃𝑒𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
110109exlimivv 1935 . . . . . . 7 (∃𝑐𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (∃𝑒𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
111110imp 407 . . . . . 6 ((∃𝑐𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ ∃𝑒𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
1124, 5, 111syl2an 596 . . . . 5 ((𝑎 ∈ (ℝ × ℝ) ∧ 𝑏 ∈ (ℝ × ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
113112rgen2 3193 . . . 4 𝑎 ∈ (ℝ × ℝ)∀𝑏 ∈ (ℝ × ℝ)(𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))
114 df-isom 6503 . . . 4 ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}, 𝑂((ℝ × ℝ), 𝑅) ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}):(ℝ × ℝ)–1-1-onto𝑅 ∧ ∀𝑎 ∈ (ℝ × ℝ)∀𝑏 ∈ (ℝ × ℝ)(𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
1153, 113, 114mpbir2an 709 . . 3 (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}, 𝑂((ℝ × ℝ), 𝑅)
116 rrx2plordisom.t . . . 4 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}
117 isoeq2 7260 . . . 4 (𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))} → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}, 𝑂((ℝ × ℝ), 𝑅)))
118116, 117ax-mp 5 . . 3 ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st𝑥) < (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) < (2nd𝑦))))}, 𝑂((ℝ × ℝ), 𝑅))
119115, 118mpbir 230 . 2 (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)
120 rrx2plordisom.f . . 3 𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
121 isoeq1 7259 . . 3 (𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) → (𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)))
122120, 121ax-mp 5 . 2 (𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅))
123119, 122mpbir 230 1 𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  wo 845   = wceq 1541  wex 1781  wcel 2106  wne 2942  wral 3063  Vcvv 3444  {cpr 4587  cop 4591   class class class wbr 5104  {copab 5166   × cxp 5630  1-1-ontowf1o 6493  cfv 6494   Isom wiso 6495  (class class class)co 7354  cmpo 7356  1st c1st 7916  2nd c2nd 7917  m cmap 8762  cr 11047  1c1 11049   < clt 11186  2c2 12205
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7669  ax-cnex 11104  ax-resscn 11105  ax-1cn 11106  ax-icn 11107  ax-addcl 11108  ax-addrcl 11109  ax-mulcl 11110  ax-mulrcl 11111  ax-mulcom 11112  ax-addass 11113  ax-mulass 11114  ax-distr 11115  ax-i2m1 11116  ax-1ne0 11117  ax-1rid 11118  ax-rnegex 11119  ax-rrecex 11120  ax-cnre 11121  ax-pre-lttri 11122  ax-pre-lttrn 11123  ax-pre-ltadd 11124  ax-pre-mulgt0 11125
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3064  df-rex 3073  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-iun 4955  df-br 5105  df-opab 5167  df-mpt 5188  df-id 5530  df-po 5544  df-so 5545  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-isom 6503  df-riota 7310  df-ov 7357  df-oprab 7358  df-mpo 7359  df-1st 7918  df-2nd 7919  df-er 8645  df-map 8764  df-en 8881  df-dom 8882  df-sdom 8883  df-pnf 11188  df-mnf 11189  df-xr 11190  df-ltxr 11191  df-le 11192  df-sub 11384  df-neg 11385  df-2 12213
This theorem is referenced by:  rrx2plordso  46780
  Copyright terms: Public domain W3C validator