Metamath Proof Explorer


Theorem trsp2cyc

Description: Exhibit the word a transposition corresponds to, as a cycle. (Contributed by Thierry Arnoux, 25-Sep-2023)

Ref Expression
Hypotheses trsp2cyc.t T=ranpmTrspD
trsp2cyc.c C=toCycD
Assertion trsp2cyc DVPTiDjDijP=C⟨“ij”⟩

Proof

Step Hyp Ref Expression
1 trsp2cyc.t T=ranpmTrspD
2 trsp2cyc.c C=toCycD
3 simplr DVPTpy𝒫D|y2𝑜P=zDifzppzzpy𝒫D|y2𝑜
4 breq1 y=py2𝑜p2𝑜
5 4 elrab py𝒫D|y2𝑜p𝒫Dp2𝑜
6 3 5 sylib DVPTpy𝒫D|y2𝑜P=zDifzppzzp𝒫Dp2𝑜
7 6 simprd DVPTpy𝒫D|y2𝑜P=zDifzppzzp2𝑜
8 en2 p2𝑜ijp=ij
9 7 8 syl DVPTpy𝒫D|y2𝑜P=zDifzppzzijp=ij
10 6 simpld DVPTpy𝒫D|y2𝑜P=zDifzppzzp𝒫D
11 10 elpwid DVPTpy𝒫D|y2𝑜P=zDifzppzzpD
12 11 adantr DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijpD
13 vex iV
14 13 prid1 iij
15 simpr DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijp=ij
16 14 15 eleqtrrid DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijip
17 12 16 sseldd DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijiD
18 vex jV
19 18 prid2 jij
20 19 15 eleqtrrid DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijjp
21 12 20 sseldd DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijjD
22 7 adantr DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijp2𝑜
23 15 22 eqbrtrrd DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijij2𝑜
24 pr2ne iDjDij2𝑜ij
25 24 biimpa iDjDij2𝑜ij
26 17 21 23 25 syl21anc DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijij
27 simplr DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijP=zDifzppzz
28 simp-4l DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijDV
29 eqid pmTrspD=pmTrspD
30 29 pmtrval DVpDp2𝑜pmTrspDp=zDifzppzz
31 28 12 22 30 syl3anc DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijpmTrspDp=zDifzppzz
32 15 fveq2d DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijpmTrspDp=pmTrspDij
33 27 31 32 3eqtr2d DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijP=pmTrspDij
34 2 28 17 21 26 29 cycpm2tr DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijC⟨“ij”⟩=pmTrspDij
35 33 34 eqtr4d DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijP=C⟨“ij”⟩
36 26 35 jca DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijijP=C⟨“ij”⟩
37 17 21 36 jca31 DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijiDjDijP=C⟨“ij”⟩
38 37 ex DVPTpy𝒫D|y2𝑜P=zDifzppzzp=ijiDjDijP=C⟨“ij”⟩
39 38 2eximdv DVPTpy𝒫D|y2𝑜P=zDifzppzzijp=ijijiDjDijP=C⟨“ij”⟩
40 9 39 mpd DVPTpy𝒫D|y2𝑜P=zDifzppzzijiDjDijP=C⟨“ij”⟩
41 r2ex iDjDijP=C⟨“ij”⟩ijiDjDijP=C⟨“ij”⟩
42 40 41 sylibr DVPTpy𝒫D|y2𝑜P=zDifzppzziDjDijP=C⟨“ij”⟩
43 simpr DVPTPT
44 29 pmtrfval DVpmTrspD=py𝒫D|y2𝑜zDifzppzz
45 44 adantr DVPTpmTrspD=py𝒫D|y2𝑜zDifzppzz
46 45 rneqd DVPTranpmTrspD=ranpy𝒫D|y2𝑜zDifzppzz
47 1 46 eqtrid DVPTT=ranpy𝒫D|y2𝑜zDifzppzz
48 43 47 eleqtrd DVPTPranpy𝒫D|y2𝑜zDifzppzz
49 eqid py𝒫D|y2𝑜zDifzppzz=py𝒫D|y2𝑜zDifzppzz
50 49 elrnmpt PTPranpy𝒫D|y2𝑜zDifzppzzpy𝒫D|y2𝑜P=zDifzppzz
51 50 adantl DVPTPranpy𝒫D|y2𝑜zDifzppzzpy𝒫D|y2𝑜P=zDifzppzz
52 48 51 mpbid DVPTpy𝒫D|y2𝑜P=zDifzppzz
53 42 52 r19.29a DVPTiDjDijP=C⟨“ij”⟩