Metamath Proof Explorer


Theorem erclwwlktr

Description: .~ is a transitive relation over the set of closed walks (defined as words). (Contributed by Alexander van der Vekens, 10-Apr-2018) (Revised by AV, 30-Apr-2021)

Ref Expression
Hypothesis erclwwlk.r ˙=uw|uClWWalksGwClWWalksGn0wu=wcyclShiftn
Assertion erclwwlktr x˙yy˙zx˙z

Proof

Step Hyp Ref Expression
1 erclwwlk.r ˙=uw|uClWWalksGwClWWalksGn0wu=wcyclShiftn
2 vex xV
3 vex yV
4 vex zV
5 1 erclwwlkeqlen xVyVx˙yx=y
6 5 3adant3 xVyVzVx˙yx=y
7 1 erclwwlkeqlen yVzVy˙zy=z
8 7 3adant1 xVyVzVy˙zy=z
9 1 erclwwlkeq yVzVy˙zyClWWalksGzClWWalksGn0zy=zcyclShiftn
10 9 3adant1 xVyVzVy˙zyClWWalksGzClWWalksGn0zy=zcyclShiftn
11 1 erclwwlkeq xVyVx˙yxClWWalksGyClWWalksGn0yx=ycyclShiftn
12 11 3adant3 xVyVzVx˙yxClWWalksGyClWWalksGn0yx=ycyclShiftn
13 simpr1 y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnxClWWalksGyClWWalksGn0yx=ycyclShiftnxClWWalksG
14 simplr2 y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnxClWWalksGyClWWalksGn0yx=ycyclShiftnzClWWalksG
15 oveq2 n=mycyclShiftn=ycyclShiftm
16 15 eqeq2d n=mx=ycyclShiftnx=ycyclShiftm
17 16 cbvrexvw n0yx=ycyclShiftnm0yx=ycyclShiftm
18 oveq2 n=kzcyclShiftn=zcyclShiftk
19 18 eqeq2d n=ky=zcyclShiftny=zcyclShiftk
20 19 cbvrexvw n0zy=zcyclShiftnk0zy=zcyclShiftk
21 eqid VtxG=VtxG
22 21 clwwlkbp zClWWalksGGVzWordVtxGz
23 22 simp2d zClWWalksGzWordVtxG
24 23 ad2antlr xClWWalksGyClWWalksGzClWWalksGy=zx=yzWordVtxG
25 simpr xClWWalksGyClWWalksGzClWWalksGy=zx=yy=zx=y
26 24 25 cshwcsh2id xClWWalksGyClWWalksGzClWWalksGy=zx=ym0yx=ycyclShiftmk0zy=zcyclShiftkn0zx=zcyclShiftn
27 26 exp5l xClWWalksGyClWWalksGzClWWalksGy=zx=ym0yx=ycyclShiftmk0zy=zcyclShiftkn0zx=zcyclShiftn
28 27 imp41 xClWWalksGyClWWalksGzClWWalksGy=zx=ym0yx=ycyclShiftmk0zy=zcyclShiftkn0zx=zcyclShiftn
29 28 rexlimdva xClWWalksGyClWWalksGzClWWalksGy=zx=ym0yx=ycyclShiftmk0zy=zcyclShiftkn0zx=zcyclShiftn
30 29 rexlimdva2 xClWWalksGyClWWalksGzClWWalksGy=zx=ym0yx=ycyclShiftmk0zy=zcyclShiftkn0zx=zcyclShiftn
31 20 30 syl7bi xClWWalksGyClWWalksGzClWWalksGy=zx=ym0yx=ycyclShiftmn0zy=zcyclShiftnn0zx=zcyclShiftn
32 17 31 biimtrid xClWWalksGyClWWalksGzClWWalksGy=zx=yn0yx=ycyclShiftnn0zy=zcyclShiftnn0zx=zcyclShiftn
33 32 exp31 xClWWalksGyClWWalksGzClWWalksGy=zx=yn0yx=ycyclShiftnn0zy=zcyclShiftnn0zx=zcyclShiftn
34 33 com15 n0zy=zcyclShiftnzClWWalksGy=zx=yn0yx=ycyclShiftnxClWWalksGyClWWalksGn0zx=zcyclShiftn
35 34 impcom zClWWalksGn0zy=zcyclShiftny=zx=yn0yx=ycyclShiftnxClWWalksGyClWWalksGn0zx=zcyclShiftn
36 35 3adant1 yClWWalksGzClWWalksGn0zy=zcyclShiftny=zx=yn0yx=ycyclShiftnxClWWalksGyClWWalksGn0zx=zcyclShiftn
37 36 impcom y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnn0yx=ycyclShiftnxClWWalksGyClWWalksGn0zx=zcyclShiftn
38 37 com13 xClWWalksGyClWWalksGn0yx=ycyclShiftny=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnn0zx=zcyclShiftn
39 38 3impia xClWWalksGyClWWalksGn0yx=ycyclShiftny=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnn0zx=zcyclShiftn
40 39 impcom y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnxClWWalksGyClWWalksGn0yx=ycyclShiftnn0zx=zcyclShiftn
41 13 14 40 3jca y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnxClWWalksGyClWWalksGn0yx=ycyclShiftnxClWWalksGzClWWalksGn0zx=zcyclShiftn
42 1 erclwwlkeq xVzVx˙zxClWWalksGzClWWalksGn0zx=zcyclShiftn
43 42 3adant2 xVyVzVx˙zxClWWalksGzClWWalksGn0zx=zcyclShiftn
44 41 43 syl5ibrcom y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnxClWWalksGyClWWalksGn0yx=ycyclShiftnxVyVzVx˙z
45 44 exp31 y=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnxClWWalksGyClWWalksGn0yx=ycyclShiftnxVyVzVx˙z
46 45 com24 y=zx=yxVyVzVxClWWalksGyClWWalksGn0yx=ycyclShiftnyClWWalksGzClWWalksGn0zy=zcyclShiftnx˙z
47 46 ex y=zx=yxVyVzVxClWWalksGyClWWalksGn0yx=ycyclShiftnyClWWalksGzClWWalksGn0zy=zcyclShiftnx˙z
48 47 com4t xVyVzVxClWWalksGyClWWalksGn0yx=ycyclShiftny=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnx˙z
49 12 48 sylbid xVyVzVx˙yy=zx=yyClWWalksGzClWWalksGn0zy=zcyclShiftnx˙z
50 49 com25 xVyVzVyClWWalksGzClWWalksGn0zy=zcyclShiftny=zx=yx˙yx˙z
51 10 50 sylbid xVyVzVy˙zy=zx=yx˙yx˙z
52 8 51 mpdd xVyVzVy˙zx=yx˙yx˙z
53 52 com24 xVyVzVx˙yx=yy˙zx˙z
54 6 53 mpdd xVyVzVx˙yy˙zx˙z
55 54 impd xVyVzVx˙yy˙zx˙z
56 2 3 4 55 mp3an x˙yy˙zx˙z