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

Theorem sylow1 19500
Description: Sylow's first theorem. If 𝑃𝑁 is a prime power that divides the cardinality of 𝐺, then 𝐺 has a supgroup with size 𝑃𝑁. This is part of Metamath 100 proof #72. (Contributed by Mario Carneiro, 16-Jan-2015.)
Hypotheses
Ref Expression
sylow1.x 𝑋 = (Base‘𝐺)
sylow1.g (𝜑𝐺 ∈ Grp)
sylow1.f (𝜑𝑋 ∈ Fin)
sylow1.p (𝜑𝑃 ∈ ℙ)
sylow1.n (𝜑𝑁 ∈ ℕ0)
sylow1.d (𝜑 → (𝑃𝑁) ∥ (♯‘𝑋))
Assertion
Ref Expression
sylow1 (𝜑 → ∃𝑔 ∈ (SubGrp‘𝐺)(♯‘𝑔) = (𝑃𝑁))
Distinct variable groups:   𝑔,𝑁   𝑔,𝑋   𝑔,𝐺   𝑃,𝑔   𝜑,𝑔

Proof of Theorem sylow1
Dummy variables 𝑎 𝑏 𝑠 𝑢 𝑥 𝑦 𝑧 𝑘 𝑡 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sylow1.x . . 3 𝑋 = (Base‘𝐺)
2 sylow1.g . . 3 (𝜑𝐺 ∈ Grp)
3 sylow1.f . . 3 (𝜑𝑋 ∈ Fin)
4 sylow1.p . . 3 (𝜑𝑃 ∈ ℙ)
5 sylow1.n . . 3 (𝜑𝑁 ∈ ℕ0)
6 sylow1.d . . 3 (𝜑 → (𝑃𝑁) ∥ (♯‘𝑋))
7 eqid 2729 . . 3 (+g𝐺) = (+g𝐺)
8 eqid 2729 . . 3 {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} = {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)}
9 oveq2 7361 . . . . . . 7 (𝑠 = 𝑧 → (𝑢(+g𝐺)𝑠) = (𝑢(+g𝐺)𝑧))
109cbvmptv 5199 . . . . . 6 (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)) = (𝑧𝑣 ↦ (𝑢(+g𝐺)𝑧))
11 oveq1 7360 . . . . . . 7 (𝑢 = 𝑥 → (𝑢(+g𝐺)𝑧) = (𝑥(+g𝐺)𝑧))
1211mpteq2dv 5189 . . . . . 6 (𝑢 = 𝑥 → (𝑧𝑣 ↦ (𝑢(+g𝐺)𝑧)) = (𝑧𝑣 ↦ (𝑥(+g𝐺)𝑧)))
1310, 12eqtrid 2776 . . . . 5 (𝑢 = 𝑥 → (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)) = (𝑧𝑣 ↦ (𝑥(+g𝐺)𝑧)))
1413rneqd 5884 . . . 4 (𝑢 = 𝑥 → ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)) = ran (𝑧𝑣 ↦ (𝑥(+g𝐺)𝑧)))
15 mpteq1 5184 . . . . 5 (𝑣 = 𝑦 → (𝑧𝑣 ↦ (𝑥(+g𝐺)𝑧)) = (𝑧𝑦 ↦ (𝑥(+g𝐺)𝑧)))
1615rneqd 5884 . . . 4 (𝑣 = 𝑦 → ran (𝑧𝑣 ↦ (𝑥(+g𝐺)𝑧)) = ran (𝑧𝑦 ↦ (𝑥(+g𝐺)𝑧)))
1714, 16cbvmpov 7448 . . 3 (𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠))) = (𝑥𝑋, 𝑦 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑧𝑦 ↦ (𝑥(+g𝐺)𝑧)))
18 preq12 4689 . . . . . 6 ((𝑎 = 𝑥𝑏 = 𝑦) → {𝑎, 𝑏} = {𝑥, 𝑦})
1918sseq1d 3969 . . . . 5 ((𝑎 = 𝑥𝑏 = 𝑦) → ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↔ {𝑥, 𝑦} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)}))
20 oveq2 7361 . . . . . . 7 (𝑎 = 𝑥 → (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑥))
21 id 22 . . . . . . 7 (𝑏 = 𝑦𝑏 = 𝑦)
2220, 21eqeqan12d 2743 . . . . . 6 ((𝑎 = 𝑥𝑏 = 𝑦) → ((𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏 ↔ (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑥) = 𝑦))
2322rexbidv 3153 . . . . 5 ((𝑎 = 𝑥𝑏 = 𝑦) → (∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏 ↔ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑥) = 𝑦))
2419, 23anbi12d 632 . . . 4 ((𝑎 = 𝑥𝑏 = 𝑦) → (({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏) ↔ ({𝑥, 𝑦} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑥) = 𝑦)))
2524cbvopabv 5168 . . 3 {⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)} = {⟨𝑥, 𝑦⟩ ∣ ({𝑥, 𝑦} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑥) = 𝑦)}
261, 2, 3, 4, 5, 6, 7, 8, 17, 25sylow1lem3 19497 . 2 (𝜑 → ∃ ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))
272adantr 480 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → 𝐺 ∈ Grp)
283adantr 480 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → 𝑋 ∈ Fin)
294adantr 480 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → 𝑃 ∈ ℙ)
305adantr 480 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → 𝑁 ∈ ℕ0)
316adantr 480 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → (𝑃𝑁) ∥ (♯‘𝑋))
32 simprl 770 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)})
33 eqid 2729 . . 3 {𝑡𝑋 ∣ (𝑡(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))) = } = {𝑡𝑋 ∣ (𝑡(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))) = }
34 simprr 772 . . 3 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))
351, 27, 28, 29, 30, 31, 7, 8, 17, 25, 32, 33, 34sylow1lem5 19499 . 2 ((𝜑 ∧ ( ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ (𝑃 pCnt (♯‘[]{⟨𝑎, 𝑏⟩ ∣ ({𝑎, 𝑏} ⊆ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ∧ ∃𝑘𝑋 (𝑘(𝑢𝑋, 𝑣 ∈ {𝑠 ∈ 𝒫 𝑋 ∣ (♯‘𝑠) = (𝑃𝑁)} ↦ ran (𝑠𝑣 ↦ (𝑢(+g𝐺)𝑠)))𝑎) = 𝑏)})) ≤ ((𝑃 pCnt (♯‘𝑋)) − 𝑁))) → ∃𝑔 ∈ (SubGrp‘𝐺)(♯‘𝑔) = (𝑃𝑁))
3626, 35rexlimddv 3136 1 (𝜑 → ∃𝑔 ∈ (SubGrp‘𝐺)(♯‘𝑔) = (𝑃𝑁))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1540  wcel 2109  wrex 3053  {crab 3396  wss 3905  𝒫 cpw 4553  {cpr 4581   class class class wbr 5095  {copab 5157  cmpt 5176  ran crn 5624  cfv 6486  (class class class)co 7353  cmpo 7355  [cec 8630  Fincfn 8879  cle 11169  cmin 11365  0cn0 12402  cexp 13986  chash 14255  cdvds 16181  cprime 16600   pCnt cpc 16766  Basecbs 17138  +gcplusg 17179  Grpcgrp 18830  SubGrpcsubg 19017
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7675  ax-inf2 9556  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-pre-sup 11106
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3345  df-reu 3346  df-rab 3397  df-v 3440  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4862  df-int 4900  df-iun 4946  df-disj 5063  df-br 5096  df-opab 5158  df-mpt 5177  df-tr 5203  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-se 5577  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7310  df-ov 7356  df-oprab 7357  df-mpo 7358  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-oadd 8399  df-er 8632  df-ec 8634  df-qs 8638  df-map 8762  df-en 8880  df-dom 8881  df-sdom 8882  df-fin 8883  df-sup 9351  df-inf 9352  df-oi 9421  df-dju 9816  df-card 9854  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-n0 12403  df-xnn0 12476  df-z 12490  df-uz 12754  df-q 12868  df-rp 12912  df-fz 13429  df-fzo 13576  df-fl 13714  df-mod 13792  df-seq 13927  df-exp 13987  df-fac 14199  df-bc 14228  df-hash 14256  df-cj 15024  df-re 15025  df-im 15026  df-sqrt 15160  df-abs 15161  df-clim 15413  df-sum 15612  df-dvds 16182  df-gcd 16424  df-prm 16601  df-pc 16767  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17139  df-ress 17160  df-plusg 17192  df-0g 17363  df-mgm 18532  df-sgrp 18611  df-mnd 18627  df-grp 18833  df-minusg 18834  df-subg 19020  df-eqg 19022  df-ga 19187
This theorem is referenced by:  odcau  19501  slwhash  19521
  Copyright terms: Public domain W3C validator