Metamath Proof Explorer


Theorem pgpfaclem1

Description: Lemma for pgpfac . (Contributed by Mario Carneiro, 27-Apr-2016) (Revised by Mario Carneiro, 3-May-2016)

Ref Expression
Hypotheses pgpfac.b B=BaseG
pgpfac.c C=rSubGrpG|G𝑠rCycGrpranpGrp
pgpfac.g φGAbel
pgpfac.p φPpGrpG
pgpfac.f φBFin
pgpfac.u φUSubGrpG
pgpfac.a φtSubGrpGtUsWordCGdomDProdsGDProds=t
pgpfac.h H=G𝑠U
pgpfac.k K=mrClsSubGrpH
pgpfac.o O=odH
pgpfac.e E=gExH
pgpfac.0 0˙=0H
pgpfac.l ˙=LSSumH
pgpfac.1 φE1
pgpfac.x φXU
pgpfac.oe φOX=E
pgpfac.w φWSubGrpH
pgpfac.i φKXW=0˙
pgpfac.s φKX˙W=U
pgpfac.2 φSWordC
pgpfac.4 φGdomDProdS
pgpfac.5 φGDProdS=W
pgpfac.t T=S++⟨“KX”⟩
Assertion pgpfaclem1 φsWordCGdomDProdsGDProds=U

Proof

Step Hyp Ref Expression
1 pgpfac.b B=BaseG
2 pgpfac.c C=rSubGrpG|G𝑠rCycGrpranpGrp
3 pgpfac.g φGAbel
4 pgpfac.p φPpGrpG
5 pgpfac.f φBFin
6 pgpfac.u φUSubGrpG
7 pgpfac.a φtSubGrpGtUsWordCGdomDProdsGDProds=t
8 pgpfac.h H=G𝑠U
9 pgpfac.k K=mrClsSubGrpH
10 pgpfac.o O=odH
11 pgpfac.e E=gExH
12 pgpfac.0 0˙=0H
13 pgpfac.l ˙=LSSumH
14 pgpfac.1 φE1
15 pgpfac.x φXU
16 pgpfac.oe φOX=E
17 pgpfac.w φWSubGrpH
18 pgpfac.i φKXW=0˙
19 pgpfac.s φKX˙W=U
20 pgpfac.2 φSWordC
21 pgpfac.4 φGdomDProdS
22 pgpfac.5 φGDProdS=W
23 pgpfac.t T=S++⟨“KX”⟩
24 8 subggrp USubGrpGHGrp
25 6 24 syl φHGrp
26 eqid BaseH=BaseH
27 26 subgacs HGrpSubGrpHACSBaseH
28 25 27 syl φSubGrpHACSBaseH
29 28 acsmred φSubGrpHMooreBaseH
30 8 subgbas USubGrpGU=BaseH
31 6 30 syl φU=BaseH
32 15 31 eleqtrd φXBaseH
33 9 mrcsncl SubGrpHMooreBaseHXBaseHKXSubGrpH
34 29 32 33 syl2anc φKXSubGrpH
35 8 subsubg USubGrpGKXSubGrpHKXSubGrpGKXU
36 6 35 syl φKXSubGrpHKXSubGrpGKXU
37 34 36 mpbid φKXSubGrpGKXU
38 37 simpld φKXSubGrpG
39 8 oveq1i H𝑠KX=G𝑠U𝑠KX
40 37 simprd φKXU
41 ressabs USubGrpGKXUG𝑠U𝑠KX=G𝑠KX
42 6 40 41 syl2anc φG𝑠U𝑠KX=G𝑠KX
43 39 42 eqtrid φH𝑠KX=G𝑠KX
44 26 9 cycsubgcyg2 HGrpXBaseHH𝑠KXCycGrp
45 25 32 44 syl2anc φH𝑠KXCycGrp
46 43 45 eqeltrrd φG𝑠KXCycGrp
47 pgpprm PpGrpGP
48 4 47 syl φP
49 subgpgp PpGrpGKXSubGrpGPpGrpG𝑠KX
50 4 38 49 syl2anc φPpGrpG𝑠KX
51 brelrng PG𝑠KXCycGrpPpGrpG𝑠KXG𝑠KXranpGrp
52 48 46 50 51 syl3anc φG𝑠KXranpGrp
53 46 52 elind φG𝑠KXCycGrpranpGrp
54 oveq2 r=KXG𝑠r=G𝑠KX
55 54 eleq1d r=KXG𝑠rCycGrpranpGrpG𝑠KXCycGrpranpGrp
56 55 2 elrab2 KXCKXSubGrpGG𝑠KXCycGrpranpGrp
57 38 53 56 sylanbrc φKXC
58 23 20 57 cats1cld φTWordC
59 wrdf TWordCT:0..^TC
60 58 59 syl φT:0..^TC
61 2 ssrab3 CSubGrpG
62 fss T:0..^TCCSubGrpGT:0..^TSubGrpG
63 60 61 62 sylancl φT:0..^TSubGrpG
64 lencl SWordCS0
65 20 64 syl φS0
66 65 nn0zd φS
67 fzosn SS..^S+1=S
68 66 67 syl φS..^S+1=S
69 68 ineq2d φ0..^SS..^S+1=0..^SS
70 fzodisj 0..^SS..^S+1=
71 69 70 eqtr3di φ0..^SS=
72 23 fveq2i T=S++⟨“KX”⟩
73 57 s1cld φ⟨“KX”⟩WordC
74 ccatlen SWordC⟨“KX”⟩WordCS++⟨“KX”⟩=S+⟨“KX”⟩
75 20 73 74 syl2anc φS++⟨“KX”⟩=S+⟨“KX”⟩
76 72 75 eqtrid φT=S+⟨“KX”⟩
77 s1len ⟨“KX”⟩=1
78 77 oveq2i S+⟨“KX”⟩=S+1
79 76 78 eqtrdi φT=S+1
80 79 oveq2d φ0..^T=0..^S+1
81 nn0uz 0=0
82 65 81 eleqtrdi φS0
83 fzosplitsn S00..^S+1=0..^SS
84 82 83 syl φ0..^S+1=0..^SS
85 80 84 eqtrd φ0..^T=0..^SS
86 eqid CntzG=CntzG
87 eqid 0G=0G
88 cats1un SWordCKXCS++⟨“KX”⟩=SSKX
89 20 57 88 syl2anc φS++⟨“KX”⟩=SSKX
90 23 89 eqtrid φT=SSKX
91 90 reseq1d φT0..^S=SSKX0..^S
92 wrdfn SWordCSFn0..^S
93 20 92 syl φSFn0..^S
94 fzonel ¬S0..^S
95 fsnunres SFn0..^S¬S0..^SSSKX0..^S=S
96 93 94 95 sylancl φSSKX0..^S=S
97 91 96 eqtrd φT0..^S=S
98 21 97 breqtrrd φGdomDProdT0..^S
99 fvex SV
100 dprdsn SVKXSubGrpGGdomDProdSKXGDProdSKX=KX
101 99 38 100 sylancr φGdomDProdSKXGDProdSKX=KX
102 101 simpld φGdomDProdSKX
103 wrdfn TWordCTFn0..^T
104 58 103 syl φTFn0..^T
105 ssun2 S0..^SS
106 99 snss S0..^SSS0..^SS
107 105 106 mpbir S0..^SS
108 107 85 eleqtrrid φS0..^T
109 fnressn TFn0..^TS0..^TTS=STS
110 104 108 109 syl2anc φTS=STS
111 23 fveq1i TS=S++⟨“KX”⟩S
112 65 nn0cnd φS
113 112 addid2d φ0+S=S
114 113 fveq2d φS++⟨“KX”⟩0+S=S++⟨“KX”⟩S
115 111 114 eqtr4id φTS=S++⟨“KX”⟩0+S
116 1nn 1
117 77 116 eqeltri ⟨“KX”⟩
118 lbfzo0 00..^⟨“KX”⟩⟨“KX”⟩
119 117 118 mpbir 00..^⟨“KX”⟩
120 119 a1i φ00..^⟨“KX”⟩
121 ccatval3 SWordC⟨“KX”⟩WordC00..^⟨“KX”⟩S++⟨“KX”⟩0+S=⟨“KX”⟩0
122 20 73 120 121 syl3anc φS++⟨“KX”⟩0+S=⟨“KX”⟩0
123 fvex KXV
124 s1fv KXV⟨“KX”⟩0=KX
125 123 124 mp1i φ⟨“KX”⟩0=KX
126 115 122 125 3eqtrd φTS=KX
127 126 opeq2d φSTS=SKX
128 127 sneqd φSTS=SKX
129 110 128 eqtrd φTS=SKX
130 102 129 breqtrrd φGdomDProdTS
131 dprdsubg GdomDProdT0..^SGDProdT0..^SSubGrpG
132 98 131 syl φGDProdT0..^SSubGrpG
133 dprdsubg GdomDProdTSGDProdTSSubGrpG
134 130 133 syl φGDProdTSSubGrpG
135 86 3 132 134 ablcntzd φGDProdT0..^SCntzGGDProdTS
136 97 oveq2d φGDProdT0..^S=GDProdS
137 136 22 eqtrd φGDProdT0..^S=W
138 129 oveq2d φGDProdTS=GDProdSKX
139 101 simprd φGDProdSKX=KX
140 138 139 eqtrd φGDProdTS=KX
141 137 140 ineq12d φGDProdT0..^SGDProdTS=WKX
142 incom WKX=KXW
143 141 142 eqtrdi φGDProdT0..^SGDProdTS=KXW
144 8 87 subg0 USubGrpG0G=0H
145 6 144 syl φ0G=0H
146 145 12 eqtr4di φ0G=0˙
147 146 sneqd φ0G=0˙
148 18 143 147 3eqtr4d φGDProdT0..^SGDProdTS=0G
149 63 71 85 86 87 98 130 135 148 dmdprdsplit2 φGdomDProdT
150 eqid LSSumG=LSSumG
151 63 71 85 150 149 dprdsplit φGDProdT=GDProdT0..^SLSSumGGDProdTS
152 137 140 oveq12d φGDProdT0..^SLSSumGGDProdTS=WLSSumGKX
153 137 132 eqeltrrd φWSubGrpG
154 150 lsmcom GAbelWSubGrpGKXSubGrpGWLSSumGKX=KXLSSumGW
155 3 153 38 154 syl3anc φWLSSumGKX=KXLSSumGW
156 151 152 155 3eqtrd φGDProdT=KXLSSumGW
157 26 subgss WSubGrpHWBaseH
158 17 157 syl φWBaseH
159 158 31 sseqtrrd φWU
160 8 150 13 subglsm USubGrpGKXUWUKXLSSumGW=KX˙W
161 6 40 159 160 syl3anc φKXLSSumGW=KX˙W
162 156 161 19 3eqtrd φGDProdT=U
163 breq2 s=TGdomDProdsGdomDProdT
164 oveq2 s=TGDProds=GDProdT
165 164 eqeq1d s=TGDProds=UGDProdT=U
166 163 165 anbi12d s=TGdomDProdsGDProds=UGdomDProdTGDProdT=U
167 166 rspcev TWordCGdomDProdTGDProdT=UsWordCGdomDProdsGDProds=U
168 58 149 162 167 syl12anc φsWordCGdomDProdsGDProds=U