Proof of Theorem uspgrsprf
Step | Hyp | Ref
| Expression |
1 | | uspgrsprf.f |
. 2
⊢ 𝐹 = (𝑔 ∈ 𝐺 ↦ (2nd ‘𝑔)) |
2 | | uspgrsprf.g |
. . . . 5
⊢ 𝐺 = {〈𝑣, 𝑒〉 ∣ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))} |
3 | 2 | eleq2i 2830 |
. . . 4
⊢ (𝑔 ∈ 𝐺 ↔ 𝑔 ∈ {〈𝑣, 𝑒〉 ∣ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))}) |
4 | | elopab 5433 |
. . . 4
⊢ (𝑔 ∈ {〈𝑣, 𝑒〉 ∣ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))} ↔ ∃𝑣∃𝑒(𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)))) |
5 | 3, 4 | bitri 274 |
. . 3
⊢ (𝑔 ∈ 𝐺 ↔ ∃𝑣∃𝑒(𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)))) |
6 | | uspgrupgr 27449 |
. . . . . . . . . . . . 13
⊢ (𝑞 ∈ USPGraph → 𝑞 ∈
UPGraph) |
7 | | upgredgssspr 45193 |
. . . . . . . . . . . . 13
⊢ (𝑞 ∈ UPGraph →
(Edg‘𝑞) ⊆
(Pairs‘(Vtx‘𝑞))) |
8 | 6, 7 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝑞 ∈ USPGraph →
(Edg‘𝑞) ⊆
(Pairs‘(Vtx‘𝑞))) |
9 | 8 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝑞 ∈ USPGraph ∧
((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)) → (Edg‘𝑞) ⊆ (Pairs‘(Vtx‘𝑞))) |
10 | | simpr 484 |
. . . . . . . . . . . . 13
⊢
(((Vtx‘𝑞) =
𝑣 ∧ (Edg‘𝑞) = 𝑒) → (Edg‘𝑞) = 𝑒) |
11 | | fveq2 6756 |
. . . . . . . . . . . . . 14
⊢
((Vtx‘𝑞) =
𝑣 →
(Pairs‘(Vtx‘𝑞))
= (Pairs‘𝑣)) |
12 | 11 | adantr 480 |
. . . . . . . . . . . . 13
⊢
(((Vtx‘𝑞) =
𝑣 ∧ (Edg‘𝑞) = 𝑒) → (Pairs‘(Vtx‘𝑞)) = (Pairs‘𝑣)) |
13 | 10, 12 | sseq12d 3950 |
. . . . . . . . . . . 12
⊢
(((Vtx‘𝑞) =
𝑣 ∧ (Edg‘𝑞) = 𝑒) → ((Edg‘𝑞) ⊆ (Pairs‘(Vtx‘𝑞)) ↔ 𝑒 ⊆ (Pairs‘𝑣))) |
14 | 13 | adantl 481 |
. . . . . . . . . . 11
⊢ ((𝑞 ∈ USPGraph ∧
((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)) → ((Edg‘𝑞) ⊆ (Pairs‘(Vtx‘𝑞)) ↔ 𝑒 ⊆ (Pairs‘𝑣))) |
15 | 9, 14 | mpbid 231 |
. . . . . . . . . 10
⊢ ((𝑞 ∈ USPGraph ∧
((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)) → 𝑒 ⊆ (Pairs‘𝑣)) |
16 | 15 | rexlimiva 3209 |
. . . . . . . . 9
⊢
(∃𝑞 ∈
USPGraph ((Vtx‘𝑞) =
𝑣 ∧ (Edg‘𝑞) = 𝑒) → 𝑒 ⊆ (Pairs‘𝑣)) |
17 | 16 | adantl 481 |
. . . . . . . 8
⊢ ((𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)) → 𝑒 ⊆ (Pairs‘𝑣)) |
18 | | fveq2 6756 |
. . . . . . . . . 10
⊢ (𝑣 = 𝑉 → (Pairs‘𝑣) = (Pairs‘𝑉)) |
19 | 18 | sseq2d 3949 |
. . . . . . . . 9
⊢ (𝑣 = 𝑉 → (𝑒 ⊆ (Pairs‘𝑣) ↔ 𝑒 ⊆ (Pairs‘𝑉))) |
20 | 19 | adantr 480 |
. . . . . . . 8
⊢ ((𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)) → (𝑒 ⊆ (Pairs‘𝑣) ↔ 𝑒 ⊆ (Pairs‘𝑉))) |
21 | 17, 20 | mpbid 231 |
. . . . . . 7
⊢ ((𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒)) → 𝑒 ⊆ (Pairs‘𝑉)) |
22 | 21 | adantl 481 |
. . . . . 6
⊢ ((𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))) → 𝑒 ⊆ (Pairs‘𝑉)) |
23 | | vex 3426 |
. . . . . . . . 9
⊢ 𝑣 ∈ V |
24 | | vex 3426 |
. . . . . . . . 9
⊢ 𝑒 ∈ V |
25 | 23, 24 | op2ndd 7815 |
. . . . . . . 8
⊢ (𝑔 = 〈𝑣, 𝑒〉 → (2nd ‘𝑔) = 𝑒) |
26 | 25 | sseq1d 3948 |
. . . . . . 7
⊢ (𝑔 = 〈𝑣, 𝑒〉 → ((2nd ‘𝑔) ⊆ (Pairs‘𝑉) ↔ 𝑒 ⊆ (Pairs‘𝑉))) |
27 | 26 | adantr 480 |
. . . . . 6
⊢ ((𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))) → ((2nd ‘𝑔) ⊆ (Pairs‘𝑉) ↔ 𝑒 ⊆ (Pairs‘𝑉))) |
28 | 22, 27 | mpbird 256 |
. . . . 5
⊢ ((𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))) → (2nd ‘𝑔) ⊆ (Pairs‘𝑉)) |
29 | | uspgrsprf.p |
. . . . . . 7
⊢ 𝑃 = 𝒫 (Pairs‘𝑉) |
30 | 29 | eleq2i 2830 |
. . . . . 6
⊢
((2nd ‘𝑔) ∈ 𝑃 ↔ (2nd ‘𝑔) ∈ 𝒫
(Pairs‘𝑉)) |
31 | | fvex 6769 |
. . . . . . 7
⊢
(2nd ‘𝑔) ∈ V |
32 | 31 | elpw 4534 |
. . . . . 6
⊢
((2nd ‘𝑔) ∈ 𝒫 (Pairs‘𝑉) ↔ (2nd
‘𝑔) ⊆
(Pairs‘𝑉)) |
33 | 30, 32 | bitri 274 |
. . . . 5
⊢
((2nd ‘𝑔) ∈ 𝑃 ↔ (2nd ‘𝑔) ⊆ (Pairs‘𝑉)) |
34 | 28, 33 | sylibr 233 |
. . . 4
⊢ ((𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))) → (2nd ‘𝑔) ∈ 𝑃) |
35 | 34 | exlimivv 1936 |
. . 3
⊢
(∃𝑣∃𝑒(𝑔 = 〈𝑣, 𝑒〉 ∧ (𝑣 = 𝑉 ∧ ∃𝑞 ∈ USPGraph ((Vtx‘𝑞) = 𝑣 ∧ (Edg‘𝑞) = 𝑒))) → (2nd ‘𝑔) ∈ 𝑃) |
36 | 5, 35 | sylbi 216 |
. 2
⊢ (𝑔 ∈ 𝐺 → (2nd ‘𝑔) ∈ 𝑃) |
37 | 1, 36 | fmpti 6968 |
1
⊢ 𝐹:𝐺⟶𝑃 |