Metamath Proof Explorer


Theorem cyc3genpmlem

Description: Lemma for cyc3genpm . (Contributed by Thierry Arnoux, 24-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
cyc3genpmlem.t ·˙=+S
cyc3genpmlem.i φID
cyc3genpmlem.j φJD
cyc3genpmlem.k φKD
cyc3genpmlem.l φLD
cyc3genpmlem.e φE=M⟨“IJ”⟩
cyc3genpmlem.f φF=M⟨“KL”⟩
cyc3genpmlem.d φDV
cyc3genpmlem.1 φIJ
cyc3genpmlem.2 φKL
Assertion cyc3genpmlem φcWordCE·˙F=Sc

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 cyc3genpmlem.t ·˙=+S
7 cyc3genpmlem.i φID
8 cyc3genpmlem.j φJD
9 cyc3genpmlem.k φKD
10 cyc3genpmlem.l φLD
11 cyc3genpmlem.e φE=M⟨“IJ”⟩
12 cyc3genpmlem.f φF=M⟨“KL”⟩
13 cyc3genpmlem.d φDV
14 cyc3genpmlem.1 φIJ
15 cyc3genpmlem.2 φKL
16 wrd0 WordC
17 16 a1i φIKLJKLWordC
18 simpr φIKLJKLc=c=
19 18 oveq2d φIKLJKLc=Sc=S
20 19 eqeq2d φIKLJKLc=E·˙F=ScE·˙F=S
21 5 13 7 8 14 3 cycpm2cl φM⟨“IJ”⟩BaseS
22 11 21 eqeltrd φEBaseS
23 5 13 9 10 15 3 cycpm2cl φM⟨“KL”⟩BaseS
24 12 23 eqeltrd φFBaseS
25 eqid BaseS=BaseS
26 3 25 6 symgov EBaseSFBaseSE·˙F=EF
27 22 24 26 syl2anc φE·˙F=EF
28 27 ad2antrr φIKLJKLE·˙F=EF
29 11 ad2antrr φIKLJKLE=M⟨“IJ”⟩
30 eqid pmTrspD=pmTrspD
31 5 13 7 8 14 30 cycpm2tr φM⟨“IJ”⟩=pmTrspDIJ
32 31 ad2antrr φIKLJKLM⟨“IJ”⟩=pmTrspDIJ
33 29 32 eqtrd φIKLJKLE=pmTrspDIJ
34 5 13 9 10 15 30 cycpm2tr φM⟨“KL”⟩=pmTrspDKL
35 34 ad2antrr φIKLJKLM⟨“KL”⟩=pmTrspDKL
36 12 ad2antrr φIKLJKLF=M⟨“KL”⟩
37 7 ad2antrr φIKLJKLID
38 8 ad2antrr φIKLJKLJD
39 14 ad2antrr φIKLJKLIJ
40 simplr φIKLJKLIKL
41 simpr φIKLJKLJKL
42 40 41 prssd φIKLJKLIJKL
43 ssprsseq IDJDIJIJKLIJ=KL
44 43 biimpa IDJDIJIJKLIJ=KL
45 37 38 39 42 44 syl31anc φIKLJKLIJ=KL
46 45 fveq2d φIKLJKLpmTrspDIJ=pmTrspDKL
47 35 36 46 3eqtr4d φIKLJKLF=pmTrspDIJ
48 33 47 coeq12d φIKLJKLEF=pmTrspDIJpmTrspDIJ
49 13 ad2antrr φIKLJKLDV
50 37 38 prssd φIKLJKLIJD
51 pr2nelem IDJDIJIJ2𝑜
52 37 38 39 51 syl3anc φIKLJKLIJ2𝑜
53 eqid ranpmTrspD=ranpmTrspD
54 30 53 pmtrrn DVIJDIJ2𝑜pmTrspDIJranpmTrspD
55 49 50 52 54 syl3anc φIKLJKLpmTrspDIJranpmTrspD
56 30 53 pmtrfinv pmTrspDIJranpmTrspDpmTrspDIJpmTrspDIJ=ID
57 55 56 syl φIKLJKLpmTrspDIJpmTrspDIJ=ID
58 28 48 57 3eqtrd φIKLJKLE·˙F=ID
59 3 symgid DVID=0S
60 49 59 syl φIKLJKLID=0S
61 eqid 0S=0S
62 61 gsum0 S=0S
63 60 62 eqtr4di φIKLJKLID=S
64 58 63 eqtrd φIKLJKLE·˙F=S
65 17 20 64 rspcedvd φIKLJKLcWordCE·˙F=Sc
66 13 ad2antrr φIKL¬JKLDV
67 7 ad2antrr φIKL¬JKLID
68 9 10 prssd φKLD
69 68 ad2antrr φIKL¬JKLKLD
70 simplr φIKL¬JKLIKL
71 pr2nelem KDLDKLKL2𝑜
72 9 10 15 71 syl3anc φKL2𝑜
73 72 ad2antrr φIKL¬JKLKL2𝑜
74 unidifsnel IKLKL2𝑜KLIKL
75 70 73 74 syl2anc φIKL¬JKLKLIKL
76 69 75 sseldd φIKL¬JKLKLID
77 8 ad2antrr φIKL¬JKLJD
78 unidifsnne IKLKL2𝑜KLII
79 70 73 78 syl2anc φIKL¬JKLKLII
80 79 necomd φIKL¬JKLIKLI
81 nelne2 KLIKL¬JKLKLIJ
82 75 81 sylancom φIKL¬JKLKLIJ
83 14 necomd φJI
84 83 ad2antrr φIKL¬JKLJI
85 5 3 66 67 76 77 80 82 84 cycpm3cl2 φIKL¬JKLM⟨“IKLIJ”⟩M.-13
86 85 1 eleqtrrdi φIKL¬JKLM⟨“IKLIJ”⟩C
87 86 s1cld φIKL¬JKL⟨“M⟨“IKLIJ”⟩”⟩WordC
88 simpr φIKL¬JKLc=⟨“M⟨“IKLIJ”⟩”⟩c=⟨“M⟨“IKLIJ”⟩”⟩
89 88 oveq2d φIKL¬JKLc=⟨“M⟨“IKLIJ”⟩”⟩Sc=S⟨“M⟨“IKLIJ”⟩”⟩
90 89 eqeq2d φIKL¬JKLc=⟨“M⟨“IKLIJ”⟩”⟩E·˙F=ScE·˙F=S⟨“M⟨“IKLIJ”⟩”⟩
91 5 3 66 67 76 77 80 82 84 6 cyc3co2 φIKL¬JKLM⟨“IKLIJ”⟩=M⟨“IJ”⟩·˙M⟨“IKLI”⟩
92 5 3 66 67 76 77 80 82 84 cycpm3cl φIKL¬JKLM⟨“IKLIJ”⟩BaseS
93 25 gsumws1 M⟨“IKLIJ”⟩BaseSS⟨“M⟨“IKLIJ”⟩”⟩=M⟨“IKLIJ”⟩
94 92 93 syl φIKL¬JKLS⟨“M⟨“IKLIJ”⟩”⟩=M⟨“IKLIJ”⟩
95 11 ad2antrr φIKL¬JKLE=M⟨“IJ”⟩
96 en2eleq IKLKL2𝑜KL=IKLI
97 70 73 96 syl2anc φIKL¬JKLKL=IKLI
98 97 fveq2d φIKL¬JKLpmTrspDKL=pmTrspDIKLI
99 12 34 eqtrd φF=pmTrspDKL
100 99 ad2antrr φIKL¬JKLF=pmTrspDKL
101 5 66 67 76 80 30 cycpm2tr φIKL¬JKLM⟨“IKLI”⟩=pmTrspDIKLI
102 98 100 101 3eqtr4d φIKL¬JKLF=M⟨“IKLI”⟩
103 95 102 oveq12d φIKL¬JKLE·˙F=M⟨“IJ”⟩·˙M⟨“IKLI”⟩
104 91 94 103 3eqtr4rd φIKL¬JKLE·˙F=S⟨“M⟨“IKLIJ”⟩”⟩
105 87 90 104 rspcedvd φIKL¬JKLcWordCE·˙F=Sc
106 65 105 pm2.61dan φIKLcWordCE·˙F=Sc
107 13 ad2antrr φ¬IKLJKLDV
108 8 ad2antrr φ¬IKLJKLJD
109 68 ad2antrr φ¬IKLJKLKLD
110 simpr φ¬IKLJKLJKL
111 72 ad2antrr φ¬IKLJKLKL2𝑜
112 unidifsnel JKLKL2𝑜KLJKL
113 110 111 112 syl2anc φ¬IKLJKLKLJKL
114 109 113 sseldd φ¬IKLJKLKLJD
115 7 ad2antrr φ¬IKLJKLID
116 unidifsnne JKLKL2𝑜KLJJ
117 110 111 116 syl2anc φ¬IKLJKLKLJJ
118 117 necomd φ¬IKLJKLJKLJ
119 simplr φ¬IKLJKL¬IKL
120 nelne2 KLJKL¬IKLKLJI
121 113 119 120 syl2anc φ¬IKLJKLKLJI
122 14 ad2antrr φ¬IKLJKLIJ
123 5 3 107 108 114 115 118 121 122 cycpm3cl2 φ¬IKLJKLM⟨“JKLJI”⟩M.-13
124 123 1 eleqtrrdi φ¬IKLJKLM⟨“JKLJI”⟩C
125 124 s1cld φ¬IKLJKL⟨“M⟨“JKLJI”⟩”⟩WordC
126 simpr φ¬IKLJKLc=⟨“M⟨“JKLJI”⟩”⟩c=⟨“M⟨“JKLJI”⟩”⟩
127 126 oveq2d φ¬IKLJKLc=⟨“M⟨“JKLJI”⟩”⟩Sc=S⟨“M⟨“JKLJI”⟩”⟩
128 127 eqeq2d φ¬IKLJKLc=⟨“M⟨“JKLJI”⟩”⟩E·˙F=ScE·˙F=S⟨“M⟨“JKLJI”⟩”⟩
129 5 3 107 108 114 115 118 121 122 6 cyc3co2 φ¬IKLJKLM⟨“JKLJI”⟩=M⟨“JI”⟩·˙M⟨“JKLJ”⟩
130 5 3 107 108 114 115 118 121 122 cycpm3cl φ¬IKLJKLM⟨“JKLJI”⟩BaseS
131 25 gsumws1 M⟨“JKLJI”⟩BaseSS⟨“M⟨“JKLJI”⟩”⟩=M⟨“JKLJI”⟩
132 130 131 syl φ¬IKLJKLS⟨“M⟨“JKLJI”⟩”⟩=M⟨“JKLJI”⟩
133 prcom IJ=JI
134 133 fveq2i pmTrspDIJ=pmTrspDJI
135 5 13 8 7 83 30 cycpm2tr φM⟨“JI”⟩=pmTrspDJI
136 134 31 135 3eqtr4a φM⟨“IJ”⟩=M⟨“JI”⟩
137 11 136 eqtrd φE=M⟨“JI”⟩
138 137 ad2antrr φ¬IKLJKLE=M⟨“JI”⟩
139 en2eleq JKLKL2𝑜KL=JKLJ
140 110 111 139 syl2anc φ¬IKLJKLKL=JKLJ
141 140 fveq2d φ¬IKLJKLpmTrspDKL=pmTrspDJKLJ
142 99 ad2antrr φ¬IKLJKLF=pmTrspDKL
143 5 107 108 114 118 30 cycpm2tr φ¬IKLJKLM⟨“JKLJ”⟩=pmTrspDJKLJ
144 141 142 143 3eqtr4d φ¬IKLJKLF=M⟨“JKLJ”⟩
145 138 144 oveq12d φ¬IKLJKLE·˙F=M⟨“JI”⟩·˙M⟨“JKLJ”⟩
146 129 132 145 3eqtr4rd φ¬IKLJKLE·˙F=S⟨“M⟨“JKLJI”⟩”⟩
147 125 128 146 rspcedvd φ¬IKLJKLcWordCE·˙F=Sc
148 13 ad2antrr φ¬IKL¬JKLDV
149 8 ad2antrr φ¬IKL¬JKLJD
150 9 ad2antrr φ¬IKL¬JKLKD
151 7 ad2antrr φ¬IKL¬JKLID
152 simpr φ¬IKL¬JKL¬JKL
153 149 152 nelpr1 φ¬IKL¬JKLJK
154 prid1g KDKKL
155 9 154 syl φKKL
156 155 ad2antrr φ¬IKL¬JKLKKL
157 simplr φ¬IKL¬JKL¬IKL
158 nelne2 KKL¬IKLKI
159 156 157 158 syl2anc φ¬IKL¬JKLKI
160 14 ad2antrr φ¬IKL¬JKLIJ
161 5 3 148 149 150 151 153 159 160 cycpm3cl2 φ¬IKL¬JKLM⟨“JKI”⟩M.-13
162 161 1 eleqtrrdi φ¬IKL¬JKLM⟨“JKI”⟩C
163 10 ad2antrr φ¬IKL¬JKLLD
164 15 ad2antrr φ¬IKL¬JKLKL
165 prid2g LDLKL
166 163 165 syl φ¬IKL¬JKLLKL
167 nelne2 LKL¬JKLLJ
168 166 167 sylancom φ¬IKL¬JKLLJ
169 5 3 148 150 163 149 164 168 153 cycpm3cl2 φ¬IKL¬JKLM⟨“KLJ”⟩M.-13
170 169 1 eleqtrrdi φ¬IKL¬JKLM⟨“KLJ”⟩C
171 162 170 s2cld φ¬IKL¬JKL⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩WordC
172 simpr φ¬IKL¬JKLc=⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩c=⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩
173 172 oveq2d φ¬IKL¬JKLc=⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩Sc=S⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩
174 173 eqeq2d φ¬IKL¬JKLc=⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩E·˙F=ScE·˙F=S⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩
175 148 59 syl φ¬IKL¬JKLID=0S
176 175 oveq1d φ¬IKL¬JKLID·˙M⟨“KL”⟩=0S·˙M⟨“KL”⟩
177 3 symggrp DVSGrp
178 13 177 syl φSGrp
179 178 ad2antrr φ¬IKL¬JKLSGrp
180 23 ad2antrr φ¬IKL¬JKLM⟨“KL”⟩BaseS
181 25 6 61 grplid SGrpM⟨“KL”⟩BaseS0S·˙M⟨“KL”⟩=M⟨“KL”⟩
182 179 180 181 syl2anc φ¬IKL¬JKL0S·˙M⟨“KL”⟩=M⟨“KL”⟩
183 176 182 eqtrd φ¬IKL¬JKLID·˙M⟨“KL”⟩=M⟨“KL”⟩
184 183 oveq2d φ¬IKL¬JKLM⟨“IJ”⟩·˙ID·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙M⟨“KL”⟩
185 21 ad2antrr φ¬IKL¬JKLM⟨“IJ”⟩BaseS
186 5 148 149 150 153 30 cycpm2tr φ¬IKL¬JKLM⟨“JK”⟩=pmTrspDJK
187 53 3 25 symgtrf ranpmTrspDBaseS
188 8 9 prssd φJKD
189 188 ad2antrr φ¬IKL¬JKLJKD
190 pr2nelem JDKDJKJK2𝑜
191 149 150 153 190 syl3anc φ¬IKL¬JKLJK2𝑜
192 30 53 pmtrrn DVJKDJK2𝑜pmTrspDJKranpmTrspD
193 148 189 191 192 syl3anc φ¬IKL¬JKLpmTrspDJKranpmTrspD
194 187 193 sselid φ¬IKL¬JKLpmTrspDJKBaseS
195 186 194 eqeltrd φ¬IKL¬JKLM⟨“JK”⟩BaseS
196 153 necomd φ¬IKL¬JKLKJ
197 5 148 150 149 196 30 cycpm2tr φ¬IKL¬JKLM⟨“KJ”⟩=pmTrspDKJ
198 prcom JK=KJ
199 198 a1i φ¬IKL¬JKLJK=KJ
200 199 fveq2d φ¬IKL¬JKLpmTrspDJK=pmTrspDKJ
201 197 200 eqtr4d φ¬IKL¬JKLM⟨“KJ”⟩=pmTrspDJK
202 201 194 eqeltrd φ¬IKL¬JKLM⟨“KJ”⟩BaseS
203 25 6 grpcl SGrpM⟨“KJ”⟩BaseSM⟨“KL”⟩BaseSM⟨“KJ”⟩·˙M⟨“KL”⟩BaseS
204 179 202 180 203 syl3anc φ¬IKL¬JKLM⟨“KJ”⟩·˙M⟨“KL”⟩BaseS
205 25 6 grpass SGrpM⟨“IJ”⟩BaseSM⟨“JK”⟩BaseSM⟨“KJ”⟩·˙M⟨“KL”⟩BaseSM⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
206 179 185 195 204 205 syl13anc φ¬IKL¬JKLM⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
207 25 6 grpass SGrpM⟨“JK”⟩BaseSM⟨“KJ”⟩BaseSM⟨“KL”⟩BaseSM⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
208 179 195 202 180 207 syl13anc φ¬IKL¬JKLM⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
209 208 oveq2d φ¬IKL¬JKLM⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
210 186 201 oveq12d φ¬IKL¬JKLM⟨“JK”⟩·˙M⟨“KJ”⟩=pmTrspDJK·˙pmTrspDJK
211 3 25 6 symgov pmTrspDJKBaseSpmTrspDJKBaseSpmTrspDJK·˙pmTrspDJK=pmTrspDJKpmTrspDJK
212 194 194 211 syl2anc φ¬IKL¬JKLpmTrspDJK·˙pmTrspDJK=pmTrspDJKpmTrspDJK
213 30 53 pmtrfinv pmTrspDJKranpmTrspDpmTrspDJKpmTrspDJK=ID
214 193 213 syl φ¬IKL¬JKLpmTrspDJKpmTrspDJK=ID
215 210 212 214 3eqtrd φ¬IKL¬JKLM⟨“JK”⟩·˙M⟨“KJ”⟩=ID
216 215 oveq1d φ¬IKL¬JKLM⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=ID·˙M⟨“KL”⟩
217 216 oveq2d φ¬IKL¬JKLM⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙ID·˙M⟨“KL”⟩
218 206 209 217 3eqtr2rd φ¬IKL¬JKLM⟨“IJ”⟩·˙ID·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
219 184 218 eqtr3d φ¬IKL¬JKLM⟨“IJ”⟩·˙M⟨“KL”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
220 11 12 oveq12d φE·˙F=M⟨“IJ”⟩·˙M⟨“KL”⟩
221 220 ad2antrr φ¬IKL¬JKLE·˙F=M⟨“IJ”⟩·˙M⟨“KL”⟩
222 5 3 148 149 150 151 153 159 160 6 cyc3co2 φ¬IKL¬JKLM⟨“JKI”⟩=M⟨“JI”⟩·˙M⟨“JK”⟩
223 136 oveq1d φM⟨“IJ”⟩·˙M⟨“JK”⟩=M⟨“JI”⟩·˙M⟨“JK”⟩
224 223 ad2antrr φ¬IKL¬JKLM⟨“IJ”⟩·˙M⟨“JK”⟩=M⟨“JI”⟩·˙M⟨“JK”⟩
225 222 224 eqtr4d φ¬IKL¬JKLM⟨“JKI”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩
226 5 3 148 150 163 149 164 168 153 6 cyc3co2 φ¬IKL¬JKLM⟨“KLJ”⟩=M⟨“KJ”⟩·˙M⟨“KL”⟩
227 225 226 oveq12d φ¬IKL¬JKLM⟨“JKI”⟩·˙M⟨“KLJ”⟩=M⟨“IJ”⟩·˙M⟨“JK”⟩·˙M⟨“KJ”⟩·˙M⟨“KL”⟩
228 219 221 227 3eqtr4d φ¬IKL¬JKLE·˙F=M⟨“JKI”⟩·˙M⟨“KLJ”⟩
229 178 grpmndd φSMnd
230 229 ad2antrr φ¬IKL¬JKLSMnd
231 5 3 148 149 150 151 153 159 160 cycpm3cl φ¬IKL¬JKLM⟨“JKI”⟩BaseS
232 226 204 eqeltrd φ¬IKL¬JKLM⟨“KLJ”⟩BaseS
233 25 6 gsumws2 SMndM⟨“JKI”⟩BaseSM⟨“KLJ”⟩BaseSS⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩=M⟨“JKI”⟩·˙M⟨“KLJ”⟩
234 230 231 232 233 syl3anc φ¬IKL¬JKLS⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩=M⟨“JKI”⟩·˙M⟨“KLJ”⟩
235 228 234 eqtr4d φ¬IKL¬JKLE·˙F=S⟨“M⟨“JKI”⟩M⟨“KLJ”⟩”⟩
236 171 174 235 rspcedvd φ¬IKL¬JKLcWordCE·˙F=Sc
237 147 236 pm2.61dan φ¬IKLcWordCE·˙F=Sc
238 106 237 pm2.61dan φcWordCE·˙F=Sc