Step | Hyp | Ref
| Expression |
1 | | pthiswlk 29248 |
. . . . 5
β’ (πΉ(PathsβπΊ)π β πΉ(WalksβπΊ)π) |
2 | | wlkv 29133 |
. . . . 5
β’ (πΉ(WalksβπΊ)π β (πΊ β V β§ πΉ β V β§ π β V)) |
3 | 1, 2 | syl 17 |
. . . 4
β’ (πΉ(PathsβπΊ)π β (πΊ β V β§ πΉ β V β§ π β V)) |
4 | | ispth 29244 |
. . . . . 6
β’ (πΉ(PathsβπΊ)π β (πΉ(TrailsβπΊ)π β§ Fun β‘(π βΎ (1..^(β―βπΉ))) β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) =
β
)) |
5 | | istrl 29217 |
. . . . . . . . . . . 12
β’ (πΉ(TrailsβπΊ)π β (πΉ(WalksβπΊ)π β§ Fun β‘πΉ)) |
6 | | eqid 2731 |
. . . . . . . . . . . . . 14
β’
(VtxβπΊ) =
(VtxβπΊ) |
7 | | 2pthnloop.i |
. . . . . . . . . . . . . 14
β’ πΌ = (iEdgβπΊ) |
8 | 6, 7 | iswlkg 29134 |
. . . . . . . . . . . . 13
β’ (πΊ β V β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))))) |
9 | 8 | anbi1d 629 |
. . . . . . . . . . . 12
β’ (πΊ β V β ((πΉ(WalksβπΊ)π β§ Fun β‘πΉ) β ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β§ Fun β‘πΉ))) |
10 | 5, 9 | bitrid 282 |
. . . . . . . . . . 11
β’ (πΊ β V β (πΉ(TrailsβπΊ)π β ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β§ Fun β‘πΉ))) |
11 | | pthdadjvtx 29251 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πΉ(PathsβπΊ)π β§ 1 < (β―βπΉ) β§ π β (0..^(β―βπΉ))) β (πβπ) β (πβ(π + 1))) |
12 | 11 | ad5ant245 1360 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β§
π β
(0..^(β―βπΉ)))
β (πβπ) β (πβ(π + 1))) |
13 | 12 | neneqd 2944 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β§
π β
(0..^(β―βπΉ)))
β Β¬ (πβπ) = (πβ(π + 1))) |
14 | | ifpfal 1074 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
15 | 14 | adantl 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β§
π β
(0..^(β―βπΉ)))
β§ Β¬ (πβπ) = (πβ(π + 1))) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
16 | | fvexd 6907 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πβπ) β V) |
17 | | fvexd 6907 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πβ(π + 1)) β V) |
18 | | neqne 2947 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πβπ) β (πβ(π + 1))) |
19 | | fvexd 6907 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πΌβ(πΉβπ)) β V) |
20 | | prsshashgt1 14375 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((((πβπ) β V β§ (πβ(π + 1)) β V β§ (πβπ) β (πβ(π + 1))) β§ (πΌβ(πΉβπ)) β V) β ({(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)) β 2 β€ (β―β(πΌβ(πΉβπ))))) |
21 | 16, 17, 18, 19, 20 | syl31anc 1372 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (Β¬
(πβπ) = (πβ(π + 1)) β ({(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)) β 2 β€ (β―β(πΌβ(πΉβπ))))) |
22 | 21 | adantl 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β§
π β
(0..^(β―βπΉ)))
β§ Β¬ (πβπ) = (πβ(π + 1))) β ({(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)) β 2 β€ (β―β(πΌβ(πΉβπ))))) |
23 | 15, 22 | sylbid 239 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β§
π β
(0..^(β―βπΉ)))
β§ Β¬ (πβπ) = (πβ(π + 1))) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β 2 β€ (β―β(πΌβ(πΉβπ))))) |
24 | 13, 23 | mpdan 684 |
. . . . . . . . . . . . . . . . . . 19
β’
((((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β§
π β
(0..^(β―βπΉ)))
β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β 2 β€ (β―β(πΌβ(πΉβπ))))) |
25 | 24 | ralimdva 3166 |
. . . . . . . . . . . . . . . . . 18
β’
(((((πΉ β Word
dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β§ 1 <
(β―βπΉ)) β
(βπ β
(0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β βπ β (0..^(β―βπΉ))2 β€ (β―β(πΌβ(πΉβπ))))) |
26 | 25 | ex 412 |
. . . . . . . . . . . . . . . . 17
β’ ((((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β (1 <
(β―βπΉ) β
(βπ β
(0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β βπ β (0..^(β―βπΉ))2 β€ (β―β(πΌβ(πΉβπ)))))) |
27 | 26 | com23 86 |
. . . . . . . . . . . . . . . 16
β’ ((((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β§ πΉ(PathsβπΊ)π) β§ ((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ))))) β (βπ β
(0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ)))))) |
28 | 27 | exp31 419 |
. . . . . . . . . . . . . . 15
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β (πΉ(PathsβπΊ)π β (((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ)))) β (βπ β
(0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ)))))))) |
29 | 28 | com24 95 |
. . . . . . . . . . . . . 14
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ)) β (βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ)))) β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ)))))))) |
30 | 29 | 3impia 1116 |
. . . . . . . . . . . . 13
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (((Fun β‘πΉ β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β§ Fun β‘(π βΎ (1..^(β―βπΉ)))) β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))) |
31 | 30 | exp4c 432 |
. . . . . . . . . . . 12
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (Fun β‘πΉ β (((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
β (Fun β‘(π βΎ (1..^(β―βπΉ))) β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))))) |
32 | 31 | imp 406 |
. . . . . . . . . . 11
β’ (((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β§ Fun β‘πΉ) β (((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
β (Fun β‘(π βΎ (1..^(β―βπΉ))) β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ)))))))) |
33 | 10, 32 | syl6bi 252 |
. . . . . . . . . 10
β’ (πΊ β V β (πΉ(TrailsβπΊ)π β (((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
β (Fun β‘(π βΎ (1..^(β―βπΉ))) β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))))) |
34 | 33 | com24 95 |
. . . . . . . . 9
β’ (πΊ β V β (Fun β‘(π βΎ (1..^(β―βπΉ))) β (((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
β (πΉ(TrailsβπΊ)π β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))))) |
35 | 34 | com14 96 |
. . . . . . . 8
β’ (πΉ(TrailsβπΊ)π β (Fun β‘(π βΎ (1..^(β―βπΉ))) β (((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
β (πΊ β V β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))))) |
36 | 35 | 3imp 1110 |
. . . . . . 7
β’ ((πΉ(TrailsβπΊ)π β§ Fun β‘(π βΎ (1..^(β―βπΉ))) β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β (πΊ β V β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))) |
37 | 36 | com12 32 |
. . . . . 6
β’ (πΊ β V β ((πΉ(TrailsβπΊ)π β§ Fun β‘(π βΎ (1..^(β―βπΉ))) β§ ((π β {0, (β―βπΉ)}) β© (π β (1..^(β―βπΉ)))) = β
) β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))) |
38 | 4, 37 | biimtrid 241 |
. . . . 5
β’ (πΊ β V β (πΉ(PathsβπΊ)π β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))) |
39 | 38 | 3ad2ant1 1132 |
. . . 4
β’ ((πΊ β V β§ πΉ β V β§ π β V) β (πΉ(PathsβπΊ)π β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))))) |
40 | 3, 39 | mpcom 38 |
. . 3
β’ (πΉ(PathsβπΊ)π β (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ)))))) |
41 | 40 | pm2.43i 52 |
. 2
β’ (πΉ(PathsβπΊ)π β (1 < (β―βπΉ) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ))))) |
42 | 41 | imp 406 |
1
β’ ((πΉ(PathsβπΊ)π β§ 1 < (β―βπΉ)) β βπ β
(0..^(β―βπΉ))2
β€ (β―β(πΌβ(πΉβπ)))) |