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

Theorem pgpfac1lem1 19764
Description: Lemma for pgpfac1 19770. (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 481 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ⊆ 𝑈)
3 pgpfac1.g . . . . . 6 (𝜑𝐺 ∈ Abel)
4 ablgrp 19478 . . . . . 6 (𝐺 ∈ Abel → 𝐺 ∈ Grp)
5 pgpfac1.b . . . . . . 7 𝐵 = (Base‘𝐺)
65subgacs 18877 . . . . . 6 (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))
7 acsmre 17450 . . . . . 6 ((SubGrp‘𝐺) ∈ (ACS‘𝐵) → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
83, 4, 6, 74syl 19 . . . . 5 (𝜑 → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
98adantr 481 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (SubGrp‘𝐺) ∈ (Moore‘𝐵))
10 eldifi 4072 . . . . . 6 (𝐶 ∈ (𝑈 ∖ (𝑆 𝑊)) → 𝐶𝑈)
1110adantl 482 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶𝑈)
1211snssd 4755 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → {𝐶} ⊆ 𝑈)
13 pgpfac1.u . . . . 5 (𝜑𝑈 ∈ (SubGrp‘𝐺))
1413adantr 481 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝑈 ∈ (SubGrp‘𝐺))
15 pgpfac1.k . . . . 5 𝐾 = (mrCls‘(SubGrp‘𝐺))
1615mrcsscl 17418 . . . 4 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ {𝐶} ⊆ 𝑈𝑈 ∈ (SubGrp‘𝐺)) → (𝐾‘{𝐶}) ⊆ 𝑈)
179, 12, 14, 16syl3anc 1370 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐾‘{𝐶}) ⊆ 𝑈)
18 pgpfac1.s . . . . . . 7 𝑆 = (𝐾‘{𝐴})
195subgss 18844 . . . . . . . . . 10 (𝑈 ∈ (SubGrp‘𝐺) → 𝑈𝐵)
2013, 19syl 17 . . . . . . . . 9 (𝜑𝑈𝐵)
21 pgpfac1.au . . . . . . . . 9 (𝜑𝐴𝑈)
2220, 21sseldd 3932 . . . . . . . 8 (𝜑𝐴𝐵)
2315mrcsncl 17410 . . . . . . . 8 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐴𝐵) → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
248, 22, 23syl2anc 584 . . . . . . 7 (𝜑 → (𝐾‘{𝐴}) ∈ (SubGrp‘𝐺))
2518, 24eqeltrid 2841 . . . . . 6 (𝜑𝑆 ∈ (SubGrp‘𝐺))
26 pgpfac1.w . . . . . 6 (𝜑𝑊 ∈ (SubGrp‘𝐺))
27 pgpfac1.l . . . . . . 7 = (LSSum‘𝐺)
2827lsmsubg2 19547 . . . . . 6 ((𝐺 ∈ Abel ∧ 𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → (𝑆 𝑊) ∈ (SubGrp‘𝐺))
293, 25, 26, 28syl3anc 1370 . . . . 5 (𝜑 → (𝑆 𝑊) ∈ (SubGrp‘𝐺))
3029adantr 481 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ∈ (SubGrp‘𝐺))
3120sselda 3931 . . . . . 6 ((𝜑𝐶𝑈) → 𝐶𝐵)
3210, 31sylan2 593 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶𝐵)
3315mrcsncl 17410 . . . . 5 (((SubGrp‘𝐺) ∈ (Moore‘𝐵) ∧ 𝐶𝐵) → (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺))
349, 32, 33syl2anc 584 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺))
3527lsmlub 19357 . . . 4 (((𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺) ∧ 𝑈 ∈ (SubGrp‘𝐺)) → (((𝑆 𝑊) ⊆ 𝑈 ∧ (𝐾‘{𝐶}) ⊆ 𝑈) ↔ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈))
3630, 34, 14, 35syl3anc 1370 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (((𝑆 𝑊) ⊆ 𝑈 ∧ (𝐾‘{𝐶}) ⊆ 𝑈) ↔ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈))
372, 17, 36mpbi2and 709 . 2 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈)
3827lsmub1 19350 . . . . . 6 (((𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺)) → (𝑆 𝑊) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
3930, 34, 38syl2anc 584 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
4027lsmub2 19351 . . . . . . 7 (((𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺)) → (𝐾‘{𝐶}) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
4130, 34, 40syl2anc 584 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐾‘{𝐶}) ⊆ ((𝑆 𝑊) (𝐾‘{𝐶})))
4232snssd 4755 . . . . . . . 8 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → {𝐶} ⊆ 𝐵)
439, 15, 42mrcssidd 17423 . . . . . . 7 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → {𝐶} ⊆ (𝐾‘{𝐶}))
44 snssg 4730 . . . . . . . 8 (𝐶𝐵 → (𝐶 ∈ (𝐾‘{𝐶}) ↔ {𝐶} ⊆ (𝐾‘{𝐶})))
4532, 44syl 17 . . . . . . 7 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝐶 ∈ (𝐾‘{𝐶}) ↔ {𝐶} ⊆ (𝐾‘{𝐶})))
4643, 45mpbird 256 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶 ∈ (𝐾‘{𝐶}))
4741, 46sseldd 3932 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐶 ∈ ((𝑆 𝑊) (𝐾‘{𝐶})))
48 eldifn 4073 . . . . . 6 (𝐶 ∈ (𝑈 ∖ (𝑆 𝑊)) → ¬ 𝐶 ∈ (𝑆 𝑊))
4948adantl 482 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ¬ 𝐶 ∈ (𝑆 𝑊))
5039, 47, 49ssnelpssd 4058 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶})))
5127lsmub1 19350 . . . . . . . . 9 ((𝑆 ∈ (SubGrp‘𝐺) ∧ 𝑊 ∈ (SubGrp‘𝐺)) → 𝑆 ⊆ (𝑆 𝑊))
5225, 26, 51syl2anc 584 . . . . . . . 8 (𝜑𝑆 ⊆ (𝑆 𝑊))
5322snssd 4755 . . . . . . . . . . 11 (𝜑 → {𝐴} ⊆ 𝐵)
548, 15, 53mrcssidd 17423 . . . . . . . . . 10 (𝜑 → {𝐴} ⊆ (𝐾‘{𝐴}))
5554, 18sseqtrrdi 3982 . . . . . . . . 9 (𝜑 → {𝐴} ⊆ 𝑆)
56 snssg 4730 . . . . . . . . . 10 (𝐴𝑈 → (𝐴𝑆 ↔ {𝐴} ⊆ 𝑆))
5721, 56syl 17 . . . . . . . . 9 (𝜑 → (𝐴𝑆 ↔ {𝐴} ⊆ 𝑆))
5855, 57mpbird 256 . . . . . . . 8 (𝜑𝐴𝑆)
5952, 58sseldd 3932 . . . . . . 7 (𝜑𝐴 ∈ (𝑆 𝑊))
6059adantr 481 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐴 ∈ (𝑆 𝑊))
6139, 60sseldd 3932 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶})))
62 psseq1 4033 . . . . . . . 8 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (𝑤𝑈 ↔ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈))
63 eleq2 2825 . . . . . . . 8 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (𝐴𝑤𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶}))))
6462, 63anbi12d 631 . . . . . . 7 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → ((𝑤𝑈𝐴𝑤) ↔ (((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶})))))
65 psseq2 4034 . . . . . . . 8 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → ((𝑆 𝑊) ⊊ 𝑤 ↔ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
6665notbid 317 . . . . . . 7 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (¬ (𝑆 𝑊) ⊊ 𝑤 ↔ ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
6764, 66imbi12d 344 . . . . . 6 (𝑤 = ((𝑆 𝑊) (𝐾‘{𝐶})) → (((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤) ↔ ((((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶}))) → ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶})))))
68 pgpfac1.2 . . . . . . 7 (𝜑 → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤))
6968adantr 481 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ∀𝑤 ∈ (SubGrp‘𝐺)((𝑤𝑈𝐴𝑤) → ¬ (𝑆 𝑊) ⊊ 𝑤))
703adantr 481 . . . . . . 7 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → 𝐺 ∈ Abel)
7127lsmsubg2 19547 . . . . . . 7 ((𝐺 ∈ Abel ∧ (𝑆 𝑊) ∈ (SubGrp‘𝐺) ∧ (𝐾‘{𝐶}) ∈ (SubGrp‘𝐺)) → ((𝑆 𝑊) (𝐾‘{𝐶})) ∈ (SubGrp‘𝐺))
7270, 30, 34, 71syl3anc 1370 . . . . . 6 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) ∈ (SubGrp‘𝐺))
7367, 69, 72rspcdva 3571 . . . . 5 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈𝐴 ∈ ((𝑆 𝑊) (𝐾‘{𝐶}))) → ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
7461, 73mpan2d 691 . . . 4 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈 → ¬ (𝑆 𝑊) ⊊ ((𝑆 𝑊) (𝐾‘{𝐶}))))
7550, 74mt2d 136 . . 3 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ¬ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈)
76 npss 4056 . . 3 (¬ ((𝑆 𝑊) (𝐾‘{𝐶})) ⊊ 𝑈 ↔ (((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈 → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈))
7775, 76sylib 217 . 2 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → (((𝑆 𝑊) (𝐾‘{𝐶})) ⊆ 𝑈 → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈))
7837, 77mpd 15 1 ((𝜑𝐶 ∈ (𝑈 ∖ (𝑆 𝑊))) → ((𝑆 𝑊) (𝐾‘{𝐶})) = 𝑈)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396   = wceq 1540  wcel 2105  wral 3061  cdif 3894  cin 3896  wss 3897  wpss 3898  {csn 4572   class class class wbr 5089  cfv 6473  (class class class)co 7329  Fincfn 8796  Basecbs 17001  0gc0g 17239  Moorecmre 17380  mrClscmrc 17381  ACScacs 17383  Grpcgrp 18665  SubGrpcsubg 18837  odcod 19220  gExcgex 19221   pGrp cpgp 19222  LSSumclsm 19327  Abelcabl 19474
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5226  ax-sep 5240  ax-nul 5247  ax-pow 5305  ax-pr 5369  ax-un 7642  ax-cnex 11020  ax-resscn 11021  ax-1cn 11022  ax-icn 11023  ax-addcl 11024  ax-addrcl 11025  ax-mulcl 11026  ax-mulrcl 11027  ax-mulcom 11028  ax-addass 11029  ax-mulass 11030  ax-distr 11031  ax-i2m1 11032  ax-1ne0 11033  ax-1rid 11034  ax-rnegex 11035  ax-rrecex 11036  ax-cnre 11037  ax-pre-lttri 11038  ax-pre-lttrn 11039  ax-pre-ltadd 11040  ax-pre-mulgt0 11041
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3727  df-csb 3843  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3916  df-nul 4269  df-if 4473  df-pw 4548  df-sn 4573  df-pr 4575  df-op 4579  df-uni 4852  df-int 4894  df-iun 4940  df-iin 4941  df-br 5090  df-opab 5152  df-mpt 5173  df-tr 5207  df-id 5512  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5569  df-we 5571  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6232  df-ord 6299  df-on 6300  df-lim 6301  df-suc 6302  df-iota 6425  df-fun 6475  df-fn 6476  df-f 6477  df-f1 6478  df-fo 6479  df-f1o 6480  df-fv 6481  df-riota 7286  df-ov 7332  df-oprab 7333  df-mpo 7334  df-om 7773  df-1st 7891  df-2nd 7892  df-frecs 8159  df-wrecs 8190  df-recs 8264  df-rdg 8303  df-1o 8359  df-er 8561  df-en 8797  df-dom 8798  df-sdom 8799  df-fin 8800  df-pnf 11104  df-mnf 11105  df-xr 11106  df-ltxr 11107  df-le 11108  df-sub 11300  df-neg 11301  df-nn 12067  df-2 12129  df-sets 16954  df-slot 16972  df-ndx 16984  df-base 17002  df-ress 17031  df-plusg 17064  df-0g 17241  df-mre 17384  df-mrc 17385  df-acs 17387  df-mgm 18415  df-sgrp 18464  df-mnd 18475  df-submnd 18520  df-grp 18668  df-minusg 18669  df-subg 18840  df-cntz 19011  df-lsm 19329  df-cmn 19475  df-abl 19476
This theorem is referenced by:  pgpfac1lem2  19765  pgpfac1lem3  19767
  Copyright terms: Public domain W3C validator