Step | Hyp | Ref
| Expression |
1 | | clwlkclwwlkf.c |
. . 3
β’ πΆ = {π€ β (ClWalksβπΊ) β£ 1 β€
(β―β(1st βπ€))} |
2 | | clwlkclwwlkf.f |
. . 3
β’ πΉ = (π β πΆ β¦ ((2nd βπ) prefix
((β―β(2nd βπ)) β 1))) |
3 | 1, 2 | clwlkclwwlkf 29251 |
. 2
β’ (πΊ β USPGraph β πΉ:πΆβΆ(ClWWalksβπΊ)) |
4 | | clwwlkgt0 29229 |
. . . . . 6
β’ (π€ β (ClWWalksβπΊ) β 0 <
(β―βπ€)) |
5 | | eqid 2733 |
. . . . . . . 8
β’
(VtxβπΊ) =
(VtxβπΊ) |
6 | 5 | clwwlkbp 29228 |
. . . . . . 7
β’ (π€ β (ClWWalksβπΊ) β (πΊ β V β§ π€ β Word (VtxβπΊ) β§ π€ β β
)) |
7 | | lencl 14480 |
. . . . . . . . . . . 12
β’ (π€ β Word (VtxβπΊ) β (β―βπ€) β
β0) |
8 | 7 | nn0zd 12581 |
. . . . . . . . . . 11
β’ (π€ β Word (VtxβπΊ) β (β―βπ€) β
β€) |
9 | | zgt0ge1 12613 |
. . . . . . . . . . 11
β’
((β―βπ€)
β β€ β (0 < (β―βπ€) β 1 β€ (β―βπ€))) |
10 | 8, 9 | syl 17 |
. . . . . . . . . 10
β’ (π€ β Word (VtxβπΊ) β (0 <
(β―βπ€) β 1
β€ (β―βπ€))) |
11 | 10 | biimpd 228 |
. . . . . . . . 9
β’ (π€ β Word (VtxβπΊ) β (0 <
(β―βπ€) β 1
β€ (β―βπ€))) |
12 | 11 | anc2li 557 |
. . . . . . . 8
β’ (π€ β Word (VtxβπΊ) β (0 <
(β―βπ€) β
(π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€)))) |
13 | 12 | 3ad2ant2 1135 |
. . . . . . 7
β’ ((πΊ β V β§ π€ β Word (VtxβπΊ) β§ π€ β β
) β (0 <
(β―βπ€) β
(π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€)))) |
14 | 6, 13 | syl 17 |
. . . . . 6
β’ (π€ β (ClWWalksβπΊ) β (0 <
(β―βπ€) β
(π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€)))) |
15 | 4, 14 | mpd 15 |
. . . . 5
β’ (π€ β (ClWWalksβπΊ) β (π€ β Word (VtxβπΊ) β§ 1 β€ (β―βπ€))) |
16 | 15 | adantl 483 |
. . . 4
β’ ((πΊ β USPGraph β§ π€ β (ClWWalksβπΊ)) β (π€ β Word (VtxβπΊ) β§ 1 β€ (β―βπ€))) |
17 | | eqid 2733 |
. . . . . . . . 9
β’
(iEdgβπΊ) =
(iEdgβπΊ) |
18 | 5, 17 | clwlkclwwlk2 29246 |
. . . . . . . 8
β’ ((πΊ β USPGraph β§ π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(βπ π(ClWalksβπΊ)(π€ ++ β¨β(π€β0)ββ©) β π€ β (ClWWalksβπΊ))) |
19 | | df-br 5149 |
. . . . . . . . . 10
β’ (π(ClWalksβπΊ)(π€ ++ β¨β(π€β0)ββ©) β β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
(ClWalksβπΊ)) |
20 | | simpr2 1196 |
. . . . . . . . . . . . . 14
β’
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β
π€ β Word
(VtxβπΊ)) |
21 | | simpr3 1197 |
. . . . . . . . . . . . . 14
β’
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β
1 β€ (β―βπ€)) |
22 | | simpl 484 |
. . . . . . . . . . . . . 14
β’
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)) |
23 | 1 | clwlkclwwlkfolem 29250 |
. . . . . . . . . . . . . 14
β’ ((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β πΆ) |
24 | 20, 21, 22, 23 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β πΆ) |
25 | 23 | 3expa 1119 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β πΆ) |
26 | | ovex 7439 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π€ ++ β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β 1)) β
V |
27 | | fveq2 6889 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
(2nd βπ) =
(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) |
28 | | 2fveq3 6894 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
(β―β(2nd βπ)) = (β―β(2nd
ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©))) |
29 | 28 | oveq1d 7421 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
((β―β(2nd βπ)) β 1) =
((β―β(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) β
1)) |
30 | 27, 29 | oveq12d 7424 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
((2nd βπ)
prefix ((β―β(2nd βπ)) β 1)) = ((2nd
ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)
prefix ((β―β(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) β
1))) |
31 | | vex 3479 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ π β V |
32 | | ovex 7439 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (π€ ++ β¨β(π€β0)ββ©) β
V |
33 | 31, 32 | op2nd 7981 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©) = (π€ ++ β¨β(π€β0)ββ©) |
34 | 33 | fveq2i 6892 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
(β―β(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) =
(β―β(π€ ++
β¨β(π€β0)ββ©)) |
35 | 34 | oveq1i 7416 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((β―β(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) β 1) =
((β―β(π€ ++
β¨β(π€β0)ββ©)) β
1) |
36 | 33, 35 | oveq12i 7418 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©) prefix
((β―β(2nd ββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) β 1)) =
((π€ ++ β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β
1)) |
37 | 30, 36 | eqtrdi 2789 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
((2nd βπ)
prefix ((β―β(2nd βπ)) β 1)) = ((π€ ++ β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β
1))) |
38 | 37, 2 | fvmptg 6994 |
. . . . . . . . . . . . . . . . . . 19
β’
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β πΆ β§ ((π€ ++ β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β 1)) β
V) β (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©) = ((π€ ++ β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β
1))) |
39 | 25, 26, 38 | sylancl 587 |
. . . . . . . . . . . . . . . . . 18
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©) = ((π€ ++ β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β
1))) |
40 | | wrdlenccats1lenm1 14569 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π€ β Word (VtxβπΊ) β ((β―β(π€ ++ β¨β(π€β0)ββ©)) β
1) = (β―βπ€)) |
41 | 40 | ad2antrr 725 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β ((β―β(π€
++ β¨β(π€β0)ββ©)) β 1) =
(β―βπ€)) |
42 | 41 | oveq2d 7422 |
. . . . . . . . . . . . . . . . . 18
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β ((π€ ++
β¨β(π€β0)ββ©) prefix
((β―β(π€ ++
β¨β(π€β0)ββ©)) β 1)) =
((π€ ++ β¨β(π€β0)ββ©) prefix
(β―βπ€))) |
43 | | simpll 766 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β π€ β Word
(VtxβπΊ)) |
44 | | simpl 484 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β (π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) |
45 | | wrdsymb1 14500 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(π€β0) β
(VtxβπΊ)) |
46 | 44, 45 | syl 17 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β (π€β0) β
(VtxβπΊ)) |
47 | 46 | s1cld 14550 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β β¨β(π€β0)ββ© β Word
(VtxβπΊ)) |
48 | | eqidd 2734 |
. . . . . . . . . . . . . . . . . . 19
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β (β―βπ€) =
(β―βπ€)) |
49 | | pfxccatid 14688 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π€ β Word (VtxβπΊ) β§ β¨β(π€β0)ββ© β
Word (VtxβπΊ) β§
(β―βπ€) =
(β―βπ€)) β
((π€ ++ β¨β(π€β0)ββ©) prefix
(β―βπ€)) = π€) |
50 | 43, 47, 48, 49 | syl3anc 1372 |
. . . . . . . . . . . . . . . . . 18
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β ((π€ ++
β¨β(π€β0)ββ©) prefix
(β―βπ€)) = π€) |
51 | 39, 42, 50 | 3eqtrrd 2778 |
. . . . . . . . . . . . . . . . 17
β’ (((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β§
β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ))
β π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) |
52 | 51 | ex 414 |
. . . . . . . . . . . . . . . 16
β’ ((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©))) |
53 | 52 | 3adant1 1131 |
. . . . . . . . . . . . . . 15
β’ ((πΊ β USPGraph β§ π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©))) |
54 | 53 | ad2antlr 726 |
. . . . . . . . . . . . . 14
β’
(((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β§
π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β©) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©))) |
55 | | fveq2 6889 |
. . . . . . . . . . . . . . . . 17
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β (πΉβπ) = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)) |
56 | 55 | eqeq2d 2744 |
. . . . . . . . . . . . . . . 16
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β (π€ = (πΉβπ) β π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©))) |
57 | 56 | imbi2d 341 |
. . . . . . . . . . . . . . 15
β’ (π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β π€ = (πΉβπ)) β (β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
(ClWalksβπΊ) β
π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)))) |
58 | 57 | adantl 483 |
. . . . . . . . . . . . . 14
β’
(((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β§
π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β©) β
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β π€ = (πΉβπ)) β (β¨π, (π€ ++ β¨β(π€β0)ββ©)β© β
(ClWalksβπΊ) β
π€ = (πΉββ¨π, (π€ ++ β¨β(π€β0)ββ©)β©)))) |
59 | 54, 58 | mpbird 257 |
. . . . . . . . . . . . 13
β’
(((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β§
π = β¨π, (π€ ++ β¨β(π€β0)ββ©)β©) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β π€ = (πΉβπ))) |
60 | 24, 59 | rspcimedv 3604 |
. . . . . . . . . . . 12
β’
((β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β§ (πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€))) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β βπ β
πΆ π€ = (πΉβπ))) |
61 | 60 | ex 414 |
. . . . . . . . . . 11
β’
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β ((πΊ β USPGraph
β§ π€ β Word
(VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β βπ β
πΆ π€ = (πΉβπ)))) |
62 | 61 | pm2.43b 55 |
. . . . . . . . . 10
β’ ((πΊ β USPGraph β§ π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(β¨π, (π€ ++ β¨β(π€β0)ββ©)β©
β (ClWalksβπΊ)
β βπ β
πΆ π€ = (πΉβπ))) |
63 | 19, 62 | biimtrid 241 |
. . . . . . . . 9
β’ ((πΊ β USPGraph β§ π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(π(ClWalksβπΊ)(π€ ++ β¨β(π€β0)ββ©) β βπ β πΆ π€ = (πΉβπ))) |
64 | 63 | exlimdv 1937 |
. . . . . . . 8
β’ ((πΊ β USPGraph β§ π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(βπ π(ClWalksβπΊ)(π€ ++ β¨β(π€β0)ββ©) β βπ β πΆ π€ = (πΉβπ))) |
65 | 18, 64 | sylbird 260 |
. . . . . . 7
β’ ((πΊ β USPGraph β§ π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(π€ β
(ClWWalksβπΊ) β
βπ β πΆ π€ = (πΉβπ))) |
66 | 65 | 3expib 1123 |
. . . . . 6
β’ (πΊ β USPGraph β ((π€ β Word (VtxβπΊ) β§ 1 β€
(β―βπ€)) β
(π€ β
(ClWWalksβπΊ) β
βπ β πΆ π€ = (πΉβπ)))) |
67 | 66 | com23 86 |
. . . . 5
β’ (πΊ β USPGraph β (π€ β (ClWWalksβπΊ) β ((π€ β Word (VtxβπΊ) β§ 1 β€ (β―βπ€)) β βπ β πΆ π€ = (πΉβπ)))) |
68 | 67 | imp 408 |
. . . 4
β’ ((πΊ β USPGraph β§ π€ β (ClWWalksβπΊ)) β ((π€ β Word (VtxβπΊ) β§ 1 β€ (β―βπ€)) β βπ β πΆ π€ = (πΉβπ))) |
69 | 16, 68 | mpd 15 |
. . 3
β’ ((πΊ β USPGraph β§ π€ β (ClWWalksβπΊ)) β βπ β πΆ π€ = (πΉβπ)) |
70 | 69 | ralrimiva 3147 |
. 2
β’ (πΊ β USPGraph β
βπ€ β
(ClWWalksβπΊ)βπ β πΆ π€ = (πΉβπ)) |
71 | | dffo3 7101 |
. 2
β’ (πΉ:πΆβontoβ(ClWWalksβπΊ) β (πΉ:πΆβΆ(ClWWalksβπΊ) β§ βπ€ β (ClWWalksβπΊ)βπ β πΆ π€ = (πΉβπ))) |
72 | 3, 70, 71 | sylanbrc 584 |
1
β’ (πΊ β USPGraph β πΉ:πΆβontoβ(ClWWalksβπΊ)) |