Theorem issubm 18742

Description: Expand definition of a submonoid. (Contributed by Mario Carneiro, 7-Mar-2015.)

Hypotheses

Ref	Expression
issubm.b	⊢ 𝐵 = (Base‘𝑀)
issubm.z	⊢ 0 = (0g‘𝑀)
issubm.p	⊢ + = (+g‘𝑀)

Assertion

Ref	Expression
issubm	⊢ (𝑀 ∈ Mnd → (𝑆 ∈ (SubMnd‘𝑀) ↔ (𝑆 ⊆ 𝐵 ∧ 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆)))

Distinct variable groups:   𝑥,𝑀,𝑦   𝑥,𝑆,𝑦

Allowed substitution hints:   𝐵(𝑥,𝑦)   + (𝑥,𝑦)   0 (𝑥,𝑦)

Proof of Theorem issubm

Dummy variables 𝑚 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6844	. . . . . 6 ⊢ (𝑚 = 𝑀 → (Base‘𝑚) = (Base‘𝑀))
2	1	pweqd 4573	. . . . 5 ⊢ (𝑚 = 𝑀 → 𝒫 (Base‘𝑚) = 𝒫 (Base‘𝑀))
3		fveq2 6844	. . . . . . 7 ⊢ (𝑚 = 𝑀 → (0g‘𝑚) = (0g‘𝑀))
4	3	eleq1d 2822	. . . . . 6 ⊢ (𝑚 = 𝑀 → ((0g‘𝑚) ∈ 𝑡 ↔ (0g‘𝑀) ∈ 𝑡))
5		fveq2 6844	. . . . . . . . 9 ⊢ (𝑚 = 𝑀 → (+g‘𝑚) = (+g‘𝑀))
6	5	oveqd 7387	. . . . . . . 8 ⊢ (𝑚 = 𝑀 → (𝑥(+g‘𝑚)𝑦) = (𝑥(+g‘𝑀)𝑦))
7	6	eleq1d 2822	. . . . . . 7 ⊢ (𝑚 = 𝑀 → ((𝑥(+g‘𝑚)𝑦) ∈ 𝑡 ↔ (𝑥(+g‘𝑀)𝑦) ∈ 𝑡))
8	7	2ralbidv 3202	. . . . . 6 ⊢ (𝑚 = 𝑀 → (∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑚)𝑦) ∈ 𝑡 ↔ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡))
9	4, 8	anbi12d 633	. . . . 5 ⊢ (𝑚 = 𝑀 → (((0g‘𝑚) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑚)𝑦) ∈ 𝑡) ↔ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)))
10	2, 9	rabeqbidv 3419	. . . 4 ⊢ (𝑚 = 𝑀 → {𝑡 ∈ 𝒫 (Base‘𝑚) ∣ ((0g‘𝑚) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑚)𝑦) ∈ 𝑡)} = {𝑡 ∈ 𝒫 (Base‘𝑀) ∣ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)})
11		df-submnd 18723	. . . 4 ⊢ SubMnd = (𝑚 ∈ Mnd ↦ {𝑡 ∈ 𝒫 (Base‘𝑚) ∣ ((0g‘𝑚) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑚)𝑦) ∈ 𝑡)})
12		fvex 6857	. . . . . 6 ⊢ (Base‘𝑀) ∈ V
13	12	pwex 5329	. . . . 5 ⊢ 𝒫 (Base‘𝑀) ∈ V
14	13	rabex 5288	. . . 4 ⊢ {𝑡 ∈ 𝒫 (Base‘𝑀) ∣ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)} ∈ V
15	10, 11, 14	fvmpt 6951	. . 3 ⊢ (𝑀 ∈ Mnd → (SubMnd‘𝑀) = {𝑡 ∈ 𝒫 (Base‘𝑀) ∣ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)})
16	15	eleq2d 2823	. 2 ⊢ (𝑀 ∈ Mnd → (𝑆 ∈ (SubMnd‘𝑀) ↔ 𝑆 ∈ {𝑡 ∈ 𝒫 (Base‘𝑀) ∣ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)}))
17		eleq2 2826	. . . . 5 ⊢ (𝑡 = 𝑆 → ((0g‘𝑀) ∈ 𝑡 ↔ (0g‘𝑀) ∈ 𝑆))
18		eleq2 2826	. . . . . . 7 ⊢ (𝑡 = 𝑆 → ((𝑥(+g‘𝑀)𝑦) ∈ 𝑡 ↔ (𝑥(+g‘𝑀)𝑦) ∈ 𝑆))
19	18	raleqbi1dv 3310	. . . . . 6 ⊢ (𝑡 = 𝑆 → (∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡 ↔ ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆))
20	19	raleqbi1dv 3310	. . . . 5 ⊢ (𝑡 = 𝑆 → (∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡 ↔ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆))
21	17, 20	anbi12d 633	. . . 4 ⊢ (𝑡 = 𝑆 → (((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡) ↔ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)))
22	21	elrab 3648	. . 3 ⊢ (𝑆 ∈ {𝑡 ∈ 𝒫 (Base‘𝑀) ∣ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)} ↔ (𝑆 ∈ 𝒫 (Base‘𝑀) ∧ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)))
23		issubm.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝑀)
24	23	sseq2i 3965	. . . . 5 ⊢ (𝑆 ⊆ 𝐵 ↔ 𝑆 ⊆ (Base‘𝑀))
25		issubm.z	. . . . . . 7 ⊢ 0 = (0g‘𝑀)
26	25	eleq1i 2828	. . . . . 6 ⊢ ( 0 ∈ 𝑆 ↔ (0g‘𝑀) ∈ 𝑆)
27		issubm.p	. . . . . . . . 9 ⊢ + = (+g‘𝑀)
28	27	oveqi 7383	. . . . . . . 8 ⊢ (𝑥 + 𝑦) = (𝑥(+g‘𝑀)𝑦)
29	28	eleq1i 2828	. . . . . . 7 ⊢ ((𝑥 + 𝑦) ∈ 𝑆 ↔ (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)
30	29	2ralbii 3113	. . . . . 6 ⊢ (∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆 ↔ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)
31	26, 30	anbi12i 629	. . . . 5 ⊢ (( 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆) ↔ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆))
32	24, 31	anbi12i 629	. . . 4 ⊢ ((𝑆 ⊆ 𝐵 ∧ ( 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆)) ↔ (𝑆 ⊆ (Base‘𝑀) ∧ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)))
33		3anass 1095	. . . 4 ⊢ ((𝑆 ⊆ 𝐵 ∧ 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆) ↔ (𝑆 ⊆ 𝐵 ∧ ( 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆)))
34	12	elpw2 5283	. . . . 5 ⊢ (𝑆 ∈ 𝒫 (Base‘𝑀) ↔ 𝑆 ⊆ (Base‘𝑀))
35	34	anbi1i 625	. . . 4 ⊢ ((𝑆 ∈ 𝒫 (Base‘𝑀) ∧ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)) ↔ (𝑆 ⊆ (Base‘𝑀) ∧ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)))
36	32, 33, 35	3bitr4ri 304	. . 3 ⊢ ((𝑆 ∈ 𝒫 (Base‘𝑀) ∧ ((0g‘𝑀) ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥(+g‘𝑀)𝑦) ∈ 𝑆)) ↔ (𝑆 ⊆ 𝐵 ∧ 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆))
37	22, 36	bitri 275	. 2 ⊢ (𝑆 ∈ {𝑡 ∈ 𝒫 (Base‘𝑀) ∣ ((0g‘𝑀) ∈ 𝑡 ∧ ∀𝑥 ∈ 𝑡 ∀𝑦 ∈ 𝑡 (𝑥(+g‘𝑀)𝑦) ∈ 𝑡)} ↔ (𝑆 ⊆ 𝐵 ∧ 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆))
38	16, 37	bitrdi 287	1 ⊢ (𝑀 ∈ Mnd → (𝑆 ∈ (SubMnd‘𝑀) ↔ (𝑆 ⊆ 𝐵 ∧ 0 ∈ 𝑆 ∧ ∀𝑥 ∈ 𝑆 ∀𝑦 ∈ 𝑆 (𝑥 + 𝑦) ∈ 𝑆)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∀wral 3052  {crab 3401   ⊆ wss 3903  𝒫 cpw 4556  ‘cfv 6502  (class class class)co 7370  Basecbs 17150  +_gcplusg 17191  0_gc0g 17373  Mndcmnd 18673  SubMndcsubmnd 18721

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3402  df-v 3444  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5529  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-iota 6458  df-fun 6504  df-fv 6510  df-ov 7373  df-submnd 18723

This theorem is referenced by:  issubm2  18743  issubmd  18745  mndissubm  18746  submcl  18751  0subm  18756  insubm  18757  mhmima  18764  mhmeql  18765  submacs  18766  gsumwspan  18785  frmdsssubm  18800  sursubmefmnd  18835  injsubmefmnd  18836  issubg3  19091  cycsubm  19148  cntzsubm  19284  oppgsubm  19308  lsmsubm  19599  issubrg3  20550  isdomn3  20665  cnsubmlem  21386  nn0srg  21409  rge0srg  21410  xrge0subm  21415  efsubm  26533  fxpsubm  33272  rrgsubm  33384  1arithufdlem4  33646  iistmd  34086  mon1psubm  43585