Metamath Proof Explorer


Theorem pgpfac1lem5

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

Ref Expression
Hypotheses pgpfac1.k K=mrClsSubGrpG
pgpfac1.s S=KA
pgpfac1.b B=BaseG
pgpfac1.o O=odG
pgpfac1.e E=gExG
pgpfac1.z 0˙=0G
pgpfac1.l ˙=LSSumG
pgpfac1.p φPpGrpG
pgpfac1.g φGAbel
pgpfac1.n φBFin
pgpfac1.oe φOA=E
pgpfac1.u φUSubGrpG
pgpfac1.au φAU
pgpfac1.3 φsSubGrpGsUAstSubGrpGSt=0˙S˙t=s
Assertion pgpfac1lem5 φtSubGrpGSt=0˙S˙t=U

Proof

Step Hyp Ref Expression
1 pgpfac1.k K=mrClsSubGrpG
2 pgpfac1.s S=KA
3 pgpfac1.b B=BaseG
4 pgpfac1.o O=odG
5 pgpfac1.e E=gExG
6 pgpfac1.z 0˙=0G
7 pgpfac1.l ˙=LSSumG
8 pgpfac1.p φPpGrpG
9 pgpfac1.g φGAbel
10 pgpfac1.n φBFin
11 pgpfac1.oe φOA=E
12 pgpfac1.u φUSubGrpG
13 pgpfac1.au φAU
14 pgpfac1.3 φsSubGrpGsUAstSubGrpGSt=0˙S˙t=s
15 pwfi BFin𝒫BFin
16 10 15 sylib φ𝒫BFin
17 16 adantr φSU𝒫BFin
18 3 subgss vSubGrpGvB
19 18 3ad2ant2 φSUvSubGrpGvUAvvB
20 velpw v𝒫BvB
21 19 20 sylibr φSUvSubGrpGvUAvv𝒫B
22 21 rabssdv φSUvSubGrpG|vUAv𝒫B
23 17 22 ssfid φSUvSubGrpG|vUAvFin
24 finnum vSubGrpG|vUAvFinvSubGrpG|vUAvdomcard
25 23 24 syl φSUvSubGrpG|vUAvdomcard
26 ablgrp GAbelGGrp
27 9 26 syl φGGrp
28 3 subgacs GGrpSubGrpGACSB
29 acsmre SubGrpGACSBSubGrpGMooreB
30 27 28 29 3syl φSubGrpGMooreB
31 3 subgss USubGrpGUB
32 12 31 syl φUB
33 32 13 sseldd φAB
34 1 mrcsncl SubGrpGMooreBABKASubGrpG
35 30 33 34 syl2anc φKASubGrpG
36 2 35 eqeltrid φSSubGrpG
37 36 adantr φSUSSubGrpG
38 simpr φSUSU
39 13 snssd φAU
40 39 32 sstrd φAB
41 30 1 40 mrcssidd φAKA
42 41 2 sseqtrrdi φAS
43 snssg ABASAS
44 33 43 syl φASAS
45 42 44 mpbird φAS
46 45 adantr φSUAS
47 psseq1 v=SvUSU
48 eleq2 v=SAvAS
49 47 48 anbi12d v=SvUAvSUAS
50 49 rspcev SSubGrpGSUASvSubGrpGvUAv
51 37 38 46 50 syl12anc φSUvSubGrpGvUAv
52 rabn0 vSubGrpG|vUAvvSubGrpGvUAv
53 51 52 sylibr φSUvSubGrpG|vUAv
54 simpr1 φSUuvSubGrpG|vUAvu[⊂]OruuvSubGrpG|vUAv
55 simpr2 φSUuvSubGrpG|vUAvu[⊂]Oruu
56 23 adantr φSUuvSubGrpG|vUAvu[⊂]OruvSubGrpG|vUAvFin
57 56 54 ssfid φSUuvSubGrpG|vUAvu[⊂]OruuFin
58 simpr3 φSUuvSubGrpG|vUAvu[⊂]Oru[⊂]Oru
59 fin1a2lem10 uuFin[⊂]Oruuu
60 55 57 58 59 syl3anc φSUuvSubGrpG|vUAvu[⊂]Oruuu
61 54 60 sseldd φSUuvSubGrpG|vUAvu[⊂]OruuvSubGrpG|vUAv
62 61 ex φSUuvSubGrpG|vUAvu[⊂]OruuvSubGrpG|vUAv
63 62 alrimiv φSUuuvSubGrpG|vUAvu[⊂]OruuvSubGrpG|vUAv
64 zornn0g vSubGrpG|vUAvdomcardvSubGrpG|vUAvuuvSubGrpG|vUAvu[⊂]OruuvSubGrpG|vUAvsvSubGrpG|vUAvwvSubGrpG|vUAv¬sw
65 25 53 63 64 syl3anc φSUsvSubGrpG|vUAvwvSubGrpG|vUAv¬sw
66 psseq1 v=wvUwU
67 eleq2 v=wAvAw
68 66 67 anbi12d v=wvUAvwUAw
69 68 ralrab wvSubGrpG|vUAv¬swwSubGrpGwUAw¬sw
70 69 rexbii svSubGrpG|vUAvwvSubGrpG|vUAv¬swsvSubGrpG|vUAvwSubGrpGwUAw¬sw
71 65 70 sylib φSUsvSubGrpG|vUAvwSubGrpGwUAw¬sw
72 71 ex φSUsvSubGrpG|vUAvwSubGrpGwUAw¬sw
73 psseq1 v=svUsU
74 eleq2 v=sAvAs
75 73 74 anbi12d v=svUAvsUAs
76 75 ralrab svSubGrpG|vUAvtSubGrpGSt=0˙S˙t=ssSubGrpGsUAstSubGrpGSt=0˙S˙t=s
77 14 76 sylibr φsvSubGrpG|vUAvtSubGrpGSt=0˙S˙t=s
78 r19.29 svSubGrpG|vUAvtSubGrpGSt=0˙S˙t=ssvSubGrpG|vUAvwSubGrpGwUAw¬swsvSubGrpG|vUAvtSubGrpGSt=0˙S˙t=swSubGrpGwUAw¬sw
79 75 elrab svSubGrpG|vUAvsSubGrpGsUAs
80 ineq2 t=vSt=Sv
81 80 eqeq1d t=vSt=0˙Sv=0˙
82 oveq2 t=vS˙t=S˙v
83 82 eqeq1d t=vS˙t=sS˙v=s
84 81 83 anbi12d t=vSt=0˙S˙t=sSv=0˙S˙v=s
85 84 cbvrexvw tSubGrpGSt=0˙S˙t=svSubGrpGSv=0˙S˙v=s
86 simprrl φsSubGrpGsUAssU
87 86 ad2antrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swsU
88 simpr2 φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swS˙v=s
89 88 psseq1d φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swS˙vUsU
90 87 89 mpbird φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swS˙vU
91 pssdif S˙vUUS˙v
92 n0 US˙vbbUS˙v
93 91 92 sylib S˙vUbbUS˙v
94 90 93 syl φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbbUS˙v
95 8 ad3antrrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vPpGrpG
96 9 ad3antrrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vGAbel
97 10 ad3antrrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vBFin
98 11 ad3antrrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vOA=E
99 12 ad3antrrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vUSubGrpG
100 13 ad3antrrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vAU
101 simplr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vvSubGrpG
102 simprl1 φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vSv=0˙
103 90 adantrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vS˙vU
104 103 pssssd φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vS˙vU
105 simprl3 φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vwSubGrpGwUAw¬sw
106 88 adantrr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vS˙v=s
107 psseq1 S˙v=sS˙vysy
108 107 notbid S˙v=s¬S˙vy¬sy
109 108 imbi2d S˙v=syUAy¬S˙vyyUAy¬sy
110 109 ralbidv S˙v=sySubGrpGyUAy¬S˙vyySubGrpGyUAy¬sy
111 psseq1 y=wyUwU
112 eleq2 y=wAyAw
113 111 112 anbi12d y=wyUAywUAw
114 psseq2 y=wsysw
115 114 notbid y=w¬sy¬sw
116 113 115 imbi12d y=wyUAy¬sywUAw¬sw
117 116 cbvralvw ySubGrpGyUAy¬sywSubGrpGwUAw¬sw
118 110 117 bitrdi S˙v=sySubGrpGyUAy¬S˙vywSubGrpGwUAw¬sw
119 106 118 syl φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vySubGrpGyUAy¬S˙vywSubGrpGwUAw¬sw
120 105 119 mpbird φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vySubGrpGyUAy¬S˙vy
121 simprr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vbUS˙v
122 eqid G=G
123 1 2 3 4 5 6 7 95 96 97 98 99 100 101 102 104 120 121 122 pgpfac1lem4 φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vtSubGrpGSt=0˙S˙t=U
124 123 expr φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbUS˙vtSubGrpGSt=0˙S˙t=U
125 124 exlimdv φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swbbUS˙vtSubGrpGSt=0˙S˙t=U
126 94 125 mpd φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
127 126 3exp2 φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
128 127 impd φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
129 128 rexlimdva φsSubGrpGsUAsvSubGrpGSv=0˙S˙v=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
130 85 129 syl5bi φsSubGrpGsUAstSubGrpGSt=0˙S˙t=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
131 130 impd φsSubGrpGsUAstSubGrpGSt=0˙S˙t=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
132 79 131 sylan2b φsvSubGrpG|vUAvtSubGrpGSt=0˙S˙t=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
133 132 rexlimdva φsvSubGrpG|vUAvtSubGrpGSt=0˙S˙t=swSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
134 78 133 syl5 φsvSubGrpG|vUAvtSubGrpGSt=0˙S˙t=ssvSubGrpG|vUAvwSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
135 77 134 mpand φsvSubGrpG|vUAvwSubGrpGwUAw¬swtSubGrpGSt=0˙S˙t=U
136 72 135 syld φSUtSubGrpGSt=0˙S˙t=U
137 6 0subg GGrp0˙SubGrpG
138 27 137 syl φ0˙SubGrpG
139 138 adantr φS=U0˙SubGrpG
140 6 subg0cl SSubGrpG0˙S
141 36 140 syl φ0˙S
142 141 snssd φ0˙S
143 142 adantr φS=U0˙S
144 sseqin2 0˙SS0˙=0˙
145 143 144 sylib φS=US0˙=0˙
146 7 lsmss2 SSubGrpG0˙SubGrpG0˙SS˙0˙=S
147 36 138 142 146 syl3anc φS˙0˙=S
148 147 eqeq1d φS˙0˙=US=U
149 148 biimpar φS=US˙0˙=U
150 ineq2 t=0˙St=S0˙
151 150 eqeq1d t=0˙St=0˙S0˙=0˙
152 oveq2 t=0˙S˙t=S˙0˙
153 152 eqeq1d t=0˙S˙t=US˙0˙=U
154 151 153 anbi12d t=0˙St=0˙S˙t=US0˙=0˙S˙0˙=U
155 154 rspcev 0˙SubGrpGS0˙=0˙S˙0˙=UtSubGrpGSt=0˙S˙t=U
156 139 145 149 155 syl12anc φS=UtSubGrpGSt=0˙S˙t=U
157 156 ex φS=UtSubGrpGSt=0˙S˙t=U
158 1 mrcsscl SubGrpGMooreBAUUSubGrpGKAU
159 30 39 12 158 syl3anc φKAU
160 2 159 eqsstrid φSU
161 sspss SUSUS=U
162 160 161 sylib φSUS=U
163 136 157 162 mpjaod φtSubGrpGSt=0˙S˙t=U