Theorem ismnddef 18302

Description: The predicate "is a monoid", corresponding 1-to-1 to the definition. (Contributed by FL, 2-Nov-2009.) (Revised by AV, 1-Feb-2020.)

Hypotheses

Ref	Expression
ismnddef.b	⊢ 𝐵 = (Base‘𝐺)
ismnddef.p	⊢ + = (+g‘𝐺)

Assertion

Ref	Expression
ismnddef	⊢ (𝐺 ∈ Mnd ↔ (𝐺 ∈ Smgrp ∧ ∃𝑒 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))

Distinct variable groups:   𝐵,𝑎,𝑒   + ,𝑎,𝑒

Allowed substitution hints:   𝐺(𝑒,𝑎)

Proof of Theorem ismnddef

Dummy variables 𝑏 𝑔 𝑝 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvex 6769	. . 3 ⊢ (Base‘𝑔) ∈ V
2		fvex 6769	. . 3 ⊢ (+g‘𝑔) ∈ V
3		fveq2 6756	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = (Base‘𝐺))
4		ismnddef.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐺)
5	3, 4	eqtr4di 2797	. . . . . 6 ⊢ (𝑔 = 𝐺 → (Base‘𝑔) = 𝐵)
6	5	eqeq2d 2749	. . . . 5 ⊢ (𝑔 = 𝐺 → (𝑏 = (Base‘𝑔) ↔ 𝑏 = 𝐵))
7		fveq2 6756	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (+g‘𝑔) = (+g‘𝐺))
8		ismnddef.p	. . . . . . 7 ⊢ + = (+g‘𝐺)
9	7, 8	eqtr4di 2797	. . . . . 6 ⊢ (𝑔 = 𝐺 → (+g‘𝑔) = + )
10	9	eqeq2d 2749	. . . . 5 ⊢ (𝑔 = 𝐺 → (𝑝 = (+g‘𝑔) ↔ 𝑝 = + ))
11	6, 10	anbi12d 630	. . . 4 ⊢ (𝑔 = 𝐺 → ((𝑏 = (Base‘𝑔) ∧ 𝑝 = (+g‘𝑔)) ↔ (𝑏 = 𝐵 ∧ 𝑝 = + )))
12		simpl 482	. . . . 5 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → 𝑏 = 𝐵)
13		oveq 7261	. . . . . . . . 9 ⊢ (𝑝 = + → (𝑒𝑝𝑎) = (𝑒 + 𝑎))
14	13	eqeq1d 2740	. . . . . . . 8 ⊢ (𝑝 = + → ((𝑒𝑝𝑎) = 𝑎 ↔ (𝑒 + 𝑎) = 𝑎))
15		oveq 7261	. . . . . . . . 9 ⊢ (𝑝 = + → (𝑎𝑝𝑒) = (𝑎 + 𝑒))
16	15	eqeq1d 2740	. . . . . . . 8 ⊢ (𝑝 = + → ((𝑎𝑝𝑒) = 𝑎 ↔ (𝑎 + 𝑒) = 𝑎))
17	14, 16	anbi12d 630	. . . . . . 7 ⊢ (𝑝 = + → (((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎) ↔ ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))
18	17	adantl 481	. . . . . 6 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → (((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎) ↔ ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))
19	12, 18	raleqbidv 3327	. . . . 5 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → (∀𝑎 ∈ 𝑏 ((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎) ↔ ∀𝑎 ∈ 𝐵 ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))
20	12, 19	rexeqbidv 3328	. . . 4 ⊢ ((𝑏 = 𝐵 ∧ 𝑝 = + ) → (∃𝑒 ∈ 𝑏 ∀𝑎 ∈ 𝑏 ((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎) ↔ ∃𝑒 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))
21	11, 20	syl6bi 252	. . 3 ⊢ (𝑔 = 𝐺 → ((𝑏 = (Base‘𝑔) ∧ 𝑝 = (+g‘𝑔)) → (∃𝑒 ∈ 𝑏 ∀𝑎 ∈ 𝑏 ((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎) ↔ ∃𝑒 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎))))
22	1, 2, 21	sbc2iedv 3797	. 2 ⊢ (𝑔 = 𝐺 → ([(Base‘𝑔) / 𝑏][(+g‘𝑔) / 𝑝]∃𝑒 ∈ 𝑏 ∀𝑎 ∈ 𝑏 ((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎) ↔ ∃𝑒 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))
23		df-mnd 18301	. 2 ⊢ Mnd = {𝑔 ∈ Smgrp ∣ [(Base‘𝑔) / 𝑏][(+g‘𝑔) / 𝑝]∃𝑒 ∈ 𝑏 ∀𝑎 ∈ 𝑏 ((𝑒𝑝𝑎) = 𝑎 ∧ (𝑎𝑝𝑒) = 𝑎)}
24	22, 23	elrab2 3620	1 ⊢ (𝐺 ∈ Mnd ↔ (𝐺 ∈ Smgrp ∧ ∃𝑒 ∈ 𝐵 ∀𝑎 ∈ 𝐵 ((𝑒 + 𝑎) = 𝑎 ∧ (𝑎 + 𝑒) = 𝑎)))

Syntax hints:   ↔ wb 205   ∧ wa 395   = wceq 1539   ∈ wcel 2108  ∀wral 3063  ∃wrex 3064  [wsbc 3711  ‘cfv 6418  (class class class)co 7255  Basecbs 16840  +_gcplusg 16888  Smgrpcsgrp 18289  Mndcmnd 18300

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-nul 5225

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-sbc 3712  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-br 5071  df-iota 6376  df-fv 6426  df-ov 7258  df-mnd 18301

This theorem is referenced by:  ismnd  18303  isnmnd  18304  sgrpidmnd  18305  mndsgrp  18306  mnd1  18341  efmndmnd  18443  smndex1mnd  18464  isringrng  45327  2zrngamnd  45387