Theorem issubg 19187

Description: The subgroup predicate. (Contributed by Mario Carneiro, 2-Dec-2014.)

Hypothesis

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

Assertion

Ref	Expression
issubg	⊢ (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝐺 ∈ Grp ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))

Proof of Theorem issubg

Dummy variables 𝑤 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-subg 19184	. . 3 ⊢ SubGrp = (𝑤 ∈ Grp ↦ {𝑠 ∈ 𝒫 (Base‘𝑤) ∣ (𝑤 ↾s 𝑠) ∈ Grp})
2	1	mptrcl 6999	. 2 ⊢ (𝑆 ∈ (SubGrp‘𝐺) → 𝐺 ∈ Grp)
3		simp1 1154	. 2 ⊢ ((𝐺 ∈ Grp ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp) → 𝐺 ∈ Grp)
4		fveq2 6881	. . . . . . . . . 10 ⊢ (𝑤 = 𝐺 → (Base‘𝑤) = (Base‘𝐺))
5		issubg.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐺)
6	4, 5	eqtr4di 2816	. . . . . . . . 9 ⊢ (𝑤 = 𝐺 → (Base‘𝑤) = 𝐵)
7	6	pweqd 4579	. . . . . . . 8 ⊢ (𝑤 = 𝐺 → 𝒫 (Base‘𝑤) = 𝒫 𝐵)
8		oveq1 7417	. . . . . . . . 9 ⊢ (𝑤 = 𝐺 → (𝑤 ↾s 𝑠) = (𝐺 ↾s 𝑠))
9	8	eleq1d 2848	. . . . . . . 8 ⊢ (𝑤 = 𝐺 → ((𝑤 ↾s 𝑠) ∈ Grp ↔ (𝐺 ↾s 𝑠) ∈ Grp))
10	7, 9	rabeqbidv 3434	. . . . . . 7 ⊢ (𝑤 = 𝐺 → {𝑠 ∈ 𝒫 (Base‘𝑤) ∣ (𝑤 ↾s 𝑠) ∈ Grp} = {𝑠 ∈ 𝒫 𝐵 ∣ (𝐺 ↾s 𝑠) ∈ Grp})
11	5	fvexi 6895	. . . . . . . . 9 ⊢ 𝐵 ∈ V
12	11	pwex 5351	. . . . . . . 8 ⊢ 𝒫 𝐵 ∈ V
13	12	rabex 5309	. . . . . . 7 ⊢ {𝑠 ∈ 𝒫 𝐵 ∣ (𝐺 ↾s 𝑠) ∈ Grp} ∈ V
14	10, 1, 13	fvmpt 6989	. . . . . 6 ⊢ (𝐺 ∈ Grp → (SubGrp‘𝐺) = {𝑠 ∈ 𝒫 𝐵 ∣ (𝐺 ↾s 𝑠) ∈ Grp})
15	14	eleq2d 2849	. . . . 5 ⊢ (𝐺 ∈ Grp → (𝑆 ∈ (SubGrp‘𝐺) ↔ 𝑆 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ (𝐺 ↾s 𝑠) ∈ Grp}))
16		oveq2 7418	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → (𝐺 ↾s 𝑠) = (𝐺 ↾s 𝑆))
17	16	eleq1d 2848	. . . . . . 7 ⊢ (𝑠 = 𝑆 → ((𝐺 ↾s 𝑠) ∈ Grp ↔ (𝐺 ↾s 𝑆) ∈ Grp))
18	17	elrab 3650	. . . . . 6 ⊢ (𝑆 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ (𝐺 ↾s 𝑠) ∈ Grp} ↔ (𝑆 ∈ 𝒫 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))
19	11	elpw2 5305	. . . . . . 7 ⊢ (𝑆 ∈ 𝒫 𝐵 ↔ 𝑆 ⊆ 𝐵)
20	19	anbi1i 635	. . . . . 6 ⊢ ((𝑆 ∈ 𝒫 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp) ↔ (𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))
21	18, 20	bitri 278	. . . . 5 ⊢ (𝑆 ∈ {𝑠 ∈ 𝒫 𝐵 ∣ (𝐺 ↾s 𝑠) ∈ Grp} ↔ (𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))
22	15, 21	bitrdi 290	. . . 4 ⊢ (𝐺 ∈ Grp → (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp)))
23		ibar 537	. . . 4 ⊢ (𝐺 ∈ Grp → ((𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp) ↔ (𝐺 ∈ Grp ∧ (𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))))
24	22, 23	bitrd 282	. . 3 ⊢ (𝐺 ∈ Grp → (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝐺 ∈ Grp ∧ (𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))))
25		3anass 1111	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp) ↔ (𝐺 ∈ Grp ∧ (𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp)))
26	24, 25	bitr4di 292	. 2 ⊢ (𝐺 ∈ Grp → (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝐺 ∈ Grp ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp)))
27	2, 3, 26	pm5.21nii 381	1 ⊢ (𝑆 ∈ (SubGrp‘𝐺) ↔ (𝐺 ∈ Grp ∧ 𝑆 ⊆ 𝐵 ∧ (𝐺 ↾s 𝑆) ∈ Grp))

Syntax hints:   ↔ wb 209   ∧ wa 400   ∧ w3a 1103   = wceq 1570   ∈ wcel 2143  {crab 3416   ⊆ wss 3905  𝒫 cpw 4562  ‘cfv 6536  (class class class)co 7410  Basecbs 17264   ↾_s cress 17285  Grpcgrp 18995  SubGrpcsubg 19181

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fv 6544  df-ov 7413  df-subg 19184

This theorem is referenced by:  subgss  19188  subgid  19189  subggrp  19190  subgrcl  19192  issubg2  19203  resgrpisgrp  19209  subsubg  19211  pgrpsubgsymgbi  19473  opprsubg  20430  subrngsubg  20651  subrgsubg  20676  subdrgint  20906  suborng  20979  cphsubrglem  25336  algextdeglem8  34114