Theorem subgacs 19134

Description: Subgroups are an algebraic closure system. (Contributed by Stefan O'Rear, 4-Apr-2015.) (Revised by Mario Carneiro, 22-Aug-2015.)

Hypothesis

Ref	Expression
subgacs.b	⊢ 𝐵 = (Base‘𝐺)

Assertion

Ref	Expression
subgacs	⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))

Proof of Theorem subgacs

Dummy variables 𝑠 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2740	. . . . . 6 ⊢ (invg‘𝐺) = (invg‘𝐺)
2	1	issubg3 19118	. . . . 5 ⊢ (𝐺 ∈ Grp → (𝑠 ∈ (SubGrp‘𝐺) ↔ (𝑠 ∈ (SubMnd‘𝐺) ∧ ∀𝑥 ∈ 𝑠 ((invg‘𝐺)‘𝑥) ∈ 𝑠)))
3		subgacs.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
4	3	submss 18775	. . . . . . . . 9 ⊢ (𝑠 ∈ (SubMnd‘𝐺) → 𝑠 ⊆ 𝐵)
5	4	adantl 482	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ 𝑠 ∈ (SubMnd‘𝐺)) → 𝑠 ⊆ 𝐵)
6		velpw 4541	. . . . . . . 8 ⊢ (𝑠 ∈ 𝒫 𝐵 ↔ 𝑠 ⊆ 𝐵)
7	5, 6	sylibr 235	. . . . . . 7 ⊢ ((𝐺 ∈ Grp ∧ 𝑠 ∈ (SubMnd‘𝐺)) → 𝑠 ∈ 𝒫 𝐵)
8		eleq2w 2824	. . . . . . . . 9 ⊢ (𝑦 = 𝑠 → (((invg‘𝐺)‘𝑥) ∈ 𝑦 ↔ ((invg‘𝐺)‘𝑥) ∈ 𝑠))
9	8	raleqbi1dv 3308	. . . . . . . 8 ⊢ (𝑦 = 𝑠 → (∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦 ↔ ∀𝑥 ∈ 𝑠 ((invg‘𝐺)‘𝑥) ∈ 𝑠))
10	9	elrab3 3637	. . . . . . 7 ⊢ (𝑠 ∈ 𝒫 𝐵 → (𝑠 ∈ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦} ↔ ∀𝑥 ∈ 𝑠 ((invg‘𝐺)‘𝑥) ∈ 𝑠))
11	7, 10	syl 17	. . . . . 6 ⊢ ((𝐺 ∈ Grp ∧ 𝑠 ∈ (SubMnd‘𝐺)) → (𝑠 ∈ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦} ↔ ∀𝑥 ∈ 𝑠 ((invg‘𝐺)‘𝑥) ∈ 𝑠))
12	11	pm5.32da 584	. . . . 5 ⊢ (𝐺 ∈ Grp → ((𝑠 ∈ (SubMnd‘𝐺) ∧ 𝑠 ∈ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦}) ↔ (𝑠 ∈ (SubMnd‘𝐺) ∧ ∀𝑥 ∈ 𝑠 ((invg‘𝐺)‘𝑥) ∈ 𝑠)))
13	2, 12	bitr4d 283	. . . 4 ⊢ (𝐺 ∈ Grp → (𝑠 ∈ (SubGrp‘𝐺) ↔ (𝑠 ∈ (SubMnd‘𝐺) ∧ 𝑠 ∈ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦})))
14		elin 3906	. . . 4 ⊢ (𝑠 ∈ ((SubMnd‘𝐺) ∩ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦}) ↔ (𝑠 ∈ (SubMnd‘𝐺) ∧ 𝑠 ∈ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦}))
15	13, 14	bitr4di 290	. . 3 ⊢ (𝐺 ∈ Grp → (𝑠 ∈ (SubGrp‘𝐺) ↔ 𝑠 ∈ ((SubMnd‘𝐺) ∩ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦})))
16	15	eqrdv 2738	. 2 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) = ((SubMnd‘𝐺) ∩ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦}))
17	3	fvexi 6848	. . . 4 ⊢ 𝐵 ∈ V
18		mreacs 17622	. . . 4 ⊢ (𝐵 ∈ V → (ACS‘𝐵) ∈ (Moore‘𝒫 𝐵))
19	17, 18	mp1i 13	. . 3 ⊢ (𝐺 ∈ Grp → (ACS‘𝐵) ∈ (Moore‘𝒫 𝐵))
20		grpmnd 18914	. . . 4 ⊢ (𝐺 ∈ Grp → 𝐺 ∈ Mnd)
21	3	submacs 18793	. . . 4 ⊢ (𝐺 ∈ Mnd → (SubMnd‘𝐺) ∈ (ACS‘𝐵))
22	20, 21	syl 17	. . 3 ⊢ (𝐺 ∈ Grp → (SubMnd‘𝐺) ∈ (ACS‘𝐵))
23	3, 1	grpinvcl 18961	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ 𝑥 ∈ 𝐵) → ((invg‘𝐺)‘𝑥) ∈ 𝐵)
24	23	ralrimiva 3132	. . . 4 ⊢ (𝐺 ∈ Grp → ∀𝑥 ∈ 𝐵 ((invg‘𝐺)‘𝑥) ∈ 𝐵)
25		acsfn1 17625	. . . 4 ⊢ ((𝐵 ∈ V ∧ ∀𝑥 ∈ 𝐵 ((invg‘𝐺)‘𝑥) ∈ 𝐵) → {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦} ∈ (ACS‘𝐵))
26	17, 24, 25	sylancr 593	. . 3 ⊢ (𝐺 ∈ Grp → {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦} ∈ (ACS‘𝐵))
27		mreincl 17559	. . 3 ⊢ (((ACS‘𝐵) ∈ (Moore‘𝒫 𝐵) ∧ (SubMnd‘𝐺) ∈ (ACS‘𝐵) ∧ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦} ∈ (ACS‘𝐵)) → ((SubMnd‘𝐺) ∩ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦}) ∈ (ACS‘𝐵))
28	19, 22, 26, 27	syl3anc 1379	. 2 ⊢ (𝐺 ∈ Grp → ((SubMnd‘𝐺) ∩ {𝑦 ∈ 𝒫 𝐵 ∣ ∀𝑥 ∈ 𝑦 ((invg‘𝐺)‘𝑥) ∈ 𝑦}) ∈ (ACS‘𝐵))
29	16, 28	eqeltrd 2840	1 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) ∈ (ACS‘𝐵))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119  ∀wral 3054  {crab 3392  Vcvv 3432   ∩ cin 3889   ⊆ wss 3890  𝒫 cpw 4536  ‘cfv 6492  Basecbs 17177  Moorecmre 17542  ACScacs 17545  Mndcmnd 18700  SubMndcsubmnd 18748  Grpcgrp 18907  inv_gcminusg 18908  SubGrpcsubg 19094

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-iin 4931  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-om 7814  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-2o 8403  df-er 8640  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-nn 12173  df-2 12242  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17178  df-ress 17199  df-plusg 17231  df-0g 17402  df-mre 17546  df-mrc 17547  df-acs 17549  df-mgm 18606  df-sgrp 18685  df-mnd 18701  df-submnd 18750  df-grp 18910  df-minusg 18911  df-subg 19097

This theorem is referenced by:  nsgacs  19135  cycsubg2  19183  cycsubg2cl  19184  odf1o1  19545  lsmmod  19648  dmdprdd  19974  dprdfeq0  19997  dprdspan  20002  dprdres  20003  dprdss  20004  dprdz  20005  subgdmdprd  20009  subgdprd  20010  dprdsn  20011  dprd2dlem1  20016  dprd2da  20017  dmdprdsplit2lem  20020  ablfac1b  20045  pgpfac1lem1  20049  pgpfac1lem2  20050  pgpfac1lem3a  20051  pgpfac1lem3  20052  pgpfac1lem4  20053  pgpfac1lem5  20054  pgpfaclem1  20056  pgpfaclem2  20057  subrgacs  20779  lssacs  20964  proot1mul  43646  proot1hash  43647