Metamath Proof Explorer


Theorem uspgrsprfo

Description: The mapping F is a function from the "simple pseudographs" with a fixed set of vertices V onto the subsets of the set of pairs over the set V . (Contributed by AV, 25-Nov-2021)

Ref Expression
Hypotheses uspgrsprf.p ⊢ P = 𝒫 Pairs ⁡ V
uspgrsprf.g ⊢ G = v e | v = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e
uspgrsprf.f ⊢ F = g ∈ G ⟼ 2 nd ⁡ g
Assertion uspgrsprfo ⊢ V ∈ W → F : G ⟶ onto P

Proof

Step Hyp Ref Expression
1 uspgrsprf.p ⊢ P = 𝒫 Pairs ⁡ V
2 uspgrsprf.g ⊢ G = v e | v = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e
3 uspgrsprf.f ⊢ F = g ∈ G ⟼ 2 nd ⁡ g
4 1 2 3 uspgrsprf ⊢ F : G ⟶ P
5 4 a1i ⊢ V ∈ W → F : G ⟶ P
6 1 eleq2i ⊢ a ∈ P ↔ a ∈ 𝒫 Pairs ⁡ V
7 velpw ⊢ a ∈ 𝒫 Pairs ⁡ V ↔ a ⊆ Pairs ⁡ V
8 6 7 bitri ⊢ a ∈ P ↔ a ⊆ Pairs ⁡ V
9 eqidd ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V = V
10 vex ⊢ a ∈ V
11 10 a1i ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → a ∈ V
12 f1oi ⊢ I ↾ a : a ⟶ 1-1 onto a
13 12 a1i ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → I ↾ a : a ⟶ 1-1 onto a
14 dmresi ⊢ dom ⁡ I ↾ a = a
15 f1oeq2 ⊢ dom ⁡ I ↾ a = a → I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto a ↔ I ↾ a : a ⟶ 1-1 onto a
16 14 15 ax-mp ⊢ I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto a ↔ I ↾ a : a ⟶ 1-1 onto a
17 13 16 sylibr ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto a
18 sprvalpwle2 ⊢ V ∈ W → Pairs ⁡ V = p ∈ 𝒫 V ∖ ∅ | p ≤ 2
19 18 sseq2d ⊢ V ∈ W → a ⊆ Pairs ⁡ V ↔ a ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
20 19 biimpac ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → a ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
21 17 20 jca ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto a ∧ a ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
22 f1oeq3 ⊢ f = a → I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto f ↔ I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto a
23 sseq1 ⊢ f = a → f ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2 ↔ a ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
24 22 23 anbi12d ⊢ f = a → I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto f ∧ f ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2 ↔ I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto a ∧ a ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
25 11 21 24 spcedv ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → ∃ f I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto f ∧ f ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
26 resiexg ⊢ a ∈ V → I ↾ a ∈ V
27 10 26 ax-mp ⊢ I ↾ a ∈ V
28 27 f11o ⊢ I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 p ∈ 𝒫 V ∖ ∅ | p ≤ 2 ↔ ∃ f I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 onto f ∧ f ⊆ p ∈ 𝒫 V ∖ ∅ | p ≤ 2
29 25 28 sylibr ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 p ∈ 𝒫 V ∖ ∅ | p ≤ 2
30 10 a1i ⊢ a ⊆ Pairs ⁡ V → a ∈ V
31 30 resiexd ⊢ a ⊆ Pairs ⁡ V → I ↾ a ∈ V
32 31 anim1ci ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V ∈ W ∧ I ↾ a ∈ V
33 isuspgrop ⊢ V ∈ W ∧ I ↾ a ∈ V → V I ↾ a ∈ USHGraph ↔ I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 p ∈ 𝒫 V ∖ ∅ | p ≤ 2
34 32 33 syl ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V I ↾ a ∈ USHGraph ↔ I ↾ a : dom ⁡ I ↾ a ⟶ 1-1 p ∈ 𝒫 V ∖ ∅ | p ≤ 2
35 29 34 mpbird ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V I ↾ a ∈ USHGraph
36 fveqeq2 ⊢ q = V I ↾ a → Vtx ⁡ q = V ↔ Vtx ⁡ V I ↾ a = V
37 fveqeq2 ⊢ q = V I ↾ a → Edg ⁡ q = a ↔ Edg ⁡ V I ↾ a = a
38 36 37 anbi12d ⊢ q = V I ↾ a → Vtx ⁡ q = V ∧ Edg ⁡ q = a ↔ Vtx ⁡ V I ↾ a = V ∧ Edg ⁡ V I ↾ a = a
39 38 adantl ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W ∧ q = V I ↾ a → Vtx ⁡ q = V ∧ Edg ⁡ q = a ↔ Vtx ⁡ V I ↾ a = V ∧ Edg ⁡ V I ↾ a = a
40 opvtxfv ⊢ V ∈ W ∧ I ↾ a ∈ V → Vtx ⁡ V I ↾ a = V
41 31 40 sylan2 ⊢ V ∈ W ∧ a ⊆ Pairs ⁡ V → Vtx ⁡ V I ↾ a = V
42 edgopval ⊢ V ∈ W ∧ I ↾ a ∈ V → Edg ⁡ V I ↾ a = ran ⁡ I ↾ a
43 31 42 sylan2 ⊢ V ∈ W ∧ a ⊆ Pairs ⁡ V → Edg ⁡ V I ↾ a = ran ⁡ I ↾ a
44 rnresi ⊢ ran ⁡ I ↾ a = a
45 43 44 eqtrdi ⊢ V ∈ W ∧ a ⊆ Pairs ⁡ V → Edg ⁡ V I ↾ a = a
46 41 45 jca ⊢ V ∈ W ∧ a ⊆ Pairs ⁡ V → Vtx ⁡ V I ↾ a = V ∧ Edg ⁡ V I ↾ a = a
47 46 ancoms ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → Vtx ⁡ V I ↾ a = V ∧ Edg ⁡ V I ↾ a = a
48 35 39 47 rspcedvd ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
49 9 48 jca ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
50 2 eleq2i ⊢ V a ∈ G ↔ V a ∈ v e | v = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e
51 30 anim1ci ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V ∈ W ∧ a ∈ V
52 eqeq1 ⊢ v = V → v = V ↔ V = V
53 52 adantr ⊢ v = V ∧ e = a → v = V ↔ V = V
54 eqeq2 ⊢ v = V → Vtx ⁡ q = v ↔ Vtx ⁡ q = V
55 eqeq2 ⊢ e = a → Edg ⁡ q = e ↔ Edg ⁡ q = a
56 54 55 bi2anan9 ⊢ v = V ∧ e = a → Vtx ⁡ q = v ∧ Edg ⁡ q = e ↔ Vtx ⁡ q = V ∧ Edg ⁡ q = a
57 56 rexbidv ⊢ v = V ∧ e = a → ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e ↔ ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
58 53 57 anbi12d ⊢ v = V ∧ e = a → v = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e ↔ V = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
59 58 opelopabga ⊢ V ∈ W ∧ a ∈ V → V a ∈ v e | v = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e ↔ V = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
60 51 59 syl ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V a ∈ v e | v = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = v ∧ Edg ⁡ q = e ↔ V = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
61 50 60 bitrid ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V a ∈ G ↔ V = V ∧ ∃ q ∈ USHGraph Vtx ⁡ q = V ∧ Edg ⁡ q = a
62 49 61 mpbird ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → V a ∈ G
63 fveq2 ⊢ b = V a → 2 nd ⁡ b = 2 nd ⁡ V a
64 63 eqeq2d ⊢ b = V a → a = 2 nd ⁡ b ↔ a = 2 nd ⁡ V a
65 64 adantl ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W ∧ b = V a → a = 2 nd ⁡ b ↔ a = 2 nd ⁡ V a
66 op2ndg ⊢ V ∈ W ∧ a ∈ V → 2 nd ⁡ V a = a
67 66 elvd ⊢ V ∈ W → 2 nd ⁡ V a = a
68 67 adantl ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → 2 nd ⁡ V a = a
69 68 eqcomd ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → a = 2 nd ⁡ V a
70 62 65 69 rspcedvd ⊢ a ⊆ Pairs ⁡ V ∧ V ∈ W → ∃ b ∈ G a = 2 nd ⁡ b
71 70 ex ⊢ a ⊆ Pairs ⁡ V → V ∈ W → ∃ b ∈ G a = 2 nd ⁡ b
72 8 71 sylbi ⊢ a ∈ P → V ∈ W → ∃ b ∈ G a = 2 nd ⁡ b
73 72 impcom ⊢ V ∈ W ∧ a ∈ P → ∃ b ∈ G a = 2 nd ⁡ b
74 1 2 3 uspgrsprfv ⊢ b ∈ G → F ⁡ b = 2 nd ⁡ b
75 74 adantl ⊢ V ∈ W ∧ a ∈ P ∧ b ∈ G → F ⁡ b = 2 nd ⁡ b
76 75 eqeq2d ⊢ V ∈ W ∧ a ∈ P ∧ b ∈ G → a = F ⁡ b ↔ a = 2 nd ⁡ b
77 76 rexbidva ⊢ V ∈ W ∧ a ∈ P → ∃ b ∈ G a = F ⁡ b ↔ ∃ b ∈ G a = 2 nd ⁡ b
78 73 77 mpbird ⊢ V ∈ W ∧ a ∈ P → ∃ b ∈ G a = F ⁡ b
79 78 ralrimiva ⊢ V ∈ W → ∀ a ∈ P ∃ b ∈ G a = F ⁡ b
80 dffo3 ⊢ F : G ⟶ onto P ↔ F : G ⟶ P ∧ ∀ a ∈ P ∃ b ∈ G a = F ⁡ b
81 5 79 80 sylanbrc ⊢ V ∈ W → F : G ⟶ onto P