Step | Hyp | Ref
| Expression |
1 | | upgriswlk.v |
. . 3
β’ π = (VtxβπΊ) |
2 | | upgriswlk.i |
. . 3
β’ πΌ = (iEdgβπΊ) |
3 | 1, 2 | iswlkg 29138 |
. 2
β’ (πΊ β UPGraph β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))))) |
4 | | df-ifp 1061 |
. . . . . . 7
β’
(if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (((πβπ) = (πβ(π + 1)) β§ (πΌβ(πΉβπ)) = {(πβπ)}) β¨ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) |
5 | | dfsn2 4641 |
. . . . . . . . . . . . 13
β’ {(πβπ)} = {(πβπ), (πβπ)} |
6 | | preq2 4738 |
. . . . . . . . . . . . 13
β’ ((πβπ) = (πβ(π + 1)) β {(πβπ), (πβπ)} = {(πβπ), (πβ(π + 1))}) |
7 | 5, 6 | eqtrid 2783 |
. . . . . . . . . . . 12
β’ ((πβπ) = (πβ(π + 1)) β {(πβπ)} = {(πβπ), (πβ(π + 1))}) |
8 | 7 | eqeq2d 2742 |
. . . . . . . . . . 11
β’ ((πβπ) = (πβ(π + 1)) β ((πΌβ(πΉβπ)) = {(πβπ)} β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
9 | 8 | biimpa 476 |
. . . . . . . . . 10
β’ (((πβπ) = (πβ(π + 1)) β§ (πΌβ(πΉβπ)) = {(πβπ)}) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}) |
10 | 9 | a1d 25 |
. . . . . . . . 9
β’ (((πβπ) = (πβ(π + 1)) β§ (πΌβ(πΉβπ)) = {(πβπ)}) β (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
11 | | eqid 2731 |
. . . . . . . . . . . . . 14
β’
(EdgβπΊ) =
(EdgβπΊ) |
12 | 2, 11 | upgredginwlk 29161 |
. . . . . . . . . . . . 13
β’ ((πΊ β UPGraph β§ πΉ β Word dom πΌ) β (π β (0..^(β―βπΉ)) β (πΌβ(πΉβπ)) β (EdgβπΊ))) |
13 | 12 | adantrr 714 |
. . . . . . . . . . . 12
β’ ((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β (π β (0..^(β―βπΉ)) β (πΌβ(πΉβπ)) β (EdgβπΊ))) |
14 | 13 | imp 406 |
. . . . . . . . . . 11
β’ (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β (πΌβ(πΉβπ)) β (EdgβπΊ)) |
15 | | simp-4l 780 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β
UPGraph β§ (πΉ β
Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β§ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β πΊ β UPGraph) |
16 | | simpr 484 |
. . . . . . . . . . . . . . 15
β’ ((((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β (πΌβ(πΉβπ)) β (EdgβπΊ)) |
17 | 16 | adantr 480 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β
UPGraph β§ (πΉ β
Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β§ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (πΌβ(πΉβπ)) β (EdgβπΊ)) |
18 | | simpr 484 |
. . . . . . . . . . . . . . 15
β’ ((Β¬
(πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) |
19 | 18 | adantl 481 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β
UPGraph β§ (πΉ β
Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β§ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) |
20 | | fvexd 6906 |
. . . . . . . . . . . . . . . . 17
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πβπ) β V) |
21 | | fvexd 6906 |
. . . . . . . . . . . . . . . . 17
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πβ(π + 1)) β V) |
22 | | neqne 2947 |
. . . . . . . . . . . . . . . . 17
β’ (Β¬
(πβπ) = (πβ(π + 1)) β (πβπ) β (πβ(π + 1))) |
23 | 20, 21, 22 | 3jca 1127 |
. . . . . . . . . . . . . . . 16
β’ (Β¬
(πβπ) = (πβ(π + 1)) β ((πβπ) β V β§ (πβ(π + 1)) β V β§ (πβπ) β (πβ(π + 1)))) |
24 | 23 | adantr 480 |
. . . . . . . . . . . . . . 15
β’ ((Β¬
(πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β ((πβπ) β V β§ (πβ(π + 1)) β V β§ (πβπ) β (πβ(π + 1)))) |
25 | 24 | adantl 481 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β
UPGraph β§ (πΉ β
Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β§ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β ((πβπ) β V β§ (πβ(π + 1)) β V β§ (πβπ) β (πβ(π + 1)))) |
26 | 1, 11 | upgredgpr 28670 |
. . . . . . . . . . . . . 14
β’ (((πΊ β UPGraph β§ (πΌβ(πΉβπ)) β (EdgβπΊ) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β§ ((πβπ) β V β§ (πβ(π + 1)) β V β§ (πβπ) β (πβ(π + 1)))) β {(πβπ), (πβ(π + 1))} = (πΌβ(πΉβπ))) |
27 | 15, 17, 19, 25, 26 | syl31anc 1372 |
. . . . . . . . . . . . 13
β’
(((((πΊ β
UPGraph β§ (πΉ β
Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β§ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β {(πβπ), (πβ(π + 1))} = (πΌβ(πΉβπ))) |
28 | 27 | eqcomd 2737 |
. . . . . . . . . . . 12
β’
(((((πΊ β
UPGraph β§ (πΉ β
Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β§ (πΌβ(πΉβπ)) β (EdgβπΊ)) β§ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}) |
29 | 28 | exp31 419 |
. . . . . . . . . . 11
β’ (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β ((πΌβ(πΉβπ)) β (EdgβπΊ) β ((Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |
30 | 14, 29 | mpd 15 |
. . . . . . . . . 10
β’ (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β ((Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
31 | 30 | com12 32 |
. . . . . . . . 9
β’ ((Β¬
(πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
32 | 10, 31 | jaoi 854 |
. . . . . . . 8
β’ ((((πβπ) = (πβ(π + 1)) β§ (πΌβ(πΉβπ)) = {(πβπ)}) β¨ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
33 | 32 | com12 32 |
. . . . . . 7
β’ (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β ((((πβπ) = (πβ(π + 1)) β§ (πΌβ(πΉβπ)) = {(πβπ)}) β¨ (Β¬ (πβπ) = (πβ(π + 1)) β§ {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
34 | 4, 33 | biimtrid 241 |
. . . . . 6
β’ (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
35 | | ifpprsnss 4768 |
. . . . . 6
β’ ((πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))} β if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) |
36 | 34, 35 | impbid1 224 |
. . . . 5
β’ (((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β§ π β (0..^(β―βπΉ))) β (if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β (πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
37 | 36 | ralbidva 3174 |
. . . 4
β’ ((πΊ β UPGraph β§ (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ)) β (βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))) β βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
38 | 37 | pm5.32da 578 |
. . 3
β’ (πΊ β UPGraph β (((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ) β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |
39 | | df-3an 1088 |
. . 3
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ) β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ))))) |
40 | | df-3an 1088 |
. . 3
β’ ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}) β ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ) β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))})) |
41 | 38, 39, 40 | 3bitr4g 314 |
. 2
β’ (πΊ β UPGraph β ((πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))if-((πβπ) = (πβ(π + 1)), (πΌβ(πΉβπ)) = {(πβπ)}, {(πβπ), (πβ(π + 1))} β (πΌβ(πΉβπ)))) β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |
42 | 3, 41 | bitrd 279 |
1
β’ (πΊ β UPGraph β (πΉ(WalksβπΊ)π β (πΉ β Word dom πΌ β§ π:(0...(β―βπΉ))βΆπ β§ βπ β (0..^(β―βπΉ))(πΌβ(πΉβπ)) = {(πβπ), (πβ(π + 1))}))) |