Step | Hyp | Ref
| Expression |
1 | | lfgrwlkprop.i |
. . . . 5
β’ πΌ = (iEdgβπΊ) |
2 | 1 | wlkf 29139 |
. . . 4
β’ (πΉ(WalksβπΊ)π β πΉ β Word dom πΌ) |
3 | 2 | adantl 481 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ πΉ(WalksβπΊ)π) β πΉ β Word dom πΌ) |
4 | | lfgriswlk.v |
. . . . 5
β’ π = (VtxβπΊ) |
5 | 4 | wlkp 29141 |
. . . 4
β’ (πΉ(WalksβπΊ)π β π:(0...(β―βπΉ))βΆπ) |
6 | 5 | adantl 481 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ πΉ(WalksβπΊ)π) β π:(0...(β―βπΉ))βΆπ) |
7 | 1 | lfgrwlkprop 29212 |
. . . . . . 7
β’ ((πΉ(WalksβπΊ)π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β βπ β
(0..^(β―βπΉ))(πβπ) β (πβ(π + 1))) |
8 | 7 | expcom 413 |
. . . . . 6
β’ (πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)} β (πΉ(WalksβπΊ)π β βπ β (0..^(β―βπΉ))(πβπ) β (πβ(π + 1)))) |
9 | 8 | adantl 481 |
. . . . 5
β’ ((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β (πΉ(WalksβπΊ)π β βπ β (0..^(β―βπΉ))(πβπ) β (πβ(π + 1)))) |
10 | 9 | imp 406 |
. . . 4
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ πΉ(WalksβπΊ)π) β βπ β (0..^(β―βπΉ))(πβπ) β (πβ(π + 1))) |
11 | 1 | wlkvtxeledg 29149 |
. . . . 5
β’ (πΉ(WalksβπΊ)π β βπ β (0..^(β―βπΉ)){(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) |
12 | 11 | adantl 481 |
. . . 4
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ πΉ(WalksβπΊ)π) β βπ β (0..^(β―βπΉ)){(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) |
13 | | r19.26 3110 |
. . . 4
β’
(βπ β
(0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (βπ β (0..^(β―βπΉ))(πβπ) β (πβ(π + 1)) β§ βπ β (0..^(β―βπΉ)){(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
14 | 10, 12, 13 | sylanbrc 582 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ πΉ(WalksβπΊ)π) β βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
15 | 3, 6, 14 | 3jca 1127 |
. 2
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ πΉ(WalksβπΊ)π) β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) |
16 | | simpr1 1193 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) β πΉ β Word dom πΌ) |
17 | | simpr2 1194 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) β π:(0...(β―βπΉ))βΆπ) |
18 | | df-ne 2940 |
. . . . . . . 8
β’ ((πβπ) β (πβ(π + 1)) β Β¬ (πβπ) = (πβ(π + 1))) |
19 | | ifpfal 1074 |
. . . . . . . 8
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
20 | 18, 19 | sylbi 216 |
. . . . . . 7
β’ ((πβπ) β (πβ(π + 1)) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
21 | 20 | biimpar 477 |
. . . . . 6
β’ (((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
22 | 21 | ralimi 3082 |
. . . . 5
β’
(βπ β
(0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
23 | 22 | 3ad2ant3 1134 |
. . . 4
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
24 | 23 | adantl 481 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) β βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
25 | 4, 1 | iswlkg 29138 |
. . . 4
β’ (πΊ β π β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))))) |
26 | 25 | ad2antrr 723 |
. . 3
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))))) |
27 | 16, 17, 24, 26 | mpbir3and 1341 |
. 2
β’ (((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) β πΉ(WalksβπΊ)π) |
28 | 15, 27 | impbida 798 |
1
β’ ((πΊ β π β§ πΌ:dom πΌβΆ{π₯ β π« π β£ 2 β€ (β―βπ₯)}) β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))((πβπ) β (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))))) |