Theorem ismndd 18578

Description: Deduce a monoid from its properties. (Contributed by Mario Carneiro, 6-Jan-2015.)

Hypotheses

Ref	Expression
ismndd.b	⊢ (𝜑 → 𝐵 = (Base‘𝐺))
ismndd.p	⊢ (𝜑 → + = (+g‘𝐺))
ismndd.c	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 + 𝑦) ∈ 𝐵)
ismndd.a	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵)) → ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
ismndd.z	⊢ (𝜑 → 0 ∈ 𝐵)
ismndd.i	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 + 𝑥) = 𝑥)
ismndd.j	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑥 + 0 ) = 𝑥)

Assertion

Ref	Expression
ismndd	⊢ (𝜑 → 𝐺 ∈ Mnd)

Distinct variable groups:   𝑥,𝑦,𝑧,𝐵   𝑥,𝐺,𝑦,𝑧   𝜑,𝑥,𝑦,𝑧   𝑥, 0

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

Proof of Theorem ismndd

Dummy variable 𝑢 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ismndd.c	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥 + 𝑦) ∈ 𝐵)
2	1	3expb 1120	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥 + 𝑦) ∈ 𝐵)
3		simpll 765	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝜑)
4		simplrl 775	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝑥 ∈ 𝐵)
5		simplrr 776	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝑦 ∈ 𝐵)
6		simpr 485	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ 𝐵)
7		ismndd.a	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵)) → ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
8	3, 4, 5, 6, 7	syl13anc 1372	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
9	8	ralrimiva 3143	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
10	2, 9	jca 512	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))))
11	10	ralrimivva 3197	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))))
12		ismndd.b	. . . 4 ⊢ (𝜑 → 𝐵 = (Base‘𝐺))
13		ismndd.p	. . . . . . . 8 ⊢ (𝜑 → + = (+g‘𝐺))
14	13	oveqd 7374	. . . . . . 7 ⊢ (𝜑 → (𝑥 + 𝑦) = (𝑥(+g‘𝐺)𝑦))
15	14, 12	eleq12d 2832	. . . . . 6 ⊢ (𝜑 → ((𝑥 + 𝑦) ∈ 𝐵 ↔ (𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺)))
16		eqidd 2737	. . . . . . . . 9 ⊢ (𝜑 → 𝑧 = 𝑧)
17	13, 14, 16	oveq123d 7378	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 + 𝑦) + 𝑧) = ((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧))
18		eqidd 2737	. . . . . . . . 9 ⊢ (𝜑 → 𝑥 = 𝑥)
19	13	oveqd 7374	. . . . . . . . 9 ⊢ (𝜑 → (𝑦 + 𝑧) = (𝑦(+g‘𝐺)𝑧))
20	13, 18, 19	oveq123d 7378	. . . . . . . 8 ⊢ (𝜑 → (𝑥 + (𝑦 + 𝑧)) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))
21	17, 20	eqeq12d 2752	. . . . . . 7 ⊢ (𝜑 → (((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)) ↔ ((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧))))
22	12, 21	raleqbidv 3319	. . . . . 6 ⊢ (𝜑 → (∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)) ↔ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧))))
23	15, 22	anbi12d 631	. . . . 5 ⊢ (𝜑 → (((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))) ↔ ((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))))
24	12, 23	raleqbidv 3319	. . . 4 ⊢ (𝜑 → (∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))) ↔ ∀𝑦 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))))
25	12, 24	raleqbidv 3319	. . 3 ⊢ (𝜑 → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))) ↔ ∀𝑥 ∈ (Base‘𝐺)∀𝑦 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))))
26	11, 25	mpbid 231	. 2 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐺)∀𝑦 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧))))
27		ismndd.z	. . . 4 ⊢ (𝜑 → 0 ∈ 𝐵)
28	27, 12	eleqtrd 2840	. . 3 ⊢ (𝜑 → 0 ∈ (Base‘𝐺))
29	12	eleq2d 2823	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↔ 𝑥 ∈ (Base‘𝐺)))
30	29	biimpar 478	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐺)) → 𝑥 ∈ 𝐵)
31	13	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → + = (+g‘𝐺))
32	31	oveqd 7374	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 + 𝑥) = ( 0 (+g‘𝐺)𝑥))
33		ismndd.i	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 + 𝑥) = 𝑥)
34	32, 33	eqtr3d 2778	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 (+g‘𝐺)𝑥) = 𝑥)
35	31	oveqd 7374	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑥 + 0 ) = (𝑥(+g‘𝐺) 0 ))
36		ismndd.j	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑥 + 0 ) = 𝑥)
37	35, 36	eqtr3d 2778	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑥(+g‘𝐺) 0 ) = 𝑥)
38	34, 37	jca 512	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥))
39	30, 38	syldan 591	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐺)) → (( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥))
40	39	ralrimiva 3143	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐺)(( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥))
41		oveq1 7364	. . . . . 6 ⊢ (𝑢 = 0 → (𝑢(+g‘𝐺)𝑥) = ( 0 (+g‘𝐺)𝑥))
42	41	eqeq1d 2738	. . . . 5 ⊢ (𝑢 = 0 → ((𝑢(+g‘𝐺)𝑥) = 𝑥 ↔ ( 0 (+g‘𝐺)𝑥) = 𝑥))
43	42	ovanraleqv 7381	. . . 4 ⊢ (𝑢 = 0 → (∀𝑥 ∈ (Base‘𝐺)((𝑢(+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺)𝑢) = 𝑥) ↔ ∀𝑥 ∈ (Base‘𝐺)(( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥)))
44	43	rspcev 3581	. . 3 ⊢ (( 0 ∈ (Base‘𝐺) ∧ ∀𝑥 ∈ (Base‘𝐺)(( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥)) → ∃𝑢 ∈ (Base‘𝐺)∀𝑥 ∈ (Base‘𝐺)((𝑢(+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺)𝑢) = 𝑥))
45	28, 40, 44	syl2anc 584	. 2 ⊢ (𝜑 → ∃𝑢 ∈ (Base‘𝐺)∀𝑥 ∈ (Base‘𝐺)((𝑢(+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺)𝑢) = 𝑥))
46		eqid 2736	. . 3 ⊢ (Base‘𝐺) = (Base‘𝐺)
47		eqid 2736	. . 3 ⊢ (+g‘𝐺) = (+g‘𝐺)
48	46, 47	ismnd 18559	. 2 ⊢ (𝐺 ∈ Mnd ↔ (∀𝑥 ∈ (Base‘𝐺)∀𝑦 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧))) ∧ ∃𝑢 ∈ (Base‘𝐺)∀𝑥 ∈ (Base‘𝐺)((𝑢(+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺)𝑢) = 𝑥)))
49	26, 45, 48	sylanbrc 583	1 ⊢ (𝜑 → 𝐺 ∈ Mnd)

Syntax hints:   → wi 4   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  ∀wral 3064  ∃wrex 3073  ‘cfv 6496  (class class class)co 7357  Basecbs 17083  +_gcplusg 17133  Mndcmnd 18556

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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-nul 5263  ax-pr 5384

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-ne 2944  df-ral 3065  df-rex 3074  df-rab 3408  df-v 3447  df-sbc 3740  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4283  df-if 4487  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-br 5106  df-iota 6448  df-fv 6504  df-ov 7360  df-mgm 18497  df-sgrp 18546  df-mnd 18557

This theorem is referenced by:  issubmnd  18583  prdsmndd  18589  imasmnd2  18593  frmdmnd  18669  isgrpde  18771  oppgmnd  19135  isringd  20009  iscrngd  20010  xrsmcmn  20820  xrs1mnd  20835  idlsrgmnd  32256  bj-endmnd  35789  endmndlem  47025