Theorem rrx2plordisom 44759

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.

Step	Hyp	Ref	Expression
1		rrx2plord2.r	. . . . 5 ⊢ 𝑅 = (ℝ ↑m {1, 2})
2		eqid 2821	. . . . 5 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
3	1, 2	rrx2xpref1o 44754	. . . 4 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}):(ℝ × ℝ)–1-1-onto→𝑅
4		elxpi 5577	. . . . . 6 ⊢ (𝑎 ∈ (ℝ × ℝ) → ∃𝑐∃𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)))
5		elxpi 5577	. . . . . 6 ⊢ (𝑏 ∈ (ℝ × ℝ) → ∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)))
6		df-br 5067	. . . . . . . . . . . . 13 ⊢ (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))})
7		opelxpi 5592	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ))
8	7	adantl 484	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ))
9		eleq1 2900	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → (𝑎 ∈ (ℝ × ℝ) ↔ ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ)))
10	9	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎 ∈ (ℝ × ℝ) ↔ ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ)))
11	8, 10	mpbird 259	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → 𝑎 ∈ (ℝ × ℝ))
12		opelxpi 5592	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ))
13	12	adantl 484	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ))
14		eleq1 2900	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → (𝑏 ∈ (ℝ × ℝ) ↔ ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ)))
15	14	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑏 ∈ (ℝ × ℝ) ↔ ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ)))
16	13, 15	mpbird 259	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → 𝑏 ∈ (ℝ × ℝ))
17		fveq2 6670	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑎 → (1st ‘𝑥) = (1st ‘𝑎))
18		fveq2 6670	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑏 → (1st ‘𝑦) = (1st ‘𝑏))
19	17, 18	breqan12d 5082	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((1st ‘𝑥) < (1st ‘𝑦) ↔ (1st ‘𝑎) < (1st ‘𝑏)))
20	17, 18	eqeqan12d 2838	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((1st ‘𝑥) = (1st ‘𝑦) ↔ (1st ‘𝑎) = (1st ‘𝑏)))
21		fveq2 6670	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (2nd ‘𝑥) = (2nd ‘𝑎))
22		fveq2 6670	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (2nd ‘𝑦) = (2nd ‘𝑏))
23	21, 22	breqan12d 5082	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((2nd ‘𝑥) < (2nd ‘𝑦) ↔ (2nd ‘𝑎) < (2nd ‘𝑏)))
24	20, 23	anbi12d 632	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦)) ↔ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏))))
25	19, 24	orbi12d 915	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))) ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
26	25	opelopab2a 5422	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ (ℝ × ℝ) ∧ 𝑏 ∈ (ℝ × ℝ)) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))} ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
27	11, 16, 26	syl2an 597	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))} ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
28	6, 27	syl5bb 285	. . . . . . . . . . . 12 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
29		1ne2 11846	. . . . . . . . . . . . . . . 16 ⊢ 1 ≠ 2
30		1ex 10637	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ V
31		vex 3497	. . . . . . . . . . . . . . . . 17 ⊢ 𝑐 ∈ V
32	30, 31	fvpr1 6952	. . . . . . . . . . . . . . . 16 ⊢ (1 ≠ 2 → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = 𝑐)
33	29, 32	mp1i 13	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = 𝑐)
34		vex 3497	. . . . . . . . . . . . . . . . 17 ⊢ 𝑒 ∈ V
35	30, 34	fvpr1 6952	. . . . . . . . . . . . . . . 16 ⊢ (1 ≠ 2 → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) = 𝑒)
36	29, 35	mp1i 13	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) = 𝑒)
37	33, 36	breq12d 5079	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ↔ 𝑐 < 𝑒))
38	33, 36	eqeq12d 2837	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ↔ 𝑐 = 𝑒))
39		2ex 11715	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ V
40		vex 3497	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑑 ∈ V
41	39, 40	fvpr2 6953	. . . . . . . . . . . . . . . . 17 ⊢ (1 ≠ 2 → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) = 𝑑)
42	29, 41	mp1i 13	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) = 𝑑)
43		vex 3497	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑓 ∈ V
44	39, 43	fvpr2 6953	. . . . . . . . . . . . . . . . 17 ⊢ (1 ≠ 2 → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) = 𝑓)
45	29, 44	mp1i 13	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) = 𝑓)
46	42, 45	breq12d 5079	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) ↔ 𝑑 < 𝑓))
47	38, 46	anbi12d 632	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2)) ↔ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓)))
48	37, 47	orbi12d 915	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∨ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2))) ↔ (𝑐 < 𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓))))
49		eqid 2821	. . . . . . . . . . . . . . . 16 ⊢ {1, 2} = {1, 2}
50	49, 1	prelrrx2 44749	. . . . . . . . . . . . . . 15 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅)
51	50	adantl 484	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅)
52	49, 1	prelrrx2 44749	. . . . . . . . . . . . . . 15 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅)
53	52	adantl 484	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅)
54		rrx2plord.o	. . . . . . . . . . . . . . 15 ⊢ 𝑂 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅) ∧ ((𝑥‘1) < (𝑦‘1) ∨ ((𝑥‘1) = (𝑦‘1) ∧ (𝑥‘2) < (𝑦‘2))))}
55	54	rrx2plord 44756	. . . . . . . . . . . . . 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)))))
56	51, 53, 55	syl2an 597	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ↔ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∨ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2)))))
57	31, 40	op1std 7699	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → (1st ‘𝑎) = 𝑐)
58	57	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (1st ‘𝑎) = 𝑐)
59	34, 43	op1std 7699	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → (1st ‘𝑏) = 𝑒)
60	59	adantr 483	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (1st ‘𝑏) = 𝑒)
61	58, 60	breqan12d 5082	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((1st ‘𝑎) < (1st ‘𝑏) ↔ 𝑐 < 𝑒))
62	58, 60	eqeqan12d 2838	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((1st ‘𝑎) = (1st ‘𝑏) ↔ 𝑐 = 𝑒))
63	31, 40	op2ndd 7700	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → (2nd ‘𝑎) = 𝑑)
64	63	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (2nd ‘𝑎) = 𝑑)
65	34, 43	op2ndd 7700	. . . . . . . . . . . . . . . . 17 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → (2nd ‘𝑏) = 𝑓)
66	65	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (2nd ‘𝑏) = 𝑓)
67	64, 66	breqan12d 5082	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((2nd ‘𝑎) < (2nd ‘𝑏) ↔ 𝑑 < 𝑓))
68	62, 67	anbi12d 632	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)) ↔ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓)))
69	61, 68	orbi12d 915	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏))) ↔ (𝑐 < 𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓))))
70	48, 56, 69	3bitr4rd 314	. . . . . . . . . . . 12 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏))) ↔ {⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩}))
71		fveq2 6670	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑐, 𝑑⟩))
72		df-ov 7159	. . . . . . . . . . . . . . . 16 ⊢ (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑐, 𝑑⟩)
73	71, 72	syl6eqr 2874	. . . . . . . . . . . . . . 15 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑))
74		eqidd 2822	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}))
75		opeq2 4804	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑐 → ⟨1, 𝑥⟩ = ⟨1, 𝑐⟩)
76	75	adantr 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑐 ∧ 𝑦 = 𝑑) → ⟨1, 𝑥⟩ = ⟨1, 𝑐⟩)
77		opeq2 4804	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑑 → ⟨2, 𝑦⟩ = ⟨2, 𝑑⟩)
78	77	adantl 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑐 ∧ 𝑦 = 𝑑) → ⟨2, 𝑦⟩ = ⟨2, 𝑑⟩)
79	76, 78	preq12d 4677	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑐 ∧ 𝑦 = 𝑑) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
80	79	adantl 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) ∧ (𝑥 = 𝑐 ∧ 𝑦 = 𝑑)) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
81		simpl 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → 𝑐 ∈ ℝ)
82		simpr 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → 𝑑 ∈ ℝ)
83		prex 5333	. . . . . . . . . . . . . . . . 17 ⊢ {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ V
84	83	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ V)
85	74, 80, 81, 82, 84	ovmpod 7302	. . . . . . . . . . . . . . 15 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑) = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
86	73, 85	sylan9eq 2876	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
87	86	eqcomd 2827	. . . . . . . . . . . . 13 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎))
88		fveq2 6670	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑒, 𝑓⟩))
89		df-ov 7159	. . . . . . . . . . . . . . . 16 ⊢ (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑒, 𝑓⟩)
90	88, 89	syl6eqr 2874	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓))
91		eqidd 2822	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}))
92		opeq2 4804	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑒 → ⟨1, 𝑥⟩ = ⟨1, 𝑒⟩)
93	92	adantr 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑒 ∧ 𝑦 = 𝑓) → ⟨1, 𝑥⟩ = ⟨1, 𝑒⟩)
94		opeq2 4804	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑓 → ⟨2, 𝑦⟩ = ⟨2, 𝑓⟩)
95	94	adantl 484	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑒 ∧ 𝑦 = 𝑓) → ⟨2, 𝑦⟩ = ⟨2, 𝑓⟩)
96	93, 95	preq12d 4677	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑒 ∧ 𝑦 = 𝑓) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
97	96	adantl 484	. . . . . . . . . . . . . . . 16 ⊢ (((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) ∧ (𝑥 = 𝑒 ∧ 𝑦 = 𝑓)) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
98		simpl 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → 𝑒 ∈ ℝ)
99		simpr 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → 𝑓 ∈ ℝ)
100		prex 5333	. . . . . . . . . . . . . . . . 17 ⊢ {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ V
101	100	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ V)
102	91, 97, 98, 99, 101	ovmpod 7302	. . . . . . . . . . . . . . 15 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓) = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
103	90, 102	sylan9eq 2876	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
104	103	eqcomd 2827	. . . . . . . . . . . . 13 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))
105	87, 104	breqan12d 5082	. . . . . . . . . . . 12 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
106	28, 70, 105	3bitrd 307	. . . . . . . . . . 11 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
107	106	expcom 416	. . . . . . . . . 10 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
108	107	exlimivv 1933	. . . . . . . . 9 ⊢ (∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
109	108	com12 32	. . . . . . . 8 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
110	109	exlimivv 1933	. . . . . . 7 ⊢ (∃𝑐∃𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
111	110	imp 409	. . . . . 6 ⊢ ((∃𝑐∃𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ ∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
112	4, 5, 111	syl2an 597	. . . . 5 ⊢ ((𝑎 ∈ (ℝ × ℝ) ∧ 𝑏 ∈ (ℝ × ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
113	112	rgen2 3203	. . . 4 ⊢ ∀𝑎 ∈ (ℝ × ℝ)∀𝑏 ∈ (ℝ × ℝ)(𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))
114		df-isom 6364	. . . 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, 𝑦⟩})‘𝑏))))
115	3, 113, 114	mpbir2an 709	. . 3 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}, 𝑂((ℝ × ℝ), 𝑅)
116		rrx2plordisom.t	. . . 4 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}
117		isoeq2 7071	. . . 4 ⊢ (𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))} → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}, 𝑂((ℝ × ℝ), 𝑅)))
118	116, 117	ax-mp 5	. . 3 ⊢ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}, 𝑂((ℝ × ℝ), 𝑅))
119	115, 118	mpbir 233	. 2 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)
120		rrx2plordisom.f	. . 3 ⊢ 𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
121		isoeq1 7070	. . 3 ⊢ (𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) → (𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)))
122	120, 121	ax-mp 5	. 2 ⊢ (𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅))
123	119, 122	mpbir 233	1 ⊢ 𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843   = wceq 1537  ∃wex 1780   ∈ wcel 2114   ≠ wne 3016  ∀wral 3138  Vcvv 3494  {cpr 4569  ⟨cop 4573   class class class wbr 5066  {copab 5128   × cxp 5553  –1-1-onto→wf1o 6354  ‘cfv 6355   Isom wiso 6356  (class class class)co 7156   ∈ cmpo 7158  1^st c1st 7687  2^nd c2nd 7688   ↑_m cmap 8406  ℝcr 10536  1c1 10538   < clt 10675  2c2 11693

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-cnex 10593  ax-resscn 10594  ax-1cn 10595  ax-icn 10596  ax-addcl 10597  ax-addrcl 10598  ax-mulcl 10599  ax-mulrcl 10600  ax-mulcom 10601  ax-addass 10602  ax-mulass 10603  ax-distr 10604  ax-i2m1 10605  ax-1ne0 10606  ax-1rid 10607  ax-rnegex 10608  ax-rrecex 10609  ax-cnre 10610  ax-pre-lttri 10611  ax-pre-lttrn 10612  ax-pre-ltadd 10613  ax-pre-mulgt0 10614

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-po 5474  df-so 5475  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-isom 6364  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-1st 7689  df-2nd 7690  df-er 8289  df-map 8408  df-en 8510  df-dom 8511  df-sdom 8512  df-pnf 10677  df-mnf 10678  df-xr 10679  df-ltxr 10680  df-le 10681  df-sub 10872  df-neg 10873  df-2 11701

This theorem is referenced by:  rrx2plordso  44760