Step | Hyp | Ref
| Expression |
1 | | usgrupgr 28706 |
. . . 4
β’ (πΊ β USGraph β πΊ β
UPGraph) |
2 | | eqid 2731 |
. . . . 5
β’
(VtxβπΊ) =
(VtxβπΊ) |
3 | | eqid 2731 |
. . . . 5
β’
(iEdgβπΊ) =
(iEdgβπΊ) |
4 | 2, 3 | upgriswlk 29162 |
. . . 4
β’ (πΊ β UPGraph β (πΉ(WalksβπΊ)π β (πΉ β Word dom (iEdgβπΊ) β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |
5 | 1, 4 | syl 17 |
. . 3
β’ (πΊ β USGraph β (πΉ(WalksβπΊ)π β (πΉ β Word dom (iEdgβπΊ) β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |
6 | | 2wlklem 29188 |
. . . . . . . . . . . 12
β’
(βπ β
{0, 1} ((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)})) |
7 | | simplll 772 |
. . . . . . . . . . . . . . 15
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β πΊ β USGraph) |
8 | | fvex 6905 |
. . . . . . . . . . . . . . 15
β’ (πβ0) β
V |
9 | 3 | usgrnloopv 28721 |
. . . . . . . . . . . . . . 15
β’ ((πΊ β USGraph β§ (πβ0) β V) β
(((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β (πβ0) β (πβ1))) |
10 | 7, 8, 9 | sylancl 585 |
. . . . . . . . . . . . . 14
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β (((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β (πβ0) β (πβ1))) |
11 | | fvex 6905 |
. . . . . . . . . . . . . . 15
β’ (πβ1) β
V |
12 | 3 | usgrnloopv 28721 |
. . . . . . . . . . . . . . 15
β’ ((πΊ β USGraph β§ (πβ1) β V) β
(((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)} β (πβ1) β (πβ2))) |
13 | 7, 11, 12 | sylancl 585 |
. . . . . . . . . . . . . 14
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β (((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)} β (πβ1) β (πβ2))) |
14 | 10, 13 | anim12d 608 |
. . . . . . . . . . . . 13
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β ((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β ((πβ0) β (πβ1) β§ (πβ1) β (πβ2)))) |
15 | | fveqeq2 6901 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((πΉβ0) = (πΉβ1) β (((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β ((iEdgβπΊ)β(πΉβ1)) = {(πβ0), (πβ1)})) |
16 | | eqtr2 2755 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’
((((iEdgβπΊ)β(πΉβ1)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β {(πβ0), (πβ1)} = {(πβ1), (πβ2)}) |
17 | | prcom 4737 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ {(πβ1), (πβ2)} = {(πβ2), (πβ1)} |
18 | 17 | eqeq2i 2744 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ({(πβ0), (πβ1)} = {(πβ1), (πβ2)} β {(πβ0), (πβ1)} = {(πβ2), (πβ1)}) |
19 | | fvex 6905 |
. . . . . . . . . . . . . . . . . . . . . . . . . . . 28
β’ (πβ2) β
V |
20 | 8, 19 | preqr1 4850 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ ({(πβ0), (πβ1)} = {(πβ2), (πβ1)} β (πβ0) = (πβ2)) |
21 | 18, 20 | sylbi 216 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ ({(πβ0), (πβ1)} = {(πβ1), (πβ2)} β (πβ0) = (πβ2)) |
22 | 16, 21 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’
((((iEdgβπΊ)β(πΉβ1)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (πβ0) = (πβ2)) |
23 | 22 | ex 412 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’
(((iEdgβπΊ)β(πΉβ1)) = {(πβ0), (πβ1)} β (((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)} β (πβ0) = (πβ2))) |
24 | 15, 23 | syl6bi 252 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ ((πΉβ0) = (πΉβ1) β (((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β (((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)} β (πβ0) = (πβ2)))) |
25 | 24 | impd 410 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ ((πΉβ0) = (πΉβ1) β ((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (πβ0) = (πβ2))) |
26 | 25 | com12 32 |
. . . . . . . . . . . . . . . . . . . . 21
β’
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β ((πΉβ0) = (πΉβ1) β (πβ0) = (πβ2))) |
27 | 26 | necon3d 2960 |
. . . . . . . . . . . . . . . . . . . 20
β’
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β ((πβ0) β (πβ2) β (πΉβ0) β (πΉβ1))) |
28 | 27 | com12 32 |
. . . . . . . . . . . . . . . . . . 19
β’ ((πβ0) β (πβ2) β
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (πΉβ0) β (πΉβ1))) |
29 | 28 | adantr 480 |
. . . . . . . . . . . . . . . . . 18
β’ (((πβ0) β (πβ2) β§ ((πβ0) β (πβ1) β§ (πβ1) β (πβ2))) β
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (πΉβ0) β (πΉβ1))) |
30 | | simpl 482 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πβ0) β (πβ1) β§ (πβ1) β (πβ2)) β (πβ0) β (πβ1)) |
31 | 30 | adantl 481 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πβ0) β (πβ2) β§ ((πβ0) β (πβ1) β§ (πβ1) β (πβ2))) β (πβ0) β (πβ1)) |
32 | | simpl 482 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πβ0) β (πβ2) β§ ((πβ0) β (πβ1) β§ (πβ1) β (πβ2))) β (πβ0) β (πβ2)) |
33 | | simprr 770 |
. . . . . . . . . . . . . . . . . . 19
β’ (((πβ0) β (πβ2) β§ ((πβ0) β (πβ1) β§ (πβ1) β (πβ2))) β (πβ1) β (πβ2)) |
34 | 31, 32, 33 | 3jca 1127 |
. . . . . . . . . . . . . . . . . 18
β’ (((πβ0) β (πβ2) β§ ((πβ0) β (πβ1) β§ (πβ1) β (πβ2))) β ((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2))) |
35 | 29, 34 | jctild 525 |
. . . . . . . . . . . . . . . . 17
β’ (((πβ0) β (πβ2) β§ ((πβ0) β (πβ1) β§ (πβ1) β (πβ2))) β
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))) |
36 | 35 | ex 412 |
. . . . . . . . . . . . . . . 16
β’ ((πβ0) β (πβ2) β (((πβ0) β (πβ1) β§ (πβ1) β (πβ2)) β
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
37 | 36 | com23 86 |
. . . . . . . . . . . . . . 15
β’ ((πβ0) β (πβ2) β
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (((πβ0) β (πβ1) β§ (πβ1) β (πβ2)) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
38 | 37 | adantl 481 |
. . . . . . . . . . . . . 14
β’ (((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β
((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (((πβ0) β (πβ1) β§ (πβ1) β (πβ2)) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
39 | 38 | adantr 480 |
. . . . . . . . . . . . 13
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β ((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (((πβ0) β (πβ1) β§ (πβ1) β (πβ2)) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
40 | 14, 39 | mpdd 43 |
. . . . . . . . . . . 12
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β ((((iEdgβπΊ)β(πΉβ0)) = {(πβ0), (πβ1)} β§ ((iEdgβπΊ)β(πΉβ1)) = {(πβ1), (πβ2)}) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))) |
41 | 6, 40 | biimtrid 241 |
. . . . . . . . . . 11
β’ ((((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β§ π:(0...2)βΆ(VtxβπΊ)) β (βπ β {0, 1}
((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))) |
42 | 41 | ex 412 |
. . . . . . . . . 10
β’ (((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β (π:(0...2)βΆ(VtxβπΊ) β (βπ β {0, 1}
((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
43 | 42 | com23 86 |
. . . . . . . . 9
β’ (((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β§
(πβ0) β (πβ2)) β (βπ β {0, 1}
((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...2)βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
44 | 43 | ex 412 |
. . . . . . . 8
β’ ((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β
((πβ0) β (πβ2) β (βπ β {0, 1}
((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...2)βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))))) |
45 | | fveq2 6892 |
. . . . . . . . . 10
β’
((β―βπΉ) =
2 β (πβ(β―βπΉ)) = (πβ2)) |
46 | 45 | neeq2d 3000 |
. . . . . . . . 9
β’
((β―βπΉ) =
2 β ((πβ0) β
(πβ(β―βπΉ)) β (πβ0) β (πβ2))) |
47 | | oveq2 7420 |
. . . . . . . . . . . 12
β’
((β―βπΉ) =
2 β (0..^(β―βπΉ)) = (0..^2)) |
48 | | fzo0to2pr 13722 |
. . . . . . . . . . . 12
β’ (0..^2) =
{0, 1} |
49 | 47, 48 | eqtrdi 2787 |
. . . . . . . . . . 11
β’
((β―βπΉ) =
2 β (0..^(β―βπΉ)) = {0, 1}) |
50 | 49 | raleqdv 3324 |
. . . . . . . . . 10
β’
((β―βπΉ) =
2 β (βπ β
(0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β βπ β {0, 1} ((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
51 | | oveq2 7420 |
. . . . . . . . . . . 12
β’
((β―βπΉ) =
2 β (0...(β―βπΉ)) = (0...2)) |
52 | 51 | feq2d 6704 |
. . . . . . . . . . 11
β’
((β―βπΉ) =
2 β (π:(0...(β―βπΉ))βΆ(VtxβπΊ) β π:(0...2)βΆ(VtxβπΊ))) |
53 | 52 | imbi1d 340 |
. . . . . . . . . 10
β’
((β―βπΉ) =
2 β ((π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))) β (π:(0...2)βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
54 | 50, 53 | imbi12d 343 |
. . . . . . . . 9
β’
((β―βπΉ) =
2 β ((βπ β
(0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))) β (βπ β {0, 1}
((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...2)βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))))) |
55 | 46, 54 | imbi12d 343 |
. . . . . . . 8
β’
((β―βπΉ) =
2 β (((πβ0) β
(πβ(β―βπΉ)) β (βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) β ((πβ0) β (πβ2) β (βπ β {0, 1} ((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...2)βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))))) |
56 | 44, 55 | syl5ibrcom 246 |
. . . . . . 7
β’ ((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β
((β―βπΉ) = 2
β ((πβ0) β
(πβ(β―βπΉ)) β (βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))))) |
57 | 56 | impd 410 |
. . . . . 6
β’ ((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β
(((β―βπΉ) = 2
β§ (πβ0) β
(πβ(β―βπΉ))) β (βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))))) |
58 | 57 | com24 95 |
. . . . 5
β’ ((πΊ β USGraph β§ πΉ β Word dom
(iEdgβπΊ)) β
(π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (((β―βπΉ) = 2 β§ (πβ0) β (πβ(β―βπΉ))) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1)))))) |
59 | 58 | ex 412 |
. . . 4
β’ (πΊ β USGraph β (πΉ β Word dom
(iEdgβπΊ) β
(π:(0...(β―βπΉ))βΆ(VtxβπΊ) β (βπ β (0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))} β (((β―βπΉ) = 2 β§ (πβ0) β (πβ(β―βπΉ))) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))))) |
60 | 59 | 3impd 1347 |
. . 3
β’ (πΊ β USGraph β ((πΉ β Word dom
(iEdgβπΊ) β§ π:(0...(β―βπΉ))βΆ(VtxβπΊ) β§ βπ β
(0..^(β―βπΉ))((iEdgβπΊ)β(πΉβπ)) = {(πβπ), (πβ(π + 1))}) β (((β―βπΉ) = 2 β§ (πβ0) β (πβ(β―βπΉ))) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
61 | 5, 60 | sylbid 239 |
. 2
β’ (πΊ β USGraph β (πΉ(WalksβπΊ)π β (((β―βπΉ) = 2 β§ (πβ0) β (πβ(β―βπΉ))) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))))) |
62 | 61 | imp31 417 |
1
β’ (((πΊ β USGraph β§ πΉ(WalksβπΊ)π) β§ ((β―βπΉ) = 2 β§ (πβ0) β (πβ(β―βπΉ)))) β (((πβ0) β (πβ1) β§ (πβ0) β (πβ2) β§ (πβ1) β (πβ2)) β§ (πΉβ0) β (πΉβ1))) |