Step | Hyp | Ref
| Expression |
1 | | symgtrinv.g |
. . . . 5
β’ πΊ = (SymGrpβπ·) |
2 | 1 | symggrp 19263 |
. . . 4
β’ (π· β π β πΊ β Grp) |
3 | | eqid 2733 |
. . . . 5
β’
(oppgβπΊ) = (oppgβπΊ) |
4 | | symgtrinv.i |
. . . . 5
β’ πΌ = (invgβπΊ) |
5 | 3, 4 | invoppggim 19222 |
. . . 4
β’ (πΊ β Grp β πΌ β (πΊ GrpIso (oppgβπΊ))) |
6 | | gimghm 19133 |
. . . 4
β’ (πΌ β (πΊ GrpIso (oppgβπΊ)) β πΌ β (πΊ GrpHom (oppgβπΊ))) |
7 | | ghmmhm 19097 |
. . . 4
β’ (πΌ β (πΊ GrpHom (oppgβπΊ)) β πΌ β (πΊ MndHom (oppgβπΊ))) |
8 | 2, 5, 6, 7 | 4syl 19 |
. . 3
β’ (π· β π β πΌ β (πΊ MndHom (oppgβπΊ))) |
9 | | symgtrinv.t |
. . . . . 6
β’ π = ran (pmTrspβπ·) |
10 | | eqid 2733 |
. . . . . 6
β’
(BaseβπΊ) =
(BaseβπΊ) |
11 | 9, 1, 10 | symgtrf 19332 |
. . . . 5
β’ π β (BaseβπΊ) |
12 | | sswrd 14469 |
. . . . 5
β’ (π β (BaseβπΊ) β Word π β Word (BaseβπΊ)) |
13 | 11, 12 | ax-mp 5 |
. . . 4
β’ Word
π β Word
(BaseβπΊ) |
14 | 13 | sseli 3978 |
. . 3
β’ (π β Word π β π β Word (BaseβπΊ)) |
15 | 10 | gsumwmhm 18723 |
. . 3
β’ ((πΌ β (πΊ MndHom (oppgβπΊ)) β§ π β Word (BaseβπΊ)) β (πΌβ(πΊ Ξ£g π)) =
((oppgβπΊ) Ξ£g (πΌ β π))) |
16 | 8, 14, 15 | syl2an 597 |
. 2
β’ ((π· β π β§ π β Word π) β (πΌβ(πΊ Ξ£g π)) =
((oppgβπΊ) Ξ£g (πΌ β π))) |
17 | 10, 4 | grpinvf 18868 |
. . . . . . 7
β’ (πΊ β Grp β πΌ:(BaseβπΊ)βΆ(BaseβπΊ)) |
18 | 2, 17 | syl 17 |
. . . . . 6
β’ (π· β π β πΌ:(BaseβπΊ)βΆ(BaseβπΊ)) |
19 | | wrdf 14466 |
. . . . . . . 8
β’ (π β Word π β π:(0..^(β―βπ))βΆπ) |
20 | 19 | adantl 483 |
. . . . . . 7
β’ ((π· β π β§ π β Word π) β π:(0..^(β―βπ))βΆπ) |
21 | | fss 6732 |
. . . . . . 7
β’ ((π:(0..^(β―βπ))βΆπ β§ π β (BaseβπΊ)) β π:(0..^(β―βπ))βΆ(BaseβπΊ)) |
22 | 20, 11, 21 | sylancl 587 |
. . . . . 6
β’ ((π· β π β§ π β Word π) β π:(0..^(β―βπ))βΆ(BaseβπΊ)) |
23 | | fco 6739 |
. . . . . 6
β’ ((πΌ:(BaseβπΊ)βΆ(BaseβπΊ) β§ π:(0..^(β―βπ))βΆ(BaseβπΊ)) β (πΌ β π):(0..^(β―βπ))βΆ(BaseβπΊ)) |
24 | 18, 22, 23 | syl2an2r 684 |
. . . . 5
β’ ((π· β π β§ π β Word π) β (πΌ β π):(0..^(β―βπ))βΆ(BaseβπΊ)) |
25 | 24 | ffnd 6716 |
. . . 4
β’ ((π· β π β§ π β Word π) β (πΌ β π) Fn (0..^(β―βπ))) |
26 | 20 | ffnd 6716 |
. . . 4
β’ ((π· β π β§ π β Word π) β π Fn (0..^(β―βπ))) |
27 | | fvco2 6986 |
. . . . . 6
β’ ((π Fn (0..^(β―βπ)) β§ π₯ β (0..^(β―βπ))) β ((πΌ β π)βπ₯) = (πΌβ(πβπ₯))) |
28 | 26, 27 | sylan 581 |
. . . . 5
β’ (((π· β π β§ π β Word π) β§ π₯ β (0..^(β―βπ))) β ((πΌ β π)βπ₯) = (πΌβ(πβπ₯))) |
29 | 20 | ffvelcdmda 7084 |
. . . . . . 7
β’ (((π· β π β§ π β Word π) β§ π₯ β (0..^(β―βπ))) β (πβπ₯) β π) |
30 | 11, 29 | sselid 3980 |
. . . . . 6
β’ (((π· β π β§ π β Word π) β§ π₯ β (0..^(β―βπ))) β (πβπ₯) β (BaseβπΊ)) |
31 | 1, 10, 4 | symginv 19265 |
. . . . . 6
β’ ((πβπ₯) β (BaseβπΊ) β (πΌβ(πβπ₯)) = β‘(πβπ₯)) |
32 | 30, 31 | syl 17 |
. . . . 5
β’ (((π· β π β§ π β Word π) β§ π₯ β (0..^(β―βπ))) β (πΌβ(πβπ₯)) = β‘(πβπ₯)) |
33 | | eqid 2733 |
. . . . . . 7
β’
(pmTrspβπ·) =
(pmTrspβπ·) |
34 | 33, 9 | pmtrfcnv 19327 |
. . . . . 6
β’ ((πβπ₯) β π β β‘(πβπ₯) = (πβπ₯)) |
35 | 29, 34 | syl 17 |
. . . . 5
β’ (((π· β π β§ π β Word π) β§ π₯ β (0..^(β―βπ))) β β‘(πβπ₯) = (πβπ₯)) |
36 | 28, 32, 35 | 3eqtrd 2777 |
. . . 4
β’ (((π· β π β§ π β Word π) β§ π₯ β (0..^(β―βπ))) β ((πΌ β π)βπ₯) = (πβπ₯)) |
37 | 25, 26, 36 | eqfnfvd 7033 |
. . 3
β’ ((π· β π β§ π β Word π) β (πΌ β π) = π) |
38 | 37 | oveq2d 7422 |
. 2
β’ ((π· β π β§ π β Word π) β
((oppgβπΊ) Ξ£g (πΌ β π)) = ((oppgβπΊ) Ξ£g
π)) |
39 | 2 | grpmndd 18829 |
. . 3
β’ (π· β π β πΊ β Mnd) |
40 | 10, 3 | gsumwrev 19228 |
. . 3
β’ ((πΊ β Mnd β§ π β Word (BaseβπΊ)) β
((oppgβπΊ) Ξ£g π) = (πΊ Ξ£g
(reverseβπ))) |
41 | 39, 14, 40 | syl2an 597 |
. 2
β’ ((π· β π β§ π β Word π) β
((oppgβπΊ) Ξ£g π) = (πΊ Ξ£g
(reverseβπ))) |
42 | 16, 38, 41 | 3eqtrd 2777 |
1
β’ ((π· β π β§ π β Word π) β (πΌβ(πΊ Ξ£g π)) = (πΊ Ξ£g
(reverseβπ))) |