Metamath Proof Explorer


Theorem cyc3genpm

Description: The alternating group A is generated by 3-cycles. Property (a) of Lang p. 32 . (Contributed by Thierry Arnoux, 27-Sep-2023)

Ref Expression
Hypotheses cyc3genpm.t C=M.-13
cyc3genpm.a A=pmEvenD
cyc3genpm.s S=SymGrpD
cyc3genpm.n N=D
cyc3genpm.m M=toCycD
Assertion cyc3genpm DFinQAwWordCQ=Sw

Proof

Step Hyp Ref Expression
1 cyc3genpm.t C=M.-13
2 cyc3genpm.a A=pmEvenD
3 cyc3genpm.s S=SymGrpD
4 cyc3genpm.n N=D
5 cyc3genpm.m M=toCycD
6 simplr DFinQAvWordranpmTrspDQ=SvvWordranpmTrspD
7 lencl vWordranpmTrspDv0
8 7 ad2antlr DFinQAvWordranpmTrspDQ=Svv0
9 8 nn0zd DFinQAvWordranpmTrspDQ=Svv
10 simpr DFinQAvWordranpmTrspDQ=SvQ=Sv
11 10 fveq2d DFinQAvWordranpmTrspDQ=SvpmSgnDQ=pmSgnDSv
12 simplll DFinQAvWordranpmTrspDQ=SvDFin
13 simpllr DFinQAvWordranpmTrspDQ=SvQA
14 13 2 eleqtrdi DFinQAvWordranpmTrspDQ=SvQpmEvenD
15 eqid BaseS=BaseS
16 eqid pmSgnD=pmSgnD
17 3 15 16 psgnevpm DFinQpmEvenDpmSgnDQ=1
18 12 14 17 syl2anc DFinQAvWordranpmTrspDQ=SvpmSgnDQ=1
19 eqid ranpmTrspD=ranpmTrspD
20 3 19 16 psgnvalii DFinvWordranpmTrspDpmSgnDSv=1v
21 12 6 20 syl2anc DFinQAvWordranpmTrspDQ=SvpmSgnDSv=1v
22 11 18 21 3eqtr3rd DFinQAvWordranpmTrspDQ=Sv1v=1
23 m1exp1 v1v=12v
24 23 biimpa v1v=12v
25 9 22 24 syl2anc DFinQAvWordranpmTrspDQ=Sv2v
26 oveq2 x=Sx=S
27 26 eqeq1d x=Sx=SwS=Sw
28 27 rexbidv x=wWordCSx=SwwWordCS=Sw
29 28 imbi2d x=DFinwWordCSx=SwDFinwWordCS=Sw
30 oveq2 x=uSx=Su
31 30 eqeq1d x=uSx=SwSu=Sw
32 31 rexbidv x=uwWordCSx=SwwWordCSu=Sw
33 32 imbi2d x=uDFinwWordCSx=SwDFinwWordCSu=Sw
34 oveq2 x=u++⟨“ij”⟩Sx=Su++⟨“ij”⟩
35 34 eqeq1d x=u++⟨“ij”⟩Sx=SwSu++⟨“ij”⟩=Sw
36 35 rexbidv x=u++⟨“ij”⟩wWordCSx=SwwWordCSu++⟨“ij”⟩=Sw
37 36 imbi2d x=u++⟨“ij”⟩DFinwWordCSx=SwDFinwWordCSu++⟨“ij”⟩=Sw
38 oveq2 x=vSx=Sv
39 38 eqeq1d x=vSx=SwSv=Sw
40 39 rexbidv x=vwWordCSx=SwwWordCSv=Sw
41 40 imbi2d x=vDFinwWordCSx=SwDFinwWordCSv=Sw
42 wrd0 WordC
43 42 a1i DFinWordC
44 simpr DFinw=w=
45 44 oveq2d DFinw=Sw=S
46 45 eqeq2d DFinw=S=SwS=S
47 eqidd DFinS=S
48 43 46 47 rspcedvd DFinwWordCS=Sw
49 ccatcl vWordCcWordCv++cWordC
50 49 ad5ant24 uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=Scv++cWordC
51 oveq2 w=v++cSw=Sv++c
52 51 eqeq2d w=v++cSu++⟨“ij”⟩=SwSu++⟨“ij”⟩=Sv++c
53 52 adantl uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=Scw=v++cSu++⟨“ij”⟩=SwSu++⟨“ij”⟩=Sv++c
54 simpllr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScSu=Sv
55 simpllr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvDFin
56 55 ad2antrr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScDFin
57 3 symggrp DFinSGrp
58 grpmnd SGrpSMnd
59 56 57 58 3syl uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScSMnd
60 19 3 15 symgtrf ranpmTrspDBaseS
61 60 a1i uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScranpmTrspDBaseS
62 simp-5r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SviranpmTrspD
63 62 ad2antrr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=SciranpmTrspD
64 61 63 sseldd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=SciBaseS
65 simp-6r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScjranpmTrspD
66 61 65 sseldd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScjBaseS
67 eqid +S=+S
68 15 67 gsumws2 SMndiBaseSjBaseSS⟨“ij”⟩=i+Sj
69 59 64 66 68 syl3anc uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScS⟨“ij”⟩=i+Sj
70 simpr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=Sci+Sj=Sc
71 69 70 eqtrd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScS⟨“ij”⟩=Sc
72 54 71 oveq12d uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScSu+SS⟨“ij”⟩=Sv+SSc
73 sswrd ranpmTrspDBaseSWordranpmTrspDWordBaseS
74 61 73 syl uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScWordranpmTrspDWordBaseS
75 simp-7l uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScuWordranpmTrspD
76 74 75 sseldd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScuWordBaseS
77 64 66 s2cld uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=Sc⟨“ij”⟩WordBaseS
78 15 67 gsumccat SMnduWordBaseS⟨“ij”⟩WordBaseSSu++⟨“ij”⟩=Su+SS⟨“ij”⟩
79 59 76 77 78 syl3anc uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScSu++⟨“ij”⟩=Su+SS⟨“ij”⟩
80 5 imaeq1i M.-13=toCycD.-13
81 1 80 eqtri C=toCycD.-13
82 81 2 cyc3evpm DFinCA
83 3 15 evpmss pmEvenDBaseS
84 2 83 eqsstri ABaseS
85 82 84 sstrdi DFinCBaseS
86 sswrd CBaseSWordCWordBaseS
87 56 85 86 3syl uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScWordCWordBaseS
88 simp-4r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScvWordC
89 87 88 sseldd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScvWordBaseS
90 simplr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=SccWordC
91 87 90 sseldd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=SccWordBaseS
92 15 67 gsumccat SMndvWordBaseScWordBaseSSv++c=Sv+SSc
93 59 89 91 92 syl3anc uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScSv++c=Sv+SSc
94 72 79 93 3eqtr4d uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScSu++⟨“ij”⟩=Sv++c
95 50 53 94 rspcedvd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=ScwWordCSu++⟨“ij”⟩=Sw
96 simp-6r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩eD
97 simp-5r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩fD
98 simpllr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩gD
99 simplr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩hD
100 simp-4r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩efi=M⟨“ef”⟩
101 100 simprd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩i=M⟨“ef”⟩
102 simprr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩j=M⟨“gh”⟩
103 55 ad6antr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩DFin
104 100 simpld uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩ef
105 simprl uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩gh
106 1 2 3 4 5 67 96 97 98 99 101 102 103 104 105 cyc3genpmlem uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩cWordCi+Sj=Sc
107 simp-6r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩DFin
108 simp-7r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩jranpmTrspD
109 19 5 trsp2cyc DFinjranpmTrspDgDhDghj=M⟨“gh”⟩
110 107 108 109 syl2anc uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩gDhDghj=M⟨“gh”⟩
111 106 110 r19.29vva uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩cWordCi+Sj=Sc
112 19 5 trsp2cyc DFiniranpmTrspDeDfDefi=M⟨“ef”⟩
113 55 62 112 syl2anc uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SveDfDefi=M⟨“ef”⟩
114 111 113 r19.29vva uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvcWordCi+Sj=Sc
115 95 114 r19.29a uWordranpmTrspDiranpmTrspDjranpmTrspDDFinvWordCSu=SvwWordCSu++⟨“ij”⟩=Sw
116 115 adantl3r uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinvWordCSu=SvwWordCSu++⟨“ij”⟩=Sw
117 simpr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinDFin
118 simplr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinDFinwWordCSu=Sw
119 117 118 mpd uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinwWordCSu=Sw
120 oveq2 v=wSv=Sw
121 120 eqeq2d v=wSu=SvSu=Sw
122 121 cbvrexvw vWordCSu=SvwWordCSu=Sw
123 119 122 sylibr uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinvWordCSu=Sv
124 116 123 r19.29a uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinwWordCSu++⟨“ij”⟩=Sw
125 124 ex uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinwWordCSu++⟨“ij”⟩=Sw
126 125 ex3 uWordranpmTrspDiranpmTrspDjranpmTrspDDFinwWordCSu=SwDFinwWordCSu++⟨“ij”⟩=Sw
127 29 33 37 41 48 126 wrdt2ind vWordranpmTrspD2vDFinwWordCSv=Sw
128 127 imp vWordranpmTrspD2vDFinwWordCSv=Sw
129 6 25 12 128 syl21anc DFinQAvWordranpmTrspDQ=SvwWordCSv=Sw
130 10 eqeq1d DFinQAvWordranpmTrspDQ=SvQ=SwSv=Sw
131 130 rexbidv DFinQAvWordranpmTrspDQ=SvwWordCQ=SwwWordCSv=Sw
132 129 131 mpbird DFinQAvWordranpmTrspDQ=SvwWordCQ=Sw
133 84 sseli QAQBaseS
134 3 15 19 psgnfitr DFinQBaseSvWordranpmTrspDQ=Sv
135 134 biimpa DFinQBaseSvWordranpmTrspDQ=Sv
136 133 135 sylan2 DFinQAvWordranpmTrspDQ=Sv
137 132 136 r19.29a DFinQAwWordCQ=Sw
138 simpr DFinwWordCQ=SwQ=Sw
139 3 altgnsg DFinpmEvenDNrmSGrpS
140 2 139 eqeltrid DFinANrmSGrpS
141 nsgsubg ANrmSGrpSASubGrpS
142 subgsubm ASubGrpSASubMndS
143 140 141 142 3syl DFinASubMndS
144 143 adantr DFinwWordCASubMndS
145 sswrd CAWordCWordA
146 82 145 syl DFinWordCWordA
147 146 sselda DFinwWordCwWordA
148 gsumwsubmcl ASubMndSwWordASwA
149 144 147 148 syl2anc DFinwWordCSwA
150 149 adantr DFinwWordCQ=SwSwA
151 138 150 eqeltrd DFinwWordCQ=SwQA
152 151 r19.29an DFinwWordCQ=SwQA
153 137 152 impbida DFinQAwWordCQ=Sw