Theorem prproropf1o 48408

Description: There is a bijection between the set of proper pairs and the set of ordered ordered pairs, i.e., ordered pairs in which the first component is less than the second component. (Contributed by AV, 15-Mar-2023.)

Hypotheses

Ref	Expression
prproropf1o.o	⊢ 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
prproropf1o.p	⊢ 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
prproropf1o.f	⊢ 𝐹 = (𝑝 ∈ 𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩)

Assertion

Ref	Expression
prproropf1o	⊢ (𝑅 Or 𝑉 → 𝐹:𝑃–1-1-onto→𝑂)

Distinct variable groups:   𝑉,𝑝   𝑂,𝑝   𝑃,𝑝   𝑅,𝑝

Allowed substitution hint:   𝐹(𝑝)

Proof of Theorem prproropf1o

Dummy variables 𝑤 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		prproropf1o.o	. . . . 5 ⊢ 𝑂 = (𝑅 ∩ (𝑉 × 𝑉))
2		prproropf1o.p	. . . . 5 ⊢ 𝑃 = {𝑝 ∈ 𝒫 𝑉 ∣ (♯‘𝑝) = 2}
3	1, 2	prproropf1olem2 48405	. . . 4 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑃) → ⟨inf(𝑤, 𝑉, 𝑅), sup(𝑤, 𝑉, 𝑅)⟩ ∈ 𝑂)
4		prproropf1o.f	. . . . 5 ⊢ 𝐹 = (𝑝 ∈ 𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩)
5		infeq1 9448	. . . . . . 7 ⊢ (𝑝 = 𝑤 → inf(𝑝, 𝑉, 𝑅) = inf(𝑤, 𝑉, 𝑅))
6		supeq1 9416	. . . . . . 7 ⊢ (𝑝 = 𝑤 → sup(𝑝, 𝑉, 𝑅) = sup(𝑤, 𝑉, 𝑅))
7	5, 6	opeq12d 4841	. . . . . 6 ⊢ (𝑝 = 𝑤 → ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩ = ⟨inf(𝑤, 𝑉, 𝑅), sup(𝑤, 𝑉, 𝑅)⟩)
8	7	cbvmptv 5209	. . . . 5 ⊢ (𝑝 ∈ 𝑃 ↦ ⟨inf(𝑝, 𝑉, 𝑅), sup(𝑝, 𝑉, 𝑅)⟩) = (𝑤 ∈ 𝑃 ↦ ⟨inf(𝑤, 𝑉, 𝑅), sup(𝑤, 𝑉, 𝑅)⟩)
9	4, 8	eqtri 2783	. . . 4 ⊢ 𝐹 = (𝑤 ∈ 𝑃 ↦ ⟨inf(𝑤, 𝑉, 𝑅), sup(𝑤, 𝑉, 𝑅)⟩)
10	3, 9	fmptd 7108	. . 3 ⊢ (𝑅 Or 𝑉 → 𝐹:𝑃⟶𝑂)
11		3ancomb 1116	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑃 ∧ 𝑧 ∈ 𝑃) ↔ (𝑅 Or 𝑉 ∧ 𝑧 ∈ 𝑃 ∧ 𝑤 ∈ 𝑃))
12		3anass 1111	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ 𝑧 ∈ 𝑃 ∧ 𝑤 ∈ 𝑃) ↔ (𝑅 Or 𝑉 ∧ (𝑧 ∈ 𝑃 ∧ 𝑤 ∈ 𝑃)))
13	11, 12	bitri 278	. . . . 5 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑃 ∧ 𝑧 ∈ 𝑃) ↔ (𝑅 Or 𝑉 ∧ (𝑧 ∈ 𝑃 ∧ 𝑤 ∈ 𝑃)))
14	1, 2, 4	prproropf1olem4 48407	. . . . 5 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑃 ∧ 𝑧 ∈ 𝑃) → ((𝐹‘𝑧) = (𝐹‘𝑤) → 𝑧 = 𝑤))
15	13, 14	sylbir 238	. . . 4 ⊢ ((𝑅 Or 𝑉 ∧ (𝑧 ∈ 𝑃 ∧ 𝑤 ∈ 𝑃)) → ((𝐹‘𝑧) = (𝐹‘𝑤) → 𝑧 = 𝑤))
16	15	ralrimivva 3205	. . 3 ⊢ (𝑅 Or 𝑉 → ∀𝑧 ∈ 𝑃 ∀𝑤 ∈ 𝑃 ((𝐹‘𝑧) = (𝐹‘𝑤) → 𝑧 = 𝑤))
17		dff13 7252	. . 3 ⊢ (𝐹:𝑃–1-1→𝑂 ↔ (𝐹:𝑃⟶𝑂 ∧ ∀𝑧 ∈ 𝑃 ∀𝑤 ∈ 𝑃 ((𝐹‘𝑧) = (𝐹‘𝑤) → 𝑧 = 𝑤)))
18	10, 16, 17	sylanbrc 595	. 2 ⊢ (𝑅 Or 𝑉 → 𝐹:𝑃–1-1→𝑂)
19	1, 2	prproropf1olem1 48404	. . . . 5 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑂) → {(1st ‘𝑤), (2nd ‘𝑤)} ∈ 𝑃)
20		fveq2 6879	. . . . . . 7 ⊢ (𝑧 = {(1st ‘𝑤), (2nd ‘𝑤)} → (𝐹‘𝑧) = (𝐹‘{(1st ‘𝑤), (2nd ‘𝑤)}))
21	20	eqeq2d 2771	. . . . . 6 ⊢ (𝑧 = {(1st ‘𝑤), (2nd ‘𝑤)} → (𝑤 = (𝐹‘𝑧) ↔ 𝑤 = (𝐹‘{(1st ‘𝑤), (2nd ‘𝑤)})))
22	21	adantl 487	. . . . 5 ⊢ (((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑂) ∧ 𝑧 = {(1st ‘𝑤), (2nd ‘𝑤)}) → (𝑤 = (𝐹‘𝑧) ↔ 𝑤 = (𝐹‘{(1st ‘𝑤), (2nd ‘𝑤)})))
23	1, 2, 4	prproropf1olem3 48406	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑂) → (𝐹‘{(1st ‘𝑤), (2nd ‘𝑤)}) = ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩)
24	1	prproropf1olem0 48403	. . . . . . . . 9 ⊢ (𝑤 ∈ 𝑂 ↔ (𝑤 = ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ ∧ ((1st ‘𝑤) ∈ 𝑉 ∧ (2nd ‘𝑤) ∈ 𝑉) ∧ (1st ‘𝑤)𝑅(2nd ‘𝑤)))
25	24	simp1bi 1163	. . . . . . . 8 ⊢ (𝑤 ∈ 𝑂 → 𝑤 = ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩)
26	25	eqcomd 2766	. . . . . . 7 ⊢ (𝑤 ∈ 𝑂 → ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ = 𝑤)
27	26	adantl 487	. . . . . 6 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑂) → ⟨(1st ‘𝑤), (2nd ‘𝑤)⟩ = 𝑤)
28	23, 27	eqtr2d 2796	. . . . 5 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑂) → 𝑤 = (𝐹‘{(1st ‘𝑤), (2nd ‘𝑤)}))
29	19, 22, 28	rspcedvd 3578	. . . 4 ⊢ ((𝑅 Or 𝑉 ∧ 𝑤 ∈ 𝑂) → ∃𝑧 ∈ 𝑃 𝑤 = (𝐹‘𝑧))
30	29	ralrimiva 3154	. . 3 ⊢ (𝑅 Or 𝑉 → ∀𝑤 ∈ 𝑂 ∃𝑧 ∈ 𝑃 𝑤 = (𝐹‘𝑧))
31		dffo3 7096	. . 3 ⊢ (𝐹:𝑃–onto→𝑂 ↔ (𝐹:𝑃⟶𝑂 ∧ ∀𝑤 ∈ 𝑂 ∃𝑧 ∈ 𝑃 𝑤 = (𝐹‘𝑧)))
32	10, 30, 31	sylanbrc 595	. 2 ⊢ (𝑅 Or 𝑉 → 𝐹:𝑃–onto→𝑂)
33		df-f1o 6540	. 2 ⊢ (𝐹:𝑃–1-1-onto→𝑂 ↔ (𝐹:𝑃–1-1→𝑂 ∧ 𝐹:𝑃–onto→𝑂))
34	18, 32, 33	sylanbrc 595	1 ⊢ (𝑅 Or 𝑉 → 𝐹:𝑃–1-1-onto→𝑂)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∀wral 3076  ∃wrex 3086  {crab 3412   ∩ cin 3898  𝒫 cpw 4557  {cpr 4586  ⟨cop 4590   class class class wbr 5103   ↦ cmpt 5186   Or wor 5562   × cxp 5653  ⟶wf 6529  –1-1→wf1 6530  –onto→wfo 6531  –1-1-onto→wf1o 6532  ‘cfv 6533  1^st c1st 7985  2^nd c2nd 7986  supcsup 9411  infcinf 9412  2c2 12320  ♯chash 14395

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 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7737  ax-cnex 11181  ax-resscn 11182  ax-1cn 11183  ax-icn 11184  ax-addcl 11185  ax-addrcl 11186  ax-mulcl 11187  ax-mulrcl 11188  ax-mulcom 11189  ax-addass 11190  ax-mulass 11191  ax-distr 11192  ax-i2m1 11193  ax-1ne0 11194  ax-1rid 11195  ax-rnegex 11196  ax-rrecex 11197  ax-cnre 11198  ax-pre-lttri 11199  ax-pre-lttrn 11200  ax-pre-ltadd 11201  ax-pre-mulgt0 11202

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-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-riota 7371  df-ov 7417  df-oprab 7418  df-mpo 7419  df-om 7864  df-1st 7987  df-2nd 7988  df-frecs 8281  df-wrecs 8312  df-recs 8361  df-rdg 8400  df-1o 8456  df-2o 8457  df-oadd 8460  df-er 8697  df-en 8954  df-dom 8955  df-sdom 8956  df-fin 8957  df-sup 9413  df-inf 9414  df-dju 9907  df-card 9945  df-pnf 11270  df-mnf 11271  df-xr 11272  df-ltxr 11273  df-le 11274  df-sub 11468  df-neg 11469  df-nn 12259  df-2 12328  df-n0 12530  df-z 12617  df-uz 12889  df-fz 13563  df-hash 14396

This theorem is used by:  prproropen  48409  prproropreud  48410