Step | Hyp | Ref
| Expression |
1 | | wlk2v2e.g |
. . . . 5
β’ πΊ = β¨{π, π}, πΌβ© |
2 | | wlk2v2e.i |
. . . . . 6
β’ πΌ = β¨β{π, π}ββ© |
3 | 2 | opeq2i 4877 |
. . . . 5
β’
β¨{π, π}, πΌβ© = β¨{π, π}, β¨β{π, π}ββ©β© |
4 | 1, 3 | eqtri 2761 |
. . . 4
β’ πΊ = β¨{π, π}, β¨β{π, π}ββ©β© |
5 | | wlk2v2e.x |
. . . . 5
β’ π β V |
6 | | wlk2v2e.y |
. . . . 5
β’ π β V |
7 | | uspgr2v1e2w 28498 |
. . . . 5
β’ ((π β V β§ π β V) β β¨{π, π}, β¨β{π, π}ββ©β© β
USPGraph) |
8 | 5, 6, 7 | mp2an 691 |
. . . 4
β’
β¨{π, π}, β¨β{π, π}ββ©β© β
USPGraph |
9 | 4, 8 | eqeltri 2830 |
. . 3
β’ πΊ β
USPGraph |
10 | | uspgrupgr 28426 |
. . 3
β’ (πΊ β USPGraph β πΊ β
UPGraph) |
11 | 9, 10 | ax-mp 5 |
. 2
β’ πΊ β UPGraph |
12 | | wlk2v2e.f |
. . . . 5
β’ πΉ =
β¨β00ββ© |
13 | 2, 12 | wlk2v2elem1 29398 |
. . . 4
β’ πΉ β Word dom πΌ |
14 | | wlk2v2e.p |
. . . . . . . 8
β’ π = β¨βπππββ© |
15 | 5 | prid1 4766 |
. . . . . . . . 9
β’ π β {π, π} |
16 | 6 | prid2 4767 |
. . . . . . . . 9
β’ π β {π, π} |
17 | | s3cl 14827 |
. . . . . . . . 9
β’ ((π β {π, π} β§ π β {π, π} β§ π β {π, π}) β β¨βπππββ© β Word {π, π}) |
18 | 15, 16, 15, 17 | mp3an 1462 |
. . . . . . . 8
β’
β¨βπππββ© β Word {π, π} |
19 | 14, 18 | eqeltri 2830 |
. . . . . . 7
β’ π β Word {π, π} |
20 | | wrdf 14466 |
. . . . . . 7
β’ (π β Word {π, π} β π:(0..^(β―βπ))βΆ{π, π}) |
21 | 19, 20 | ax-mp 5 |
. . . . . 6
β’ π:(0..^(β―βπ))βΆ{π, π} |
22 | 14 | fveq2i 6892 |
. . . . . . . . 9
β’
(β―βπ) =
(β―ββ¨βπππββ©) |
23 | | s3len 14842 |
. . . . . . . . 9
β’
(β―ββ¨βπππββ©) = 3 |
24 | 22, 23 | eqtr2i 2762 |
. . . . . . . 8
β’ 3 =
(β―βπ) |
25 | 24 | oveq2i 7417 |
. . . . . . 7
β’ (0..^3) =
(0..^(β―βπ)) |
26 | 25 | feq2i 6707 |
. . . . . 6
β’ (π:(0..^3)βΆ{π, π} β π:(0..^(β―βπ))βΆ{π, π}) |
27 | 21, 26 | mpbir 230 |
. . . . 5
β’ π:(0..^3)βΆ{π, π} |
28 | 12 | fveq2i 6892 |
. . . . . . . . 9
β’
(β―βπΉ) =
(β―ββ¨β00ββ©) |
29 | | s2len 14837 |
. . . . . . . . 9
β’
(β―ββ¨β00ββ©) = 2 |
30 | 28, 29 | eqtri 2761 |
. . . . . . . 8
β’
(β―βπΉ) =
2 |
31 | 30 | oveq2i 7417 |
. . . . . . 7
β’
(0...(β―βπΉ)) = (0...2) |
32 | | 3z 12592 |
. . . . . . . . 9
β’ 3 β
β€ |
33 | | fzoval 13630 |
. . . . . . . . 9
β’ (3 β
β€ β (0..^3) = (0...(3 β 1))) |
34 | 32, 33 | ax-mp 5 |
. . . . . . . 8
β’ (0..^3) =
(0...(3 β 1)) |
35 | | 3m1e2 12337 |
. . . . . . . . 9
β’ (3
β 1) = 2 |
36 | 35 | oveq2i 7417 |
. . . . . . . 8
β’ (0...(3
β 1)) = (0...2) |
37 | 34, 36 | eqtr2i 2762 |
. . . . . . 7
β’ (0...2) =
(0..^3) |
38 | 31, 37 | eqtri 2761 |
. . . . . 6
β’
(0...(β―βπΉ)) = (0..^3) |
39 | 38 | feq2i 6707 |
. . . . 5
β’ (π:(0...(β―βπΉ))βΆ{π, π} β π:(0..^3)βΆ{π, π}) |
40 | 27, 39 | mpbir 230 |
. . . 4
β’ π:(0...(β―βπΉ))βΆ{π, π} |
41 | 2, 12, 5, 6, 14 | wlk2v2elem2 29399 |
. . . 4
β’
βπ β
(0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} |
42 | 13, 40, 41 | 3pm3.2i 1340 |
. . 3
β’ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ{π, π} β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}) |
43 | 1 | fveq2i 6892 |
. . . . 5
β’
(VtxβπΊ) =
(Vtxββ¨{π, π}, πΌβ©) |
44 | | prex 5432 |
. . . . . 6
β’ {π, π} β V |
45 | | s1cli 14552 |
. . . . . . 7
β’
β¨β{π,
π}ββ© β Word
V |
46 | 2, 45 | eqeltri 2830 |
. . . . . 6
β’ πΌ β Word V |
47 | | opvtxfv 28254 |
. . . . . 6
β’ (({π, π} β V β§ πΌ β Word V) β
(Vtxββ¨{π, π}, πΌβ©) = {π, π}) |
48 | 44, 46, 47 | mp2an 691 |
. . . . 5
β’
(Vtxββ¨{π,
π}, πΌβ©) = {π, π} |
49 | 43, 48 | eqtr2i 2762 |
. . . 4
β’ {π, π} = (VtxβπΊ) |
50 | 1 | fveq2i 6892 |
. . . . 5
β’
(iEdgβπΊ) =
(iEdgββ¨{π, π}, πΌβ©) |
51 | | opiedgfv 28257 |
. . . . . 6
β’ (({π, π} β V β§ πΌ β Word V) β
(iEdgββ¨{π, π}, πΌβ©) = πΌ) |
52 | 44, 46, 51 | mp2an 691 |
. . . . 5
β’
(iEdgββ¨{π, π}, πΌβ©) = πΌ |
53 | 50, 52 | eqtr2i 2762 |
. . . 4
β’ πΌ = (iEdgβπΊ) |
54 | 49, 53 | upgriswlk 28888 |
. . 3
β’ (πΊ β UPGraph β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ{π, π} β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |
55 | 42, 54 | mpbiri 258 |
. 2
β’ (πΊ β UPGraph β πΉ(WalksβπΊ)π) |
56 | 11, 55 | ax-mp 5 |
1
β’ πΉ(WalksβπΊ)π |