Metamath Proof Explorer


Theorem ablfac1eulem

Description: Lemma for ablfac1eu . (Contributed by Mario Carneiro, 27-Apr-2016)

Ref Expression
Hypotheses ablfac1.b B=BaseG
ablfac1.o O=odG
ablfac1.s S=pAxB|OxpppCntB
ablfac1.g φGAbel
ablfac1.f φBFin
ablfac1.1 φA
ablfac1c.d D=w|wB
ablfac1.2 φDA
ablfac1eu.1 φGdomDProdTGDProdT=B
ablfac1eu.2 φdomT=A
ablfac1eu.3 φqAC0
ablfac1eu.4 φqATq=qC
ablfac1eulem.1 φP
ablfac1eulem.2 φAFin
Assertion ablfac1eulem φ¬PGDProdTAP

Proof

Step Hyp Ref Expression
1 ablfac1.b B=BaseG
2 ablfac1.o O=odG
3 ablfac1.s S=pAxB|OxpppCntB
4 ablfac1.g φGAbel
5 ablfac1.f φBFin
6 ablfac1.1 φA
7 ablfac1c.d D=w|wB
8 ablfac1.2 φDA
9 ablfac1eu.1 φGdomDProdTGDProdT=B
10 ablfac1eu.2 φdomT=A
11 ablfac1eu.3 φqAC0
12 ablfac1eu.4 φqATq=qC
13 ablfac1eulem.1 φP
14 ablfac1eulem.2 φAFin
15 ssid AA
16 sseq1 y=yAA
17 difeq1 y=yP=P
18 0dif P=
19 17 18 eqtrdi y=yP=
20 19 reseq2d y=TyP=T
21 res0 T=
22 20 21 eqtrdi y=TyP=
23 22 oveq2d y=GDProdTyP=GDProd
24 23 fveq2d y=GDProdTyP=GDProd
25 24 breq2d y=PGDProdTyPPGDProd
26 25 notbid y=¬PGDProdTyP¬PGDProd
27 16 26 imbi12d y=yA¬PGDProdTyPA¬PGDProd
28 27 imbi2d y=φyA¬PGDProdTyPφA¬PGDProd
29 sseq1 y=zyAzA
30 difeq1 y=zyP=zP
31 30 reseq2d y=zTyP=TzP
32 31 oveq2d y=zGDProdTyP=GDProdTzP
33 32 fveq2d y=zGDProdTyP=GDProdTzP
34 33 breq2d y=zPGDProdTyPPGDProdTzP
35 34 notbid y=z¬PGDProdTyP¬PGDProdTzP
36 29 35 imbi12d y=zyA¬PGDProdTyPzA¬PGDProdTzP
37 36 imbi2d y=zφyA¬PGDProdTyPφzA¬PGDProdTzP
38 sseq1 y=zqyAzqA
39 difeq1 y=zqyP=zqP
40 39 reseq2d y=zqTyP=TzqP
41 40 oveq2d y=zqGDProdTyP=GDProdTzqP
42 41 fveq2d y=zqGDProdTyP=GDProdTzqP
43 42 breq2d y=zqPGDProdTyPPGDProdTzqP
44 43 notbid y=zq¬PGDProdTyP¬PGDProdTzqP
45 38 44 imbi12d y=zqyA¬PGDProdTyPzqA¬PGDProdTzqP
46 45 imbi2d y=zqφyA¬PGDProdTyPφzqA¬PGDProdTzqP
47 sseq1 y=AyAAA
48 difeq1 y=AyP=AP
49 48 reseq2d y=ATyP=TAP
50 49 oveq2d y=AGDProdTyP=GDProdTAP
51 50 fveq2d y=AGDProdTyP=GDProdTAP
52 51 breq2d y=APGDProdTyPPGDProdTAP
53 52 notbid y=A¬PGDProdTyP¬PGDProdTAP
54 47 53 imbi12d y=AyA¬PGDProdTyPAA¬PGDProdTAP
55 54 imbi2d y=AφyA¬PGDProdTyPφAA¬PGDProdTAP
56 nprmdvds1 P¬P1
57 13 56 syl φ¬P1
58 ablgrp GAbelGGrp
59 eqid 0G=0G
60 59 dprd0 GGrpGdomDProdGDProd=0G
61 4 58 60 3syl φGdomDProdGDProd=0G
62 61 simprd φGDProd=0G
63 62 fveq2d φGDProd=0G
64 fvex 0GV
65 hashsng 0GV0G=1
66 64 65 ax-mp 0G=1
67 63 66 eqtrdi φGDProd=1
68 67 breq2d φPGDProdP1
69 57 68 mtbird φ¬PGDProd
70 69 a1d φA¬PGDProd
71 ssun1 zzq
72 sstr zzqzqAzA
73 71 72 mpan zqAzA
74 73 imim1i zA¬PGDProdTzPzqA¬PGDProdTzP
75 9 simpld φGdomDProdT
76 75 10 dprdf2 φT:ASubGrpG
77 76 adantr φ¬qzzqAT:ASubGrpG
78 simprr φ¬qzzqAzqA
79 78 ssdifssd φ¬qzzqAzqPA
80 77 79 fssresd φ¬qzzqATzqP:zqPSubGrpG
81 simprl φ¬qzzqA¬qz
82 disjsn zq=¬qz
83 81 82 sylibr φ¬qzzqAzq=
84 83 difeq1d φ¬qzzqAzqP=P
85 difindir zqP=zPqP
86 84 85 18 3eqtr3g φ¬qzzqAzPqP=
87 difundir zqP=zPqP
88 87 a1i φ¬qzzqAzqP=zPqP
89 eqid LSSumG=LSSumG
90 75 adantr φ¬qzzqAGdomDProdT
91 10 adantr φ¬qzzqAdomT=A
92 90 91 79 dprdres φ¬qzzqAGdomDProdTzqPGDProdTzqPGDProdT
93 92 simpld φ¬qzzqAGdomDProdTzqP
94 80 86 88 89 93 dprdsplit φ¬qzzqAGDProdTzqP=GDProdTzqPzPLSSumGGDProdTzqPqP
95 94 fveq2d φ¬qzzqAGDProdTzqP=GDProdTzqPzPLSSumGGDProdTzqPqP
96 eqid CntzG=CntzG
97 80 fdmd φ¬qzzqAdomTzqP=zqP
98 ssdif zzqzPzqP
99 71 98 mp1i φ¬qzzqAzPzqP
100 93 97 99 dprdres φ¬qzzqAGdomDProdTzqPzPGDProdTzqPzPGDProdTzqP
101 100 simpld φ¬qzzqAGdomDProdTzqPzP
102 dprdsubg GdomDProdTzqPzPGDProdTzqPzPSubGrpG
103 101 102 syl φ¬qzzqAGDProdTzqPzPSubGrpG
104 ssun2 qzq
105 ssdif qzqqPzqP
106 104 105 mp1i φ¬qzzqAqPzqP
107 93 97 106 dprdres φ¬qzzqAGdomDProdTzqPqPGDProdTzqPqPGDProdTzqP
108 107 simpld φ¬qzzqAGdomDProdTzqPqP
109 dprdsubg GdomDProdTzqPqPGDProdTzqPqPSubGrpG
110 108 109 syl φ¬qzzqAGDProdTzqPqPSubGrpG
111 93 97 99 106 86 59 dprddisj2 φ¬qzzqAGDProdTzqPzPGDProdTzqPqP=0G
112 93 97 99 106 86 96 dprdcntz2 φ¬qzzqAGDProdTzqPzPCntzGGDProdTzqPqP
113 5 adantr φ¬qzzqABFin
114 1 dprdssv GDProdTzqPzPB
115 ssfi BFinGDProdTzqPzPBGDProdTzqPzPFin
116 113 114 115 sylancl φ¬qzzqAGDProdTzqPzPFin
117 1 dprdssv GDProdTzqPqPB
118 ssfi BFinGDProdTzqPqPBGDProdTzqPqPFin
119 113 117 118 sylancl φ¬qzzqAGDProdTzqPqPFin
120 89 59 96 103 110 111 112 116 119 lsmhash φ¬qzzqAGDProdTzqPzPLSSumGGDProdTzqPqP=GDProdTzqPzPGDProdTzqPqP
121 99 resabs1d φ¬qzzqATzqPzP=TzP
122 121 oveq2d φ¬qzzqAGDProdTzqPzP=GDProdTzP
123 122 fveq2d φ¬qzzqAGDProdTzqPzP=GDProdTzP
124 106 resabs1d φ¬qzzqATzqPqP=TqP
125 124 oveq2d φ¬qzzqAGDProdTzqPqP=GDProdTqP
126 125 fveq2d φ¬qzzqAGDProdTzqPqP=GDProdTqP
127 123 126 oveq12d φ¬qzzqAGDProdTzqPzPGDProdTzqPqP=GDProdTzPGDProdTqP
128 95 120 127 3eqtrd φ¬qzzqAGDProdTzqP=GDProdTzPGDProdTqP
129 128 breq2d φ¬qzzqAPGDProdTzqPPGDProdTzPGDProdTqP
130 13 adantr φ¬qzzqAP
131 1 dprdssv GDProdTzPB
132 ssfi BFinGDProdTzPBGDProdTzPFin
133 113 131 132 sylancl φ¬qzzqAGDProdTzPFin
134 hashcl GDProdTzPFinGDProdTzP0
135 133 134 syl φ¬qzzqAGDProdTzP0
136 135 nn0zd φ¬qzzqAGDProdTzP
137 1 dprdssv GDProdTqPB
138 ssfi BFinGDProdTqPBGDProdTqPFin
139 113 137 138 sylancl φ¬qzzqAGDProdTqPFin
140 hashcl GDProdTqPFinGDProdTqP0
141 139 140 syl φ¬qzzqAGDProdTqP0
142 141 nn0zd φ¬qzzqAGDProdTqP
143 euclemma PGDProdTzPGDProdTqPPGDProdTzPGDProdTqPPGDProdTzPPGDProdTqP
144 130 136 142 143 syl3anc φ¬qzzqAPGDProdTzPGDProdTqPPGDProdTzPPGDProdTqP
145 129 144 bitrd φ¬qzzqAPGDProdTzqPPGDProdTzPPGDProdTqP
146 57 ad2antrr φ¬qzzqAq=P¬P1
147 simpr φ¬qzzqAq=Pq=P
148 147 sneqd φ¬qzzqAq=Pq=P
149 148 difeq1d φ¬qzzqAq=PqP=PP
150 difid PP=
151 149 150 eqtrdi φ¬qzzqAq=PqP=
152 151 reseq2d φ¬qzzqAq=PTqP=T
153 152 21 eqtrdi φ¬qzzqAq=PTqP=
154 153 oveq2d φ¬qzzqAq=PGDProdTqP=GDProd
155 62 ad2antrr φ¬qzzqAq=PGDProd=0G
156 154 155 eqtrd φ¬qzzqAq=PGDProdTqP=0G
157 156 fveq2d φ¬qzzqAq=PGDProdTqP=0G
158 157 66 eqtrdi φ¬qzzqAq=PGDProdTqP=1
159 158 breq2d φ¬qzzqAq=PPGDProdTqPP1
160 146 159 mtbird φ¬qzzqAq=P¬PGDProdTqP
161 6 adantr φ¬qzzqAA
162 78 unssbd φ¬qzzqAqA
163 vex qV
164 163 snss qAqA
165 162 164 sylibr φ¬qzzqAqA
166 161 165 sseldd φ¬qzzqAq
167 165 11 syldan φ¬qzzqAC0
168 prmdvdsexpr PqC0PqCP=q
169 130 166 167 168 syl3anc φ¬qzzqAPqCP=q
170 eqcom P=qq=P
171 169 170 imbitrdi φ¬qzzqAPqCq=P
172 171 necon3ad φ¬qzzqAqP¬PqC
173 172 imp φ¬qzzqAqP¬PqC
174 disjsn2 qPqP=
175 174 adantl φ¬qzzqAqPqP=
176 disj3 qP=q=qP
177 175 176 sylib φ¬qzzqAqPq=qP
178 177 reseq2d φ¬qzzqAqPTq=TqP
179 178 oveq2d φ¬qzzqAqPGDProdTq=GDProdTqP
180 75 ad2antrr φ¬qzzqAqPGdomDProdT
181 10 ad2antrr φ¬qzzqAqPdomT=A
182 165 adantr φ¬qzzqAqPqA
183 180 181 182 dpjlem φ¬qzzqAqPGDProdTq=Tq
184 179 183 eqtr3d φ¬qzzqAqPGDProdTqP=Tq
185 184 fveq2d φ¬qzzqAqPGDProdTqP=Tq
186 165 12 syldan φ¬qzzqATq=qC
187 186 adantr φ¬qzzqAqPTq=qC
188 185 187 eqtrd φ¬qzzqAqPGDProdTqP=qC
189 188 breq2d φ¬qzzqAqPPGDProdTqPPqC
190 173 189 mtbird φ¬qzzqAqP¬PGDProdTqP
191 160 190 pm2.61dane φ¬qzzqA¬PGDProdTqP
192 orel2 ¬PGDProdTqPPGDProdTzPPGDProdTqPPGDProdTzP
193 191 192 syl φ¬qzzqAPGDProdTzPPGDProdTqPPGDProdTzP
194 145 193 sylbid φ¬qzzqAPGDProdTzqPPGDProdTzP
195 194 con3d φ¬qzzqA¬PGDProdTzP¬PGDProdTzqP
196 195 expr φ¬qzzqA¬PGDProdTzP¬PGDProdTzqP
197 196 a2d φ¬qzzqA¬PGDProdTzPzqA¬PGDProdTzqP
198 74 197 syl5 φ¬qzzA¬PGDProdTzPzqA¬PGDProdTzqP
199 198 expcom ¬qzφzA¬PGDProdTzPzqA¬PGDProdTzqP
200 199 adantl zFin¬qzφzA¬PGDProdTzPzqA¬PGDProdTzqP
201 200 a2d zFin¬qzφzA¬PGDProdTzPφzqA¬PGDProdTzqP
202 28 37 46 55 70 201 findcard2s AFinφAA¬PGDProdTAP
203 14 202 mpcom φAA¬PGDProdTAP
204 15 203 mpi φ¬PGDProdTAP