Step | Hyp | Ref
| Expression |
1 | | wwlksnextbij0.v |
. . . 4
β’ π = (VtxβπΊ) |
2 | 1 | wwlknbp 28884 |
. . 3
β’ (π β (π WWalksN πΊ) β (πΊ β V β§ π β β0 β§ π β Word π)) |
3 | | simp2 1137 |
. . 3
β’ ((πΊ β V β§ π β β0
β§ π β Word π) β π β
β0) |
4 | | wwlksnextbij0.e |
. . . 4
β’ πΈ = (EdgβπΊ) |
5 | | wwlksnextbij0.d |
. . . 4
β’ π· = {π€ β Word π β£ ((β―βπ€) = (π + 2) β§ (π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)} |
6 | | wwlksnextbij0.r |
. . . 4
β’ π
= {π β π β£ {(lastSβπ), π} β πΈ} |
7 | | wwlksnextbij0.f |
. . . 4
β’ πΉ = (π‘ β π· β¦ (lastSβπ‘)) |
8 | 1, 4, 5, 6, 7 | wwlksnextfun 28940 |
. . 3
β’ (π β β0
β πΉ:π·βΆπ
) |
9 | 2, 3, 8 | 3syl 18 |
. 2
β’ (π β (π WWalksN πΊ) β πΉ:π·βΆπ
) |
10 | | preq2 4715 |
. . . . . 6
β’ (π = π β {(lastSβπ), π} = {(lastSβπ), π}) |
11 | 10 | eleq1d 2817 |
. . . . 5
β’ (π = π β ({(lastSβπ), π} β πΈ β {(lastSβπ), π} β πΈ)) |
12 | 11, 6 | elrab2 3666 |
. . . 4
β’ (π β π
β (π β π β§ {(lastSβπ), π} β πΈ)) |
13 | 1, 4 | wwlksnext 28935 |
. . . . . . . . . . 11
β’ ((π β (π WWalksN πΊ) β§ π β π β§ {(lastSβπ), π} β πΈ) β (π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ)) |
14 | 13 | 3expb 1120 |
. . . . . . . . . 10
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β (π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ)) |
15 | | s1cl 14517 |
. . . . . . . . . . . . . . . . . 18
β’ (π β π β β¨βπββ© β Word π) |
16 | | pfxccat1 14617 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Word π β§ β¨βπββ© β Word π) β ((π ++ β¨βπββ©) prefix (β―βπ)) = π) |
17 | 15, 16 | sylan2 593 |
. . . . . . . . . . . . . . . . 17
β’ ((π β Word π β§ π β π) β ((π ++ β¨βπββ©) prefix (β―βπ)) = π) |
18 | 17 | ex 413 |
. . . . . . . . . . . . . . . 16
β’ (π β Word π β (π β π β ((π ++ β¨βπββ©) prefix (β―βπ)) = π)) |
19 | 18 | adantr 481 |
. . . . . . . . . . . . . . 15
β’ ((π β Word π β§ (β―βπ) = (π + 1)) β (π β π β ((π ++ β¨βπββ©) prefix (β―βπ)) = π)) |
20 | | oveq2 7385 |
. . . . . . . . . . . . . . . . . 18
β’ ((π + 1) = (β―βπ) β ((π ++ β¨βπββ©) prefix (π + 1)) = ((π ++ β¨βπββ©) prefix (β―βπ))) |
21 | 20 | eqcoms 2739 |
. . . . . . . . . . . . . . . . 17
β’
((β―βπ) =
(π + 1) β ((π ++ β¨βπββ©) prefix (π + 1)) = ((π ++ β¨βπββ©) prefix (β―βπ))) |
22 | 21 | eqeq1d 2733 |
. . . . . . . . . . . . . . . 16
β’
((β―βπ) =
(π + 1) β (((π ++ β¨βπββ©) prefix (π + 1)) = π β ((π ++ β¨βπββ©) prefix (β―βπ)) = π)) |
23 | 22 | adantl 482 |
. . . . . . . . . . . . . . 15
β’ ((π β Word π β§ (β―βπ) = (π + 1)) β (((π ++ β¨βπββ©) prefix (π + 1)) = π β ((π ++ β¨βπββ©) prefix (β―βπ)) = π)) |
24 | 19, 23 | sylibrd 258 |
. . . . . . . . . . . . . 14
β’ ((π β Word π β§ (β―βπ) = (π + 1)) β (π β π β ((π ++ β¨βπββ©) prefix (π + 1)) = π)) |
25 | 24 | 3adant3 1132 |
. . . . . . . . . . . . 13
β’ ((π β Word π β§ (β―βπ) = (π + 1) β§ βπ β (0..^π){(πβπ), (πβ(π + 1))} β πΈ) β (π β π β ((π ++ β¨βπββ©) prefix (π + 1)) = π)) |
26 | 1, 4 | wwlknp 28885 |
. . . . . . . . . . . . 13
β’ (π β (π WWalksN πΊ) β (π β Word π β§ (β―βπ) = (π + 1) β§ βπ β (0..^π){(πβπ), (πβ(π + 1))} β πΈ)) |
27 | 25, 26 | syl11 33 |
. . . . . . . . . . . 12
β’ (π β π β (π β (π WWalksN πΊ) β ((π ++ β¨βπββ©) prefix (π + 1)) = π)) |
28 | 27 | adantr 481 |
. . . . . . . . . . 11
β’ ((π β π β§ {(lastSβπ), π} β πΈ) β (π β (π WWalksN πΊ) β ((π ++ β¨βπββ©) prefix (π + 1)) = π)) |
29 | 28 | impcom 408 |
. . . . . . . . . 10
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β ((π ++ β¨βπββ©) prefix (π + 1)) = π) |
30 | | lswccats1 14549 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β Word π β§ π β π) β (lastSβ(π ++ β¨βπββ©)) = π) |
31 | 30 | eqcomd 2737 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β Word π β§ π β π) β π = (lastSβ(π ++ β¨βπββ©))) |
32 | 31 | ex 413 |
. . . . . . . . . . . . . . . . 17
β’ (π β Word π β (π β π β π = (lastSβ(π ++ β¨βπββ©)))) |
33 | 32 | 3ad2ant3 1135 |
. . . . . . . . . . . . . . . 16
β’ ((πΊ β V β§ π β β0
β§ π β Word π) β (π β π β π = (lastSβ(π ++ β¨βπββ©)))) |
34 | 2, 33 | syl 17 |
. . . . . . . . . . . . . . 15
β’ (π β (π WWalksN πΊ) β (π β π β π = (lastSβ(π ++ β¨βπββ©)))) |
35 | 34 | imp 407 |
. . . . . . . . . . . . . 14
β’ ((π β (π WWalksN πΊ) β§ π β π) β π = (lastSβ(π ++ β¨βπββ©))) |
36 | 35 | preq2d 4721 |
. . . . . . . . . . . . 13
β’ ((π β (π WWalksN πΊ) β§ π β π) β {(lastSβπ), π} = {(lastSβπ), (lastSβ(π ++ β¨βπββ©))}) |
37 | 36 | eleq1d 2817 |
. . . . . . . . . . . 12
β’ ((π β (π WWalksN πΊ) β§ π β π) β ({(lastSβπ), π} β πΈ β {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) |
38 | 37 | biimpd 228 |
. . . . . . . . . . 11
β’ ((π β (π WWalksN πΊ) β§ π β π) β ({(lastSβπ), π} β πΈ β {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) |
39 | 38 | impr 455 |
. . . . . . . . . 10
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ) |
40 | 14, 29, 39 | jca32 516 |
. . . . . . . . 9
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β ((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ))) |
41 | 33, 2 | syl11 33 |
. . . . . . . . . . 11
β’ (π β π β (π β (π WWalksN πΊ) β π = (lastSβ(π ++ β¨βπββ©)))) |
42 | 41 | adantr 481 |
. . . . . . . . . 10
β’ ((π β π β§ {(lastSβπ), π} β πΈ) β (π β (π WWalksN πΊ) β π = (lastSβ(π ++ β¨βπββ©)))) |
43 | 42 | impcom 408 |
. . . . . . . . 9
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β π = (lastSβ(π ++ β¨βπββ©))) |
44 | | ovexd 7412 |
. . . . . . . . . 10
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β (π ++ β¨βπββ©) β V) |
45 | | eleq1 2820 |
. . . . . . . . . . . . . . 15
β’ (π = (π ++ β¨βπββ©) β (π β ((π + 1) WWalksN πΊ) β (π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ))) |
46 | | oveq1 7384 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π ++ β¨βπββ©) β (π prefix (π + 1)) = ((π ++ β¨βπββ©) prefix (π + 1))) |
47 | 46 | eqeq1d 2733 |
. . . . . . . . . . . . . . . 16
β’ (π = (π ++ β¨βπββ©) β ((π prefix (π + 1)) = π β ((π ++ β¨βπββ©) prefix (π + 1)) = π)) |
48 | | fveq2 6862 |
. . . . . . . . . . . . . . . . . 18
β’ (π = (π ++ β¨βπββ©) β (lastSβπ) = (lastSβ(π ++ β¨βπββ©))) |
49 | 48 | preq2d 4721 |
. . . . . . . . . . . . . . . . 17
β’ (π = (π ++ β¨βπββ©) β {(lastSβπ), (lastSβπ)} = {(lastSβπ), (lastSβ(π ++ β¨βπββ©))}) |
50 | 49 | eleq1d 2817 |
. . . . . . . . . . . . . . . 16
β’ (π = (π ++ β¨βπββ©) β ({(lastSβπ), (lastSβπ)} β πΈ β {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) |
51 | 47, 50 | anbi12d 631 |
. . . . . . . . . . . . . . 15
β’ (π = (π ++ β¨βπββ©) β (((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ) β (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ))) |
52 | 45, 51 | anbi12d 631 |
. . . . . . . . . . . . . 14
β’ (π = (π ++ β¨βπββ©) β ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β ((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)))) |
53 | 48 | eqeq2d 2742 |
. . . . . . . . . . . . . 14
β’ (π = (π ++ β¨βπββ©) β (π = (lastSβπ) β π = (lastSβ(π ++ β¨βπββ©)))) |
54 | 52, 53 | anbi12d 631 |
. . . . . . . . . . . . 13
β’ (π = (π ++ β¨βπββ©) β (((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ)) β (((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) β§ π = (lastSβ(π ++ β¨βπββ©))))) |
55 | 54 | bicomd 222 |
. . . . . . . . . . . 12
β’ (π = (π ++ β¨βπββ©) β ((((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) β§ π = (lastSβ(π ++ β¨βπββ©))) β ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ)))) |
56 | 55 | adantl 482 |
. . . . . . . . . . 11
β’ (((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β§ π = (π ++ β¨βπββ©)) β ((((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) β§ π = (lastSβ(π ++ β¨βπββ©))) β ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ)))) |
57 | 56 | biimpd 228 |
. . . . . . . . . 10
β’ (((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β§ π = (π ++ β¨βπββ©)) β ((((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) β§ π = (lastSβ(π ++ β¨βπββ©))) β ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ)))) |
58 | 44, 57 | spcimedv 3568 |
. . . . . . . . 9
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β ((((π ++ β¨βπββ©) β ((π + 1) WWalksN πΊ) β§ (((π ++ β¨βπββ©) prefix (π + 1)) = π β§ {(lastSβπ), (lastSβ(π ++ β¨βπββ©))} β πΈ)) β§ π = (lastSβ(π ++ β¨βπββ©))) β βπ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ)))) |
59 | 40, 43, 58 | mp2and 697 |
. . . . . . . 8
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β βπ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ))) |
60 | | oveq1 7384 |
. . . . . . . . . . . . 13
β’ (π€ = π β (π€ prefix (π + 1)) = (π prefix (π + 1))) |
61 | 60 | eqeq1d 2733 |
. . . . . . . . . . . 12
β’ (π€ = π β ((π€ prefix (π + 1)) = π β (π prefix (π + 1)) = π)) |
62 | | fveq2 6862 |
. . . . . . . . . . . . . 14
β’ (π€ = π β (lastSβπ€) = (lastSβπ)) |
63 | 62 | preq2d 4721 |
. . . . . . . . . . . . 13
β’ (π€ = π β {(lastSβπ), (lastSβπ€)} = {(lastSβπ), (lastSβπ)}) |
64 | 63 | eleq1d 2817 |
. . . . . . . . . . . 12
β’ (π€ = π β ({(lastSβπ), (lastSβπ€)} β πΈ β {(lastSβπ), (lastSβπ)} β πΈ)) |
65 | 61, 64 | anbi12d 631 |
. . . . . . . . . . 11
β’ (π€ = π β (((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ) β ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ))) |
66 | 65 | elrab 3663 |
. . . . . . . . . 10
β’ (π β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)} β (π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ))) |
67 | 66 | anbi1i 624 |
. . . . . . . . 9
β’ ((π β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)} β§ π = (lastSβπ)) β ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ))) |
68 | 67 | exbii 1850 |
. . . . . . . 8
β’
(βπ(π β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)} β§ π = (lastSβπ)) β βπ((π β ((π + 1) WWalksN πΊ) β§ ((π prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ)} β πΈ)) β§ π = (lastSβπ))) |
69 | 59, 68 | sylibr 233 |
. . . . . . 7
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β βπ(π β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)} β§ π = (lastSβπ))) |
70 | | df-rex 3070 |
. . . . . . 7
β’
(βπ β
{π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)}π = (lastSβπ) β βπ(π β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)} β§ π = (lastSβπ))) |
71 | 69, 70 | sylibr 233 |
. . . . . 6
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β βπ β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)}π = (lastSβπ)) |
72 | 1, 4, 5 | wwlksnextwrd 28939 |
. . . . . . . 8
β’ (π β (π WWalksN πΊ) β π· = {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)}) |
73 | 72 | adantr 481 |
. . . . . . 7
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β π· = {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)}) |
74 | 73 | rexeqdv 3325 |
. . . . . 6
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β (βπ β π· π = (lastSβπ) β βπ β {π€ β ((π + 1) WWalksN πΊ) β£ ((π€ prefix (π + 1)) = π β§ {(lastSβπ), (lastSβπ€)} β πΈ)}π = (lastSβπ))) |
75 | 71, 74 | mpbird 256 |
. . . . 5
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β βπ β π· π = (lastSβπ)) |
76 | | fveq2 6862 |
. . . . . . . 8
β’ (π‘ = π β (lastSβπ‘) = (lastSβπ)) |
77 | | fvex 6875 |
. . . . . . . 8
β’
(lastSβπ)
β V |
78 | 76, 7, 77 | fvmpt 6968 |
. . . . . . 7
β’ (π β π· β (πΉβπ) = (lastSβπ)) |
79 | 78 | eqeq2d 2742 |
. . . . . 6
β’ (π β π· β (π = (πΉβπ) β π = (lastSβπ))) |
80 | 79 | rexbiia 3091 |
. . . . 5
β’
(βπ β
π· π = (πΉβπ) β βπ β π· π = (lastSβπ)) |
81 | 75, 80 | sylibr 233 |
. . . 4
β’ ((π β (π WWalksN πΊ) β§ (π β π β§ {(lastSβπ), π} β πΈ)) β βπ β π· π = (πΉβπ)) |
82 | 12, 81 | sylan2b 594 |
. . 3
β’ ((π β (π WWalksN πΊ) β§ π β π
) β βπ β π· π = (πΉβπ)) |
83 | 82 | ralrimiva 3145 |
. 2
β’ (π β (π WWalksN πΊ) β βπ β π
βπ β π· π = (πΉβπ)) |
84 | | dffo3 7072 |
. 2
β’ (πΉ:π·βontoβπ
β (πΉ:π·βΆπ
β§ βπ β π
βπ β π· π = (πΉβπ))) |
85 | 9, 83, 84 | sylanbrc 583 |
1
β’ (π β (π WWalksN πΊ) β πΉ:π·βontoβπ
) |