MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pgpfac1lem1 Structured version   Visualization version   GIF version

Theorem pgpfac1lem1 18958
Description: Lemma for pgpfac1 18964. (Contributed by Mario Carneiro, 27-Apr-2016.)
Hypotheses
Ref Expression
pgpfac1.k 𝐾 = (mrCls‘(SubGrp‘𝐺))
pgpfac1.s 𝑆 = (𝐾‘{𝐴})
pgpfac1.b 𝐵 = (Base‘𝐺)
pgpfac1.o 𝑂 = (od‘𝐺)
pgpfac1.e 𝐸 = (gEx‘𝐺)
pgpfac1.z 0 = (0g𝐺)
pgpfac1.l = (LSSum‘𝐺)
pgpfac1.p (𝜑𝑃 pGrp 𝐺)
pgpfac1.g (𝜑𝐺 ∈ Abel)
pgpfac1.n (𝜑𝐵 ∈ Fin)
pgpfac1.oe (𝜑 → (𝑂𝐴) = 𝐸)
pgpfac1.u (𝜑𝑈 ∈ (SubGrp‘𝐺))
pgpfac1.au (𝜑𝐴𝑈)
pgpfac1.w (𝜑𝑊 ∈ (SubGrp‘𝐺))
pgpfac1.i (𝜑 → (𝑆𝑊) = { 0 })
pgpfac1.ss (𝜑 → (𝑆 𝑊) ⊆ 𝑈)
pgpfac1.2 (𝜑 → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤))
Assertion
Ref Expression
pgpfac1lem1 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈)
Distinct variable groups:   𝑤,𝐴   𝑤,   𝑤,𝑃   𝑤,𝐺   𝑤,𝑈   𝑤,𝐶   𝑤,𝑆   𝑤,𝑊   𝜑,𝑤   𝑤,𝐾
Allowed substitution hints:   𝐵(𝑤)   𝐸(𝑤)   𝑂(𝑤)   0 (𝑤)

Proof of Theorem pgpfac1lem1
StepHypRef Expression
1 pgpfac1.ss . . . 4 (𝜑 → (𝑆 𝑊) ⊆ 𝑈)
21adantr 473 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ⊆ 𝑈)
3 pgpfac1.g . . . . . 6 (𝜑𝐺 ∈ Abel)
4 ablgrp 18683 . . . . . 6 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
5 pgpfac1.b . . . . . . 7 𝐵 = (Base‘𝐺)
65subgacs 18110 . . . . . 6 (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
7 acsmre 16793 . . . . . 6 ((SubGrp‘𝐺) ∈ (ACS‘𝐵) → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
83, 4, 6, 74syl 19 . . . . 5 (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
98adantr 473 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
10 eldifi 3995 . . . . . 6 (𝐶 ∈ (𝑈 ∖ (𝑆 𝑊)) → 𝐶𝑈)
1110adantl 474 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶𝑈)
1211snssd 4621 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → {𝐶} ⊆ 𝑈)
13 pgpfac1.u . . . . 5 (𝜑𝑈 ∈ (SubGrp‘𝐺))
1413adantr 473 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝑈 ∈ (SubGrp‘𝐺))
15 pgpfac1.k . . . . 5 𝐾 = (mrCls‘(SubGrp‘𝐺))
1615mrcsscl 16761 . . . 4 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ {𝐶} ⊆ 𝑈𝑈 ∈ (SubGrp‘𝐺)) → (𝐾‘{𝐶}) ⊆ 𝑈)
179, 12, 14, 16syl3anc 1352 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐾‘{𝐶}) ⊆ 𝑈)
18 pgpfac1.s . . . . . . 7 𝑆 = (𝐾‘{𝐴})
195subgss 18076 . . . . . . . . . 10 (𝑈 ∈ (SubGrp‘𝐺) → 𝑈𝐵)
2013, 19syl 17 . . . . . . . . 9 (𝜑𝑈𝐵)
21 pgpfac1.au . . . . . . . . 9 (𝜑𝐴𝑈)
2220, 21sseldd 3861 . . . . . . . 8 (𝜑𝐴𝐵)
2315mrcsncl 16753 . . . . . . . 8 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
248, 22, 23syl2anc 576 . . . . . . 7 (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
2518, 24syl5eqel 2872 . . . . . 6 (𝜑𝑆 ∈ (SubGrp‘𝐺))
26 pgpfac1.w . . . . . 6 (𝜑𝑊 ∈ (SubGrp‘𝐺))
27 pgpfac1.l . . . . . . 7 = (LSSum‘𝐺)
2827lsmsubg2 18747 . . . . . 6 ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 𝑊) ∈ (SubGrp‘𝐺))
293, 25, 26, 28syl3anc 1352 . . . . 5 (𝜑 → (𝑆 𝑊) ∈ (SubGrp‘𝐺))
3029adantr 473 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ∈ (SubGrp‘𝐺))
3120sselda 3860 . . . . . 6 ((𝜑𝐶𝑈) → 𝐶𝐵)
3210, 31sylan2 584 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶𝐵)
3315mrcsncl 16753 . . . . 5 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐶𝐵) → (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺))
349, 32, 33syl2anc 576 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺))
3527lsmlub 18561 . . . 4 (((𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺) ∧ 𝑈 ∈ (SubGrp‘𝐺)) → (((𝑆 𝑊) ⊆ 𝑈 ∧ (𝐾‘{𝐶}) ⊆ 𝑈) ↔ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈))
3630, 34, 14, 35syl3anc 1352 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (((𝑆 𝑊) ⊆ 𝑈 ∧ (𝐾‘{𝐶}) ⊆ 𝑈) ↔ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈))
372, 17, 36mpbi2and 700 . 2 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈)
3827lsmub1 18554 . . . . . 6 (((𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺)) → (𝑆 𝑊) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
3930, 34, 38syl2anc 576 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
4027lsmub2 18555 . . . . . . 7 (((𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺)) → (𝐾‘{𝐶}) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
4130, 34, 40syl2anc 576 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐾‘{𝐶}) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
4232snssd 4621 . . . . . . . 8 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → {𝐶} ⊆ 𝐵)
439, 15, 42mrcssidd 16766 . . . . . . 7 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → {𝐶} ⊆ (𝐾‘{𝐶}))
44 snssg 4596 . . . . . . . 8 (𝐶𝐵 → (𝐶 ∈ (𝐾‘{𝐶}) ↔ {𝐶} ⊆ (𝐾‘{𝐶})))
4532, 44syl 17 . . . . . . 7 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐶 ∈ (𝐾‘{𝐶}) ↔ {𝐶} ⊆ (𝐾‘{𝐶})))
4643, 45mpbird 249 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶 ∈ (𝐾‘{𝐶}))
4741, 46sseldd 3861 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶 ∈ ((𝑆 𝑊) (𝐾‘{𝐶})))
48 eldifn 3996 . . . . . 6 (𝐶 ∈ (𝑈 ∖ (𝑆 𝑊)) → ¬ 𝐶 ∈ (𝑆 𝑊))
4948adantl 474 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ¬ 𝐶 ∈ (𝑆 𝑊))
5039, 47, 49ssnelpssd 3981 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶})))
5127lsmub1 18554 . . . . . . . . 9 ((𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → 𝑆 ⊆ (𝑆 𝑊))
5225, 26, 51syl2anc 576 . . . . . . . 8 (𝜑𝑆 ⊆ (𝑆 𝑊))
5322snssd 4621 . . . . . . . . . . 11 (𝜑 → {𝐴} ⊆ 𝐵)
548, 15, 53mrcssidd 16766 . . . . . . . . . 10 (𝜑 → {𝐴} ⊆ (𝐾‘{𝐴}))
5554, 18syl6sseqr 3910 . . . . . . . . 9 (𝜑 → {𝐴} ⊆ 𝑆)
56 snssg 4596 . . . . . . . . . 10 (𝐴𝑈 → (𝐴𝑆 ↔ {𝐴} ⊆ 𝑆))
5721, 56syl 17 . . . . . . . . 9 (𝜑 → (𝐴𝑆 ↔ {𝐴} ⊆ 𝑆))
5855, 57mpbird 249 . . . . . . . 8 (𝜑𝐴𝑆)
5952, 58sseldd 3861 . . . . . . 7 (𝜑𝐴 ∈ (𝑆 𝑊))
6059adantr 473 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐴 ∈ (𝑆 𝑊))
6139, 60sseldd 3861 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶})))
62 psseq1 3956 . . . . . . . 8 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (𝑤𝑈 ↔ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈))
63 eleq2 2856 . . . . . . . 8 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (𝐴𝑤𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶}))))
6462, 63anbi12d 622 . . . . . . 7 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → ((𝑤𝑈𝐴𝑤) ↔ (((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶})))))
65 psseq2 3957 . . . . . . . 8 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → ((𝑆 𝑊) ⊊ 𝑤 ↔ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
6665notbid 310 . . . . . . 7 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (¬ (𝑆 𝑊) ⊊ 𝑤 ↔ ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
6764, 66imbi12d 337 . . . . . 6 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤) ↔ ((((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶}))) → ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶})))))
68 pgpfac1.2 . . . . . . 7 (𝜑 → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤))
6968adantr 473 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤))
703adantr 473 . . . . . . 7 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐺 ∈ Abel)
7127lsmsubg2 18747 . . . . . . 7 ((𝐺 ∈ Abel ∧ (𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺)) → ((𝑆 𝑊) (𝐾‘{𝐶})) ∈ (SubGrp‘𝐺))
7270, 30, 34, 71syl3anc 1352 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) ∈ (SubGrp‘𝐺))
7367, 69, 72rspcdva 3543 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶}))) → ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
7461, 73mpan2d 682 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈 → ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
7550, 74mt2d 134 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ¬ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈)
76 npss 3979 . . 3 (¬ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈 ↔ (((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈 → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈))
7775, 76sylib 210 . 2 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈 → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈))
7837, 77mpd 15 1 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 387   = wceq 1508  wcel 2051  wral 3090  cdif 3828  cin 3830  wss 3831  wpss 3832  {csn 4444   class class class wbr 4934  cfv 6193  (class class class)co 6982  Fincfn 8312  Basecbs 16345  0gc0g 16575  Moorecmre 16723  mrClscmrc 16724  ACScacs 16726  Grpcgrp 17903  SubGrpcsubg 18069  odcod 18426  gExcgex 18427   pGrp cpgp 18428  LSSumclsm 18532  Abelcabl 18679
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2752  ax-rep 5053  ax-sep 5064  ax-nul 5071  ax-pow 5123  ax-pr 5190  ax-un 7285  ax-cnex 10397  ax-resscn 10398  ax-1cn 10399  ax-icn 10400  ax-addcl 10401  ax-addrcl 10402  ax-mulcl 10403  ax-mulrcl 10404  ax-mulcom 10405  ax-addass 10406  ax-mulass 10407  ax-distr 10408  ax-i2m1 10409  ax-1ne0 10410  ax-1rid 10411  ax-rnegex 10412  ax-rrecex 10413  ax-cnre 10414  ax-pre-lttri 10415  ax-pre-lttrn 10416  ax-pre-ltadd 10417  ax-pre-mulgt0 10418
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3or 1070  df-3an 1071  df-tru 1511  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2551  df-eu 2589  df-clab 2761  df-cleq 2773  df-clel 2848  df-nfc 2920  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3419  df-sbc 3684  df-csb 3789  df-dif 3834  df-un 3836  df-in 3838  df-ss 3845  df-pss 3847  df-nul 4182  df-if 4354  df-pw 4427  df-sn 4445  df-pr 4447  df-tp 4449  df-op 4451  df-uni 4718  df-int 4755  df-iun 4799  df-iin 4800  df-br 4935  df-opab 4997  df-mpt 5014  df-tr 5036  df-id 5316  df-eprel 5321  df-po 5330  df-so 5331  df-fr 5370  df-we 5372  df-xp 5417  df-rel 5418  df-cnv 5419  df-co 5420  df-dm 5421  df-rn 5422  df-res 5423  df-ima 5424  df-pred 5991  df-ord 6037  df-on 6038  df-lim 6039  df-suc 6040  df-iota 6157  df-fun 6195  df-fn 6196  df-f 6197  df-f1 6198  df-fo 6199  df-f1o 6200  df-fv 6201  df-riota 6943  df-ov 6985  df-oprab 6986  df-mpo 6987  df-om 7403  df-1st 7507  df-2nd 7508  df-wrecs 7756  df-recs 7818  df-rdg 7856  df-1o 7911  df-oadd 7915  df-er 8095  df-en 8313  df-dom 8314  df-sdom 8315  df-fin 8316  df-pnf 10482  df-mnf 10483  df-xr 10484  df-ltxr 10485  df-le 10486  df-sub 10678  df-neg 10679  df-nn 11446  df-2 11509  df-ndx 16348  df-slot 16349  df-base 16351  df-sets 16352  df-ress 16353  df-plusg 16440  df-0g 16577  df-mre 16727  df-mrc 16728  df-acs 16730  df-mgm 17722  df-sgrp 17764  df-mnd 17775  df-submnd 17816  df-grp 17906  df-minusg 17907  df-subg 18072  df-cntz 18230  df-lsm 18534  df-cmn 18680  df-abl 18681
This theorem is referenced by:  pgpfac1lem2  18959  pgpfac1lem3  18961
  Copyright terms: Public domain W3C validator