Step | Hyp | Ref
| Expression |
1 | | 3anan32 1097 |
. . 3
β’ ((π =
(β―β(1st βπ΅)) β§ βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β ((π = (β―β(1st
βπ΅)) β§
βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β§ βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
2 | 1 | a1i 11 |
. 2
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β ((π =
(β―β(1st βπ΅)) β§ βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β ((π = (β―β(1st
βπ΅)) β§
βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β§ βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦)))) |
3 | | wlkeq 28880 |
. . . 4
β’ ((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ) β§ π = (β―β(1st
βπ΄))) β (π΄ = π΅ β (π = (β―β(1st
βπ΅)) β§
βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)))) |
4 | 3 | 3expa 1118 |
. . 3
β’ (((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β (π΄ = π΅ β (π = (β―β(1st
βπ΅)) β§
βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)))) |
5 | 4 | 3adant1 1130 |
. 2
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β (π΄ = π΅ β (π = (β―β(1st
βπ΅)) β§
βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)))) |
6 | | fzofzp1 13725 |
. . . . . . . . . . . 12
β’ (π₯ β (0..^π) β (π₯ + 1) β (0...π)) |
7 | 6 | adantl 482 |
. . . . . . . . . . 11
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ π₯ β (0..^π)) β (π₯ + 1) β (0...π)) |
8 | | fveq2 6888 |
. . . . . . . . . . . . 13
β’ (π¦ = (π₯ + 1) β ((2nd βπ΄)βπ¦) = ((2nd βπ΄)β(π₯ + 1))) |
9 | | fveq2 6888 |
. . . . . . . . . . . . 13
β’ (π¦ = (π₯ + 1) β ((2nd βπ΅)βπ¦) = ((2nd βπ΅)β(π₯ + 1))) |
10 | 8, 9 | eqeq12d 2748 |
. . . . . . . . . . . 12
β’ (π¦ = (π₯ + 1) β (((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β ((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1)))) |
11 | 10 | adantl 482 |
. . . . . . . . . . 11
β’
(((((πΊ β
USPGraph β§ (π΄ β
(WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ π₯ β (0..^π)) β§ π¦ = (π₯ + 1)) β (((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β ((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1)))) |
12 | 7, 11 | rspcdv 3604 |
. . . . . . . . . 10
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ π₯ β (0..^π)) β (βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β ((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1)))) |
13 | 12 | impancom 452 |
. . . . . . . . 9
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β (π₯ β (0..^π) β ((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1)))) |
14 | 13 | ralrimiv 3145 |
. . . . . . . 8
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β βπ₯ β (0..^π)((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1))) |
15 | | fvoveq1 7428 |
. . . . . . . . . 10
β’ (π¦ = π₯ β ((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΄)β(π₯ + 1))) |
16 | | fvoveq1 7428 |
. . . . . . . . . 10
β’ (π¦ = π₯ β ((2nd βπ΅)β(π¦ + 1)) = ((2nd βπ΅)β(π₯ + 1))) |
17 | 15, 16 | eqeq12d 2748 |
. . . . . . . . 9
β’ (π¦ = π₯ β (((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1)) β ((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1)))) |
18 | 17 | cbvralvw 3234 |
. . . . . . . 8
β’
(βπ¦ β
(0..^π)((2nd
βπ΄)β(π¦ + 1)) = ((2nd
βπ΅)β(π¦ + 1)) β βπ₯ β (0..^π)((2nd βπ΄)β(π₯ + 1)) = ((2nd βπ΅)β(π₯ + 1))) |
19 | 14, 18 | sylibr 233 |
. . . . . . 7
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β βπ¦ β (0..^π)((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1))) |
20 | | fzossfz 13647 |
. . . . . . . . . 10
β’
(0..^π) β
(0...π) |
21 | | ssralv 4049 |
. . . . . . . . . 10
β’
((0..^π) β
(0...π) β
(βπ¦ β
(0...π)((2nd
βπ΄)βπ¦) = ((2nd
βπ΅)βπ¦) β βπ¦ β (0..^π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦))) |
22 | 20, 21 | mp1i 13 |
. . . . . . . . 9
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β βπ¦ β (0..^π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦))) |
23 | | r19.26 3111 |
. . . . . . . . . . 11
β’
(βπ¦ β
(0..^π)(((2nd
βπ΄)βπ¦) = ((2nd
βπ΅)βπ¦) β§ ((2nd
βπ΄)β(π¦ + 1)) = ((2nd
βπ΅)β(π¦ + 1))) β (βπ¦ β (0..^π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β§ βπ¦ β (0..^π)((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1)))) |
24 | | preq12 4738 |
. . . . . . . . . . . . 13
β’
((((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β§ ((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1))) β {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}) |
25 | 24 | a1i 11 |
. . . . . . . . . . . 12
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β ((((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β§ ((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1))) β {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
26 | 25 | ralimdv 3169 |
. . . . . . . . . . 11
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π)(((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β§ ((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1))) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
27 | 23, 26 | biimtrrid 242 |
. . . . . . . . . 10
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β ((βπ¦ β (0..^π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β§ βπ¦ β (0..^π)((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1))) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
28 | 27 | expd 416 |
. . . . . . . . 9
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β (βπ¦ β (0..^π)((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1)) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}))) |
29 | 22, 28 | syld 47 |
. . . . . . . 8
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β (βπ¦ β (0..^π)((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1)) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}))) |
30 | 29 | imp 407 |
. . . . . . 7
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β (βπ¦ β (0..^π)((2nd βπ΄)β(π¦ + 1)) = ((2nd βπ΅)β(π¦ + 1)) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
31 | 19, 30 | mpd 15 |
. . . . . 6
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}) |
32 | 31 | ex 413 |
. . . . 5
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
33 | | uspgrupgr 28425 |
. . . . . . . 8
β’ (πΊ β USPGraph β πΊ β
UPGraph) |
34 | | eqid 2732 |
. . . . . . . . . 10
β’
(VtxβπΊ) =
(VtxβπΊ) |
35 | | eqid 2732 |
. . . . . . . . . 10
β’
(iEdgβπΊ) =
(iEdgβπΊ) |
36 | | eqid 2732 |
. . . . . . . . . 10
β’
(1st βπ΄) = (1st βπ΄) |
37 | | eqid 2732 |
. . . . . . . . . 10
β’
(2nd βπ΄) = (2nd βπ΄) |
38 | 34, 35, 36, 37 | upgrwlkcompim 28889 |
. . . . . . . . 9
β’ ((πΊ β UPGraph β§ π΄ β (WalksβπΊ)) β ((1st
βπ΄) β Word dom
(iEdgβπΊ) β§
(2nd βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))})) |
39 | 38 | ex 413 |
. . . . . . . 8
β’ (πΊ β UPGraph β (π΄ β (WalksβπΊ) β ((1st
βπ΄) β Word dom
(iEdgβπΊ) β§
(2nd βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}))) |
40 | 33, 39 | syl 17 |
. . . . . . 7
β’ (πΊ β USPGraph β (π΄ β (WalksβπΊ) β ((1st
βπ΄) β Word dom
(iEdgβπΊ) β§
(2nd βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}))) |
41 | | eqid 2732 |
. . . . . . . . . 10
β’
(1st βπ΅) = (1st βπ΅) |
42 | | eqid 2732 |
. . . . . . . . . 10
β’
(2nd βπ΅) = (2nd βπ΅) |
43 | 34, 35, 41, 42 | upgrwlkcompim 28889 |
. . . . . . . . 9
β’ ((πΊ β UPGraph β§ π΅ β (WalksβπΊ)) β ((1st
βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
44 | 43 | ex 413 |
. . . . . . . 8
β’ (πΊ β UPGraph β (π΅ β (WalksβπΊ) β ((1st
βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}))) |
45 | 33, 44 | syl 17 |
. . . . . . 7
β’ (πΊ β USPGraph β (π΅ β (WalksβπΊ) β ((1st
βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}))) |
46 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . 19
β’
((β―β(1st βπ΅)) = π β (0..^(β―β(1st
βπ΅))) = (0..^π)) |
47 | 46 | eqcoms 2740 |
. . . . . . . . . . . . . . . . . 18
β’ (π =
(β―β(1st βπ΅)) β
(0..^(β―β(1st βπ΅))) = (0..^π)) |
48 | 47 | raleqdv 3325 |
. . . . . . . . . . . . . . . . 17
β’ (π =
(β―β(1st βπ΅)) β (βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
49 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . 19
β’
((β―β(1st βπ΄)) = π β (0..^(β―β(1st
βπ΄))) = (0..^π)) |
50 | 49 | eqcoms 2740 |
. . . . . . . . . . . . . . . . . 18
β’ (π =
(β―β(1st βπ΄)) β
(0..^(β―β(1st βπ΄))) = (0..^π)) |
51 | 50 | raleqdv 3325 |
. . . . . . . . . . . . . . . . 17
β’ (π =
(β―β(1st βπ΄)) β (βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))})) |
52 | 48, 51 | bi2anan9r 638 |
. . . . . . . . . . . . . . . 16
β’ ((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β
((βπ¦ β
(0..^(β―β(1st βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β (βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}))) |
53 | | r19.26 3111 |
. . . . . . . . . . . . . . . . 17
β’
(βπ¦ β
(0..^π)(((iEdgβπΊ)β((1st
βπ΅)βπ¦)) = {((2nd
βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ ((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β (βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))})) |
54 | | eqeq2 2744 |
. . . . . . . . . . . . . . . . . . . . 21
β’
({((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β (((iEdgβπΊ)β((1st
βπ΄)βπ¦)) = {((2nd
βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) |
55 | | eqeq2 2744 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’
({((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} = ((iEdgβπΊ)β((1st βπ΄)βπ¦)) β (((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
56 | 55 | eqcoms 2740 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
(((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β (((iEdgβπΊ)β((1st
βπ΅)βπ¦)) = {((2nd
βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
57 | 56 | biimpd 228 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β (((iEdgβπΊ)β((1st
βπ΅)βπ¦)) = {((2nd
βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
58 | 54, 57 | syl6bi 252 |
. . . . . . . . . . . . . . . . . . . 20
β’
({((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β (((iEdgβπΊ)β((1st
βπ΄)βπ¦)) = {((2nd
βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β (((iEdgβπΊ)β((1st
βπ΅)βπ¦)) = {((2nd
βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))) |
59 | 58 | com13 88 |
. . . . . . . . . . . . . . . . . . 19
β’
(((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β (((iEdgβπΊ)β((1st
βπ΄)βπ¦)) = {((2nd
βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β ({((2nd
βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))) |
60 | 59 | imp 407 |
. . . . . . . . . . . . . . . . . 18
β’
((((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ ((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β ({((2nd
βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β ((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
61 | 60 | ral2imi 3085 |
. . . . . . . . . . . . . . . . 17
β’
(βπ¦ β
(0..^π)(((iEdgβπΊ)β((1st
βπ΅)βπ¦)) = {((2nd
βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ ((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
62 | 53, 61 | sylbir 234 |
. . . . . . . . . . . . . . . 16
β’
((βπ¦ β
(0..^π)((iEdgβπΊ)β((1st
βπ΅)βπ¦)) = {((2nd
βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
63 | 52, 62 | syl6bi 252 |
. . . . . . . . . . . . . . 15
β’ ((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β
((βπ¦ β
(0..^(β―β(1st βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))) |
64 | 63 | com12 32 |
. . . . . . . . . . . . . 14
β’
((βπ¦ β
(0..^(β―β(1st βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))) |
65 | 64 | ex 413 |
. . . . . . . . . . . . 13
β’
(βπ¦ β
(0..^(β―β(1st βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β (βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))))) |
66 | 65 | 3ad2ant3 1135 |
. . . . . . . . . . . 12
β’
(((1st βπ΅) β Word dom (iEdgβπΊ) β§ (2nd
βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}) β (βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))))) |
67 | 66 | com12 32 |
. . . . . . . . . . 11
β’
(βπ¦ β
(0..^(β―β(1st βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} β (((1st βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}) β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))))) |
68 | 67 | 3ad2ant3 1135 |
. . . . . . . . . 10
β’
(((1st βπ΄) β Word dom (iEdgβπΊ) β§ (2nd
βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β (((1st
βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))}) β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))))) |
69 | 68 | imp 407 |
. . . . . . . . 9
β’
((((1st βπ΄) β Word dom (iEdgβπΊ) β§ (2nd
βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β§ ((1st βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))) |
70 | 69 | expd 416 |
. . . . . . . 8
β’
((((1st βπ΄) β Word dom (iEdgβπΊ) β§ (2nd
βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β§ ((1st βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) β (π = (β―β(1st
βπ΄)) β (π =
(β―β(1st βπ΅)) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))))) |
71 | 70 | a1i 11 |
. . . . . . 7
β’ (πΊ β USPGraph β
((((1st βπ΄) β Word dom (iEdgβπΊ) β§ (2nd
βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΄)))((iEdgβπΊ)β((1st βπ΄)βπ¦)) = {((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))}) β§ ((1st βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ) β§ βπ¦ β (0..^(β―β(1st
βπ΅)))((iEdgβπΊ)β((1st βπ΅)βπ¦)) = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))})) β (π = (β―β(1st
βπ΄)) β (π =
(β―β(1st βπ΅)) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))))) |
72 | 40, 45, 71 | syl2and 608 |
. . . . . 6
β’ (πΊ β USPGraph β ((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β (π = (β―β(1st
βπ΄)) β (π =
(β―β(1st βπ΅)) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦))))))) |
73 | 72 | 3imp1 1347 |
. . . . 5
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π){((2nd βπ΄)βπ¦), ((2nd βπ΄)β(π¦ + 1))} = {((2nd βπ΅)βπ¦), ((2nd βπ΅)β(π¦ + 1))} β βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)))) |
74 | | eqcom 2739 |
. . . . . . 7
β’
(((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)) β ((iEdgβπΊ)β((1st βπ΄)βπ¦)) = ((iEdgβπΊ)β((1st βπ΅)βπ¦))) |
75 | 35 | uspgrf1oedg 28422 |
. . . . . . . . . . . 12
β’ (πΊ β USPGraph β
(iEdgβπΊ):dom
(iEdgβπΊ)β1-1-ontoβ(EdgβπΊ)) |
76 | | f1of1 6829 |
. . . . . . . . . . . 12
β’
((iEdgβπΊ):dom
(iEdgβπΊ)β1-1-ontoβ(EdgβπΊ) β (iEdgβπΊ):dom (iEdgβπΊ)β1-1β(EdgβπΊ)) |
77 | 75, 76 | syl 17 |
. . . . . . . . . . 11
β’ (πΊ β USPGraph β
(iEdgβπΊ):dom
(iEdgβπΊ)β1-1β(EdgβπΊ)) |
78 | | eqidd 2733 |
. . . . . . . . . . . 12
β’ (πΊ β USPGraph β
(iEdgβπΊ) =
(iEdgβπΊ)) |
79 | | eqidd 2733 |
. . . . . . . . . . . 12
β’ (πΊ β USPGraph β dom
(iEdgβπΊ) = dom
(iEdgβπΊ)) |
80 | | edgval 28298 |
. . . . . . . . . . . . . 14
β’
(EdgβπΊ) = ran
(iEdgβπΊ) |
81 | 80 | eqcomi 2741 |
. . . . . . . . . . . . 13
β’ ran
(iEdgβπΊ) =
(EdgβπΊ) |
82 | 81 | a1i 11 |
. . . . . . . . . . . 12
β’ (πΊ β USPGraph β ran
(iEdgβπΊ) =
(EdgβπΊ)) |
83 | 78, 79, 82 | f1eq123d 6822 |
. . . . . . . . . . 11
β’ (πΊ β USPGraph β
((iEdgβπΊ):dom
(iEdgβπΊ)β1-1βran (iEdgβπΊ) β (iEdgβπΊ):dom (iEdgβπΊ)β1-1β(EdgβπΊ))) |
84 | 77, 83 | mpbird 256 |
. . . . . . . . . 10
β’ (πΊ β USPGraph β
(iEdgβπΊ):dom
(iEdgβπΊ)β1-1βran (iEdgβπΊ)) |
85 | 84 | 3ad2ant1 1133 |
. . . . . . . . 9
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β
(iEdgβπΊ):dom
(iEdgβπΊ)β1-1βran (iEdgβπΊ)) |
86 | 85 | adantr 481 |
. . . . . . . 8
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (iEdgβπΊ):dom (iEdgβπΊ)β1-1βran (iEdgβπΊ)) |
87 | 34, 35, 36, 37 | wlkelwrd 28879 |
. . . . . . . . . . . . . . 15
β’ (π΄ β (WalksβπΊ) β ((1st
βπ΄) β Word dom
(iEdgβπΊ) β§
(2nd βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ))) |
88 | 34, 35, 41, 42 | wlkelwrd 28879 |
. . . . . . . . . . . . . . 15
β’ (π΅ β (WalksβπΊ) β ((1st
βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ))) |
89 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π =
(β―β(1st βπ΄)) β (0..^π) = (0..^(β―β(1st
βπ΄)))) |
90 | 89 | eleq2d 2819 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π =
(β―β(1st βπ΄)) β (π¦ β (0..^π) β π¦ β (0..^(β―β(1st
βπ΄))))) |
91 | | wrdsymbcl 14473 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’
(((1st βπ΄) β Word dom (iEdgβπΊ) β§ π¦ β (0..^(β―β(1st
βπ΄)))) β
((1st βπ΄)βπ¦) β dom (iEdgβπΊ)) |
92 | 91 | expcom 414 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π¦ β
(0..^(β―β(1st βπ΄))) β ((1st βπ΄) β Word dom
(iEdgβπΊ) β
((1st βπ΄)βπ¦) β dom (iEdgβπΊ))) |
93 | 90, 92 | syl6bi 252 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π =
(β―β(1st βπ΄)) β (π¦ β (0..^π) β ((1st βπ΄) β Word dom
(iEdgβπΊ) β
((1st βπ΄)βπ¦) β dom (iEdgβπΊ)))) |
94 | 93 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β (π¦ β (0..^π) β ((1st βπ΄) β Word dom
(iEdgβπΊ) β
((1st βπ΄)βπ¦) β dom (iEdgβπΊ)))) |
95 | 94 | imp 407 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β ((1st βπ΄) β Word dom
(iEdgβπΊ) β
((1st βπ΄)βπ¦) β dom (iEdgβπΊ))) |
96 | 95 | com12 32 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((1st βπ΄) β Word dom (iEdgβπΊ) β (((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β ((1st βπ΄)βπ¦) β dom (iEdgβπΊ))) |
97 | 96 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((1st βπ΅) β Word dom (iEdgβπΊ) β§ (1st
βπ΄) β Word dom
(iEdgβπΊ)) β
(((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β ((1st βπ΄)βπ¦) β dom (iEdgβπΊ))) |
98 | | oveq2 7413 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’ (π =
(β―β(1st βπ΅)) β (0..^π) = (0..^(β―β(1st
βπ΅)))) |
99 | 98 | eleq2d 2819 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π =
(β―β(1st βπ΅)) β (π¦ β (0..^π) β π¦ β (0..^(β―β(1st
βπ΅))))) |
100 | | wrdsymbcl 14473 |
. . . . . . . . . . . . . . . . . . . . . . . . . . 27
β’
(((1st βπ΅) β Word dom (iEdgβπΊ) β§ π¦ β (0..^(β―β(1st
βπ΅)))) β
((1st βπ΅)βπ¦) β dom (iEdgβπΊ)) |
101 | 100 | expcom 414 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
β’ (π¦ β
(0..^(β―β(1st βπ΅))) β ((1st βπ΅) β Word dom
(iEdgβπΊ) β
((1st βπ΅)βπ¦) β dom (iEdgβπΊ))) |
102 | 99, 101 | syl6bi 252 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
β’ (π =
(β―β(1st βπ΅)) β (π¦ β (0..^π) β ((1st βπ΅) β Word dom
(iEdgβπΊ) β
((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))) |
103 | 102 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . . . 24
β’ ((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β (π¦ β (0..^π) β ((1st βπ΅) β Word dom
(iEdgβπΊ) β
((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))) |
104 | 103 | imp 407 |
. . . . . . . . . . . . . . . . . . . . . . 23
β’ (((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β ((1st βπ΅) β Word dom
(iEdgβπΊ) β
((1st βπ΅)βπ¦) β dom (iEdgβπΊ))) |
105 | 104 | com12 32 |
. . . . . . . . . . . . . . . . . . . . . 22
β’
((1st βπ΅) β Word dom (iEdgβπΊ) β (((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))) |
106 | 105 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(((1st βπ΅) β Word dom (iEdgβπΊ) β§ (1st
βπ΄) β Word dom
(iEdgβπΊ)) β
(((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))) |
107 | 97, 106 | jcad 513 |
. . . . . . . . . . . . . . . . . . . 20
β’
(((1st βπ΅) β Word dom (iEdgβπΊ) β§ (1st
βπ΄) β Word dom
(iEdgβπΊ)) β
(((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))) |
108 | 107 | ex 413 |
. . . . . . . . . . . . . . . . . . 19
β’
((1st βπ΅) β Word dom (iEdgβπΊ) β ((1st
βπ΄) β Word dom
(iEdgβπΊ) β
(((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
109 | 108 | adantr 481 |
. . . . . . . . . . . . . . . . . 18
β’
(((1st βπ΅) β Word dom (iEdgβπΊ) β§ (2nd
βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ)) β ((1st βπ΄) β Word dom
(iEdgβπΊ) β
(((π =
(β―β(1st βπ΄)) β§ π = (β―β(1st
βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
110 | 109 | com12 32 |
. . . . . . . . . . . . . . . . 17
β’
((1st βπ΄) β Word dom (iEdgβπΊ) β (((1st
βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ)) β (((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
111 | 110 | adantr 481 |
. . . . . . . . . . . . . . . 16
β’
(((1st βπ΄) β Word dom (iEdgβπΊ) β§ (2nd
βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ)) β (((1st βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ)) β (((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
112 | 111 | imp 407 |
. . . . . . . . . . . . . . 15
β’
((((1st βπ΄) β Word dom (iEdgβπΊ) β§ (2nd
βπ΄):(0...(β―β(1st
βπ΄)))βΆ(VtxβπΊ)) β§ ((1st βπ΅) β Word dom
(iEdgβπΊ) β§
(2nd βπ΅):(0...(β―β(1st
βπ΅)))βΆ(VtxβπΊ))) β (((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))) |
113 | 87, 88, 112 | syl2an 596 |
. . . . . . . . . . . . . 14
β’ ((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β (((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))) |
114 | 113 | expd 416 |
. . . . . . . . . . . . 13
β’ ((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β ((π = (β―β(1st
βπ΄)) β§ π =
(β―β(1st βπ΅))) β (π¦ β (0..^π) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
115 | 114 | expd 416 |
. . . . . . . . . . . 12
β’ ((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β (π = (β―β(1st
βπ΄)) β (π =
(β―β(1st βπ΅)) β (π¦ β (0..^π) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))))) |
116 | 115 | imp 407 |
. . . . . . . . . . 11
β’ (((π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β (π =
(β―β(1st βπ΅)) β (π¦ β (0..^π) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
117 | 116 | 3adant1 1130 |
. . . . . . . . . 10
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β (π =
(β―β(1st βπ΅)) β (π¦ β (0..^π) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))))) |
118 | 117 | imp 407 |
. . . . . . . . 9
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (π¦ β (0..^π) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ)))) |
119 | 118 | imp 407 |
. . . . . . . 8
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))) |
120 | | f1veqaeq 7252 |
. . . . . . . 8
β’
(((iEdgβπΊ):dom
(iEdgβπΊ)β1-1βran (iEdgβπΊ) β§ (((1st βπ΄)βπ¦) β dom (iEdgβπΊ) β§ ((1st βπ΅)βπ¦) β dom (iEdgβπΊ))) β (((iEdgβπΊ)β((1st βπ΄)βπ¦)) = ((iEdgβπΊ)β((1st βπ΅)βπ¦)) β ((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
121 | 86, 119, 120 | syl2an2r 683 |
. . . . . . 7
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((iEdgβπΊ)β((1st βπ΄)βπ¦)) = ((iEdgβπΊ)β((1st βπ΅)βπ¦)) β ((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
122 | 74, 121 | biimtrid 241 |
. . . . . 6
β’ ((((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β§ π¦ β (0..^π)) β (((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)) β ((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
123 | 122 | ralimdva 3167 |
. . . . 5
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0..^π)((iEdgβπΊ)β((1st βπ΅)βπ¦)) = ((iEdgβπΊ)β((1st βπ΄)βπ¦)) β βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
124 | 32, 73, 123 | 3syld 60 |
. . . 4
β’ (((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β§ π =
(β―β(1st βπ΅))) β (βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦) β βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
125 | 124 | expimpd 454 |
. . 3
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β ((π =
(β―β(1st βπ΅)) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦))) |
126 | 125 | pm4.71d 562 |
. 2
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β ((π =
(β―β(1st βπ΅)) β§ βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β ((π = (β―β(1st
βπ΅)) β§
βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)) β§ βπ¦ β (0..^π)((1st βπ΄)βπ¦) = ((1st βπ΅)βπ¦)))) |
127 | 2, 5, 126 | 3bitr4d 310 |
1
β’ ((πΊ β USPGraph β§ (π΄ β (WalksβπΊ) β§ π΅ β (WalksβπΊ)) β§ π = (β―β(1st
βπ΄))) β (π΄ = π΅ β (π = (β―β(1st
βπ΅)) β§
βπ¦ β (0...π)((2nd βπ΄)βπ¦) = ((2nd βπ΅)βπ¦)))) |