Theorem ismndd 18403

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 1119	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥 + 𝑦) ∈ 𝐵)
3		simpll 764	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝜑)
4		simplrl 774	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝑥 ∈ 𝐵)
5		simplrr 775	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝑦 ∈ 𝐵)
6		simpr 485	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ 𝐵)
7		ismndd.a	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵 ∧ 𝑧 ∈ 𝐵)) → ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
8	3, 4, 5, 6, 7	syl13anc 1371	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ 𝑧 ∈ 𝐵) → ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
9	8	ralrimiva 3110	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)))
10	2, 9	jca 512	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))))
11	10	ralrimivva 3117	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))))
12		ismndd.b	. . . 4 ⊢ (𝜑 → 𝐵 = (Base‘𝐺))
13		ismndd.p	. . . . . . . 8 ⊢ (𝜑 → + = (+g‘𝐺))
14	13	oveqd 7286	. . . . . . 7 ⊢ (𝜑 → (𝑥 + 𝑦) = (𝑥(+g‘𝐺)𝑦))
15	14, 12	eleq12d 2835	. . . . . 6 ⊢ (𝜑 → ((𝑥 + 𝑦) ∈ 𝐵 ↔ (𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺)))
16		eqidd 2741	. . . . . . . . 9 ⊢ (𝜑 → 𝑧 = 𝑧)
17	13, 14, 16	oveq123d 7290	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 + 𝑦) + 𝑧) = ((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧))
18		eqidd 2741	. . . . . . . . 9 ⊢ (𝜑 → 𝑥 = 𝑥)
19	13	oveqd 7286	. . . . . . . . 9 ⊢ (𝜑 → (𝑦 + 𝑧) = (𝑦(+g‘𝐺)𝑧))
20	13, 18, 19	oveq123d 7290	. . . . . . . 8 ⊢ (𝜑 → (𝑥 + (𝑦 + 𝑧)) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))
21	17, 20	eqeq12d 2756	. . . . . . 7 ⊢ (𝜑 → (((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)) ↔ ((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧))))
22	12, 21	raleqbidv 3335	. . . . . 6 ⊢ (𝜑 → (∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧)) ↔ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧))))
23	15, 22	anbi12d 631	. . . . 5 ⊢ (𝜑 → (((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))) ↔ ((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))))
24	12, 23	raleqbidv 3335	. . . 4 ⊢ (𝜑 → (∀𝑦 ∈ 𝐵 ((𝑥 + 𝑦) ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ((𝑥 + 𝑦) + 𝑧) = (𝑥 + (𝑦 + 𝑧))) ↔ ∀𝑦 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦) ∈ (Base‘𝐺) ∧ ∀𝑧 ∈ (Base‘𝐺)((𝑥(+g‘𝐺)𝑦)(+g‘𝐺)𝑧) = (𝑥(+g‘𝐺)(𝑦(+g‘𝐺)𝑧)))))
25	12, 24	raleqbidv 3335	. . 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 2843	. . 3 ⊢ (𝜑 → 0 ∈ (Base‘𝐺))
29	12	eleq2d 2826	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↔ 𝑥 ∈ (Base‘𝐺)))
30	29	biimpar 478	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐺)) → 𝑥 ∈ 𝐵)
31	13	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → + = (+g‘𝐺))
32	31	oveqd 7286	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 + 𝑥) = ( 0 (+g‘𝐺)𝑥))
33		ismndd.i	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 + 𝑥) = 𝑥)
34	32, 33	eqtr3d 2782	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → ( 0 (+g‘𝐺)𝑥) = 𝑥)
35	31	oveqd 7286	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑥 + 0 ) = (𝑥(+g‘𝐺) 0 ))
36		ismndd.j	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝑥 + 0 ) = 𝑥)
37	35, 36	eqtr3d 2782	. . . . . 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 3110	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ (Base‘𝐺)(( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥))
41		oveq1 7276	. . . . . 6 ⊢ (𝑢 = 0 → (𝑢(+g‘𝐺)𝑥) = ( 0 (+g‘𝐺)𝑥))
42	41	eqeq1d 2742	. . . . 5 ⊢ (𝑢 = 0 → ((𝑢(+g‘𝐺)𝑥) = 𝑥 ↔ ( 0 (+g‘𝐺)𝑥) = 𝑥))
43	42	ovanraleqv 7293	. . . 4 ⊢ (𝑢 = 0 → (∀𝑥 ∈ (Base‘𝐺)((𝑢(+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺)𝑢) = 𝑥) ↔ ∀𝑥 ∈ (Base‘𝐺)(( 0 (+g‘𝐺)𝑥) = 𝑥 ∧ (𝑥(+g‘𝐺) 0 ) = 𝑥)))
44	43	rspcev 3561	. . 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 2740	. . 3 ⊢ (Base‘𝐺) = (Base‘𝐺)
47		eqid 2740	. . 3 ⊢ (+g‘𝐺) = (+g‘𝐺)
48	46, 47	ismnd 18384	. 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 1086   = wceq 1542   ∈ wcel 2110  ∀wral 3066  ∃wrex 3067  ‘cfv 6431  (class class class)co 7269  Basecbs 16908  +_gcplusg 16958  Mndcmnd 18381

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 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-sep 5227  ax-nul 5234  ax-pr 5356

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-ne 2946  df-ral 3071  df-rex 3072  df-rab 3075  df-v 3433  df-sbc 3721  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-br 5080  df-iota 6389  df-fv 6439  df-ov 7272  df-mgm 18322  df-sgrp 18371  df-mnd 18382

This theorem is referenced by:  issubmnd  18408  prdsmndd  18414  imasmnd2  18418  frmdmnd  18494  isgrpde  18596  oppgmnd  18957  isringd  19820  iscrngd  19821  xrsmcmn  20617  xrs1mnd  20632  idlsrgmnd  31653  bj-endmnd  35483  endmndlem  46263