Theorem rrx2plordisom 49757

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 2760	. . . . 5 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
3	1, 2	rrx2xpref1o 49752	. . . 4 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}):(ℝ × ℝ)–1-1-onto→𝑅
4		elxpi 5669	. . . . . 6 ⊢ (𝑎 ∈ (ℝ × ℝ) → ∃𝑐∃𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)))
5		elxpi 5669	. . . . . 6 ⊢ (𝑏 ∈ (ℝ × ℝ) → ∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)))
6		df-br 5103	. . . . . . . . . . . . 13 ⊢ (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))})
7		opelxpi 5684	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ))
8	7	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ))
9		eleq1 2848	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → (𝑎 ∈ (ℝ × ℝ) ↔ ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ)))
10	9	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎 ∈ (ℝ × ℝ) ↔ ⟨𝑐, 𝑑⟩ ∈ (ℝ × ℝ)))
11	8, 10	mpbird 260	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → 𝑎 ∈ (ℝ × ℝ))
12		opelxpi 5684	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ))
13	12	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ))
14		eleq1 2848	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → (𝑏 ∈ (ℝ × ℝ) ↔ ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ)))
15	14	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑏 ∈ (ℝ × ℝ) ↔ ⟨𝑒, 𝑓⟩ ∈ (ℝ × ℝ)))
16	13, 15	mpbird 260	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → 𝑏 ∈ (ℝ × ℝ))
17		fveq2 6873	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝑎 → (1st ‘𝑥) = (1st ‘𝑎))
18		fveq2 6873	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑏 → (1st ‘𝑦) = (1st ‘𝑏))
19	17, 18	breqan12d 5118	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((1st ‘𝑥) < (1st ‘𝑦) ↔ (1st ‘𝑎) < (1st ‘𝑏)))
20	17, 18	eqeqan12d 2774	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((1st ‘𝑥) = (1st ‘𝑦) ↔ (1st ‘𝑎) = (1st ‘𝑏)))
21		fveq2 6873	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → (2nd ‘𝑥) = (2nd ‘𝑎))
22		fveq2 6873	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (2nd ‘𝑦) = (2nd ‘𝑏))
23	21, 22	breqan12d 5118	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → ((2nd ‘𝑥) < (2nd ‘𝑦) ↔ (2nd ‘𝑎) < (2nd ‘𝑏)))
24	20, 23	anbi12d 644	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦)) ↔ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏))))
25	19, 24	orbi12d 932	. . . . . . . . . . . . . . 15 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))) ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
26	25	opelopab2a 5505	. . . . . . . . . . . . . 14 ⊢ ((𝑎 ∈ (ℝ × ℝ) ∧ 𝑏 ∈ (ℝ × ℝ)) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))} ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
27	11, 16, 26	syl2an 608	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (⟨𝑎, 𝑏⟩ ∈ {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))} ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
28	6, 27	bitrid 286	. . . . . . . . . . . 12 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)))))
29		1ne2 12522	. . . . . . . . . . . . . . . 16 ⊢ 1 ≠ 2
30		1ex 11274	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ V
31		vex 3454	. . . . . . . . . . . . . . . . 17 ⊢ 𝑐 ∈ V
32	30, 31	fvpr1 7185	. . . . . . . . . . . . . . . 16 ⊢ (1 ≠ 2 → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = 𝑐)
33	29, 32	mp1i 14	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = 𝑐)
34		vex 3454	. . . . . . . . . . . . . . . . 17 ⊢ 𝑒 ∈ V
35	30, 34	fvpr1 7185	. . . . . . . . . . . . . . . 16 ⊢ (1 ≠ 2 → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) = 𝑒)
36	29, 35	mp1i 14	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) = 𝑒)
37	33, 36	breq12d 5115	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ↔ 𝑐 < 𝑒))
38	33, 36	eqeq12d 2776	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ↔ 𝑐 = 𝑒))
39		2ex 12389	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ V
40		vex 3454	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑑 ∈ V
41	39, 40	fvpr2 7186	. . . . . . . . . . . . . . . . 17 ⊢ (1 ≠ 2 → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) = 𝑑)
42	29, 41	mp1i 14	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) = 𝑑)
43		vex 3454	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑓 ∈ V
44	39, 43	fvpr2 7186	. . . . . . . . . . . . . . . . 17 ⊢ (1 ≠ 2 → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) = 𝑓)
45	29, 44	mp1i 14	. . . . . . . . . . . . . . . 16 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) = 𝑓)
46	42, 45	breq12d 5115	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2) ↔ 𝑑 < 𝑓))
47	38, 46	anbi12d 644	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2)) ↔ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓)))
48	37, 47	orbi12d 932	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∨ (({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘1) = ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘1) ∧ ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}‘2) < ({⟨1, 𝑒⟩, ⟨2, 𝑓⟩}‘2))) ↔ (𝑐 < 𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓))))
49		eqid 2760	. . . . . . . . . . . . . . . 16 ⊢ {1, 2} = {1, 2}
50	49, 1	prelrrx2 49747	. . . . . . . . . . . . . . 15 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅)
51	50	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ 𝑅)
52	49, 1	prelrrx2 49747	. . . . . . . . . . . . . . 15 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅)
53	52	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ 𝑅)
54		rrx2plord.o	. . . . . . . . . . . . . . 15 ⊢ 𝑂 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ 𝑅 ∧ 𝑦 ∈ 𝑅) ∧ ((𝑥‘1) < (𝑦‘1) ∨ ((𝑥‘1) = (𝑦‘1) ∧ (𝑥‘2) < (𝑦‘2))))}
55	54	rrx2plord 49754	. . . . . . . . . . . . . 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 608	. . . . . . . . . . . . 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 7994	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → (1st ‘𝑎) = 𝑐)
58	57	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (1st ‘𝑎) = 𝑐)
59	34, 43	op1std 7994	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → (1st ‘𝑏) = 𝑒)
60	59	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (1st ‘𝑏) = 𝑒)
61	58, 60	breqan12d 5118	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((1st ‘𝑎) < (1st ‘𝑏) ↔ 𝑐 < 𝑒))
62	58, 60	eqeqan12d 2774	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((1st ‘𝑎) = (1st ‘𝑏) ↔ 𝑐 = 𝑒))
63	31, 40	op2ndd 7995	. . . . . . . . . . . . . . . . 17 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → (2nd ‘𝑎) = 𝑑)
64	63	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (2nd ‘𝑎) = 𝑑)
65	34, 43	op2ndd 7995	. . . . . . . . . . . . . . . . 17 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → (2nd ‘𝑏) = 𝑓)
66	65	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (2nd ‘𝑏) = 𝑓)
67	64, 66	breqan12d 5118	. . . . . . . . . . . . . . 15 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ((2nd ‘𝑎) < (2nd ‘𝑏) ↔ 𝑑 < 𝑓))
68	62, 67	anbi12d 644	. . . . . . . . . . . . . 14 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏)) ↔ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓)))
69	61, 68	orbi12d 932	. . . . . . . . . . . . 13 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏))) ↔ (𝑐 < 𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑 < 𝑓))))
70	48, 56, 69	3bitr4rd 315	. . . . . . . . . . . 12 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (((1st ‘𝑎) < (1st ‘𝑏) ∨ ((1st ‘𝑎) = (1st ‘𝑏) ∧ (2nd ‘𝑎) < (2nd ‘𝑏))) ↔ {⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩}))
71		fveq2 6873	. . . . . . . . . . . . . . . 16 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑐, 𝑑⟩))
72		df-ov 7411	. . . . . . . . . . . . . . . 16 ⊢ (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑐, 𝑑⟩)
73	71, 72	eqtr4di 2813	. . . . . . . . . . . . . . 15 ⊢ (𝑎 = ⟨𝑐, 𝑑⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑))
74		eqidd 2761	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}))
75		opeq2 4833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑐 → ⟨1, 𝑥⟩ = ⟨1, 𝑐⟩)
76	75	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑐 ∧ 𝑦 = 𝑑) → ⟨1, 𝑥⟩ = ⟨1, 𝑐⟩)
77		opeq2 4833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑑 → ⟨2, 𝑦⟩ = ⟨2, 𝑑⟩)
78	77	adantl 487	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑐 ∧ 𝑦 = 𝑑) → ⟨2, 𝑦⟩ = ⟨2, 𝑑⟩)
79	76, 78	preq12d 4701	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑐 ∧ 𝑦 = 𝑑) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
80	79	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ (((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) ∧ (𝑥 = 𝑐 ∧ 𝑦 = 𝑑)) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
81		simpl 488	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → 𝑐 ∈ ℝ)
82		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → 𝑑 ∈ ℝ)
83		prex 5395	. . . . . . . . . . . . . . . . 17 ⊢ {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ V
84	83	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} ∈ V)
85	74, 80, 81, 82, 84	ovmpod 7560	. . . . . . . . . . . . . . 15 ⊢ ((𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ) → (𝑐(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑑) = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
86	73, 85	sylan9eq 2815	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎) = {⟨1, 𝑐⟩, ⟨2, 𝑑⟩})
87	86	eqcomd 2766	. . . . . . . . . . . . 13 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → {⟨1, 𝑐⟩, ⟨2, 𝑑⟩} = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎))
88		fveq2 6873	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑒, 𝑓⟩))
89		df-ov 7411	. . . . . . . . . . . . . . . 16 ⊢ (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓) = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘⟨𝑒, 𝑓⟩)
90	88, 89	eqtr4di 2813	. . . . . . . . . . . . . . 15 ⊢ (𝑏 = ⟨𝑒, 𝑓⟩ → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓))
91		eqidd 2761	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}))
92		opeq2 4833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 = 𝑒 → ⟨1, 𝑥⟩ = ⟨1, 𝑒⟩)
93	92	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑒 ∧ 𝑦 = 𝑓) → ⟨1, 𝑥⟩ = ⟨1, 𝑒⟩)
94		opeq2 4833	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = 𝑓 → ⟨2, 𝑦⟩ = ⟨2, 𝑓⟩)
95	94	adantl 487	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 = 𝑒 ∧ 𝑦 = 𝑓) → ⟨2, 𝑦⟩ = ⟨2, 𝑓⟩)
96	93, 95	preq12d 4701	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑒 ∧ 𝑦 = 𝑓) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
97	96	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ (((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) ∧ (𝑥 = 𝑒 ∧ 𝑦 = 𝑓)) → {⟨1, 𝑥⟩, ⟨2, 𝑦⟩} = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
98		simpl 488	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → 𝑒 ∈ ℝ)
99		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → 𝑓 ∈ ℝ)
100		prex 5395	. . . . . . . . . . . . . . . . 17 ⊢ {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ V
101	100	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ∈ V)
102	91, 97, 98, 99, 101	ovmpod 7560	. . . . . . . . . . . . . . 15 ⊢ ((𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ) → (𝑒(𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})𝑓) = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
103	90, 102	sylan9eq 2815	. . . . . . . . . . . . . 14 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏) = {⟨1, 𝑒⟩, ⟨2, 𝑓⟩})
104	103	eqcomd 2766	. . . . . . . . . . . . 13 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → {⟨1, 𝑒⟩, ⟨2, 𝑓⟩} = ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))
105	87, 104	breqan12d 5118	. . . . . . . . . . . 12 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → ({⟨1, 𝑐⟩, ⟨2, 𝑑⟩}𝑂{⟨1, 𝑒⟩, ⟨2, 𝑓⟩} ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
106	28, 70, 105	3bitrd 308	. . . . . . . . . . 11 ⊢ (((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ (𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
107	106	expcom 419	. . . . . . . . . 10 ⊢ ((𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
108	107	exlimivv 1965	. . . . . . . . 9 ⊢ (∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
109	108	com12 33	. . . . . . . 8 ⊢ ((𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
110	109	exlimivv 1965	. . . . . . 7 ⊢ (∃𝑐∃𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) → (∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))))
111	110	imp 412	. . . . . 6 ⊢ ((∃𝑐∃𝑑(𝑎 = ⟨𝑐, 𝑑⟩ ∧ (𝑐 ∈ ℝ ∧ 𝑑 ∈ ℝ)) ∧ ∃𝑒∃𝑓(𝑏 = ⟨𝑒, 𝑓⟩ ∧ (𝑒 ∈ ℝ ∧ 𝑓 ∈ ℝ))) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
112	4, 5, 111	syl2an 608	. . . . 5 ⊢ ((𝑎 ∈ (ℝ × ℝ) ∧ 𝑏 ∈ (ℝ × ℝ)) → (𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏)))
113	112	rgen2 3202	. . . 4 ⊢ ∀𝑎 ∈ (ℝ × ℝ)∀𝑏 ∈ (ℝ × ℝ)(𝑎{⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}𝑏 ↔ ((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑎)𝑂((𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})‘𝑏))
114		df-isom 6536	. . . 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 724	. . 3 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}, 𝑂((ℝ × ℝ), 𝑅)
116		rrx2plordisom.t	. . . 4 ⊢ 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (ℝ × ℝ) ∧ 𝑦 ∈ (ℝ × ℝ)) ∧ ((1st ‘𝑥) < (1st ‘𝑦) ∨ ((1st ‘𝑥) = (1st ‘𝑦) ∧ (2nd ‘𝑥) < (2nd ‘𝑦))))}
117		isoeq2 7314	. . . 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 234	. 2 ⊢ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)
120		rrx2plordisom.f	. . 3 ⊢ 𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩})
121		isoeq1 7313	. . 3 ⊢ (𝐹 = (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) → (𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)))
122	120, 121	ax-mp 5	. 2 ⊢ (𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅) ↔ (𝑥 ∈ ℝ, 𝑦 ∈ ℝ ↦ {⟨1, 𝑥⟩, ⟨2, 𝑦⟩}) Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅))
123	119, 122	mpbir 234	1 ⊢ 𝐹 Isom 𝑇, 𝑂 ((ℝ × ℝ), 𝑅)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   = wceq 1570  ∃wex 1812   ∈ wcel 2145   ≠ wne 2955  ∀wral 3076  Vcvv 3450  {cpr 4585  ⟨cop 4589   class class class wbr 5102  {copab 5166   × cxp 5645  –1-1-onto→wf1o 6526  ‘cfv 6527   Isom wiso 6528  (class class class)co 7408   ∈ cmpo 7410  1^st c1st 7982  2^nd c2nd 7983   ↑_m cmap 8825  ℝcr 11170  1c1 11172   < clt 11314  2c2 12366

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-cnex 11227  ax-resscn 11228  ax-1cn 11229  ax-icn 11230  ax-addcl 11231  ax-addrcl 11232  ax-mulcl 11233  ax-mulrcl 11234  ax-mulcom 11235  ax-addass 11236  ax-mulass 11237  ax-distr 11238  ax-i2m1 11239  ax-1ne0 11240  ax-1rid 11241  ax-rnegex 11242  ax-rrecex 11243  ax-cnre 11244  ax-pre-lttri 11245  ax-pre-lttrn 11246  ax-pre-ltadd 11247  ax-pre-mulgt0 11248

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5542  df-po 5555  df-so 5556  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-1st 7984  df-2nd 7985  df-er 8695  df-map 8827  df-en 8952  df-dom 8953  df-sdom 8954  df-pnf 11316  df-mnf 11317  df-xr 11318  df-ltxr 11319  df-le 11320  df-sub 11514  df-neg 11515  df-2 12374

This theorem is used by:  rrx2plordso  49758