Theorem mndpropd 18391

Description: If two structures have the same base set, and the values of their group (addition) operations are equal for all pairs of elements of the base set, one is a monoid iff the other one is. (Contributed by Mario Carneiro, 6-Jan-2015.)

Hypotheses

Ref	Expression
mndpropd.1	⊢ (𝜑 → 𝐵 = (Base‘𝐾))
mndpropd.2	⊢ (𝜑 → 𝐵 = (Base‘𝐿))
mndpropd.3	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) = (𝑥(+g‘𝐿)𝑦))

Assertion

Ref	Expression
mndpropd	⊢ (𝜑 → (𝐾 ∈ Mnd ↔ 𝐿 ∈ Mnd))

Distinct variable groups:   𝑥,𝑦,𝐵   𝑥,𝐾,𝑦   𝜑,𝑥,𝑦   𝑥,𝐿,𝑦

Proof of Theorem mndpropd

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

Step	Hyp	Ref	Expression
1		simplr 765	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐾 ∈ Mnd)
2		simprl 767	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ 𝐵)
3		mndpropd.1	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝐾))
4	3	ad2antrr 722	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐵 = (Base‘𝐾))
5	2, 4	eleqtrd 2842	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ (Base‘𝐾))
6		simprr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝐵)
7	6, 4	eleqtrd 2842	. . . . . 6 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ (Base‘𝐾))
8		eqid 2739	. . . . . . 7 ⊢ (Base‘𝐾) = (Base‘𝐾)
9		eqid 2739	. . . . . . 7 ⊢ (+g‘𝐾) = (+g‘𝐾)
10	8, 9	mndcl 18374	. . . . . 6 ⊢ ((𝐾 ∈ Mnd ∧ 𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑥(+g‘𝐾)𝑦) ∈ (Base‘𝐾))
11	1, 5, 7, 10	syl3anc 1369	. . . . 5 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) ∈ (Base‘𝐾))
12	11, 4	eleqtrrd 2843	. . . 4 ⊢ (((𝜑 ∧ 𝐾 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) ∈ 𝐵)
13	12	ralrimivva 3116	. . 3 ⊢ ((𝜑 ∧ 𝐾 ∈ Mnd) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵)
14	13	ex 412	. 2 ⊢ (𝜑 → (𝐾 ∈ Mnd → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵))
15		simplr 765	. . . . . 6 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐿 ∈ Mnd)
16		simprl 767	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ 𝐵)
17		mndpropd.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝐿))
18	17	ad2antrr 722	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝐵 = (Base‘𝐿))
19	16, 18	eleqtrd 2842	. . . . . 6 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑥 ∈ (Base‘𝐿))
20		simprr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ 𝐵)
21	20, 18	eleqtrd 2842	. . . . . 6 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → 𝑦 ∈ (Base‘𝐿))
22		eqid 2739	. . . . . . 7 ⊢ (Base‘𝐿) = (Base‘𝐿)
23		eqid 2739	. . . . . . 7 ⊢ (+g‘𝐿) = (+g‘𝐿)
24	22, 23	mndcl 18374	. . . . . 6 ⊢ ((𝐿 ∈ Mnd ∧ 𝑥 ∈ (Base‘𝐿) ∧ 𝑦 ∈ (Base‘𝐿)) → (𝑥(+g‘𝐿)𝑦) ∈ (Base‘𝐿))
25	15, 19, 21, 24	syl3anc 1369	. . . . 5 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐿)𝑦) ∈ (Base‘𝐿))
26		mndpropd.3	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) = (𝑥(+g‘𝐿)𝑦))
27	26	adantlr 711	. . . . 5 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) = (𝑥(+g‘𝐿)𝑦))
28	25, 27, 18	3eltr4d 2855	. . . 4 ⊢ (((𝜑 ∧ 𝐿 ∈ Mnd) ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) ∈ 𝐵)
29	28	ralrimivva 3116	. . 3 ⊢ ((𝜑 ∧ 𝐿 ∈ Mnd) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵)
30	29	ex 412	. 2 ⊢ (𝜑 → (𝐿 ∈ Mnd → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵))
31	26	oveqrspc2v 7295	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑣) = (𝑢(+g‘𝐿)𝑣))
32	31	adantlr 711	. . . . . . . . 9 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑣) = (𝑢(+g‘𝐿)𝑣))
33	32	eleq1d 2824	. . . . . . . 8 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ↔ (𝑢(+g‘𝐿)𝑣) ∈ 𝐵))
34		simplll 771	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → 𝜑)
35		simplrl 773	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → 𝑢 ∈ 𝐵)
36		simplrr 774	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → 𝑣 ∈ 𝐵)
37		simpllr 772	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵)
38		ovrspc2v 7294	. . . . . . . . . . . . 13 ⊢ (((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (𝑢(+g‘𝐾)𝑣) ∈ 𝐵)
39	35, 36, 37, 38	syl21anc 834	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑢(+g‘𝐾)𝑣) ∈ 𝐵)
40		simpr 484	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → 𝑤 ∈ 𝐵)
41	26	oveqrspc2v 7295	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = ((𝑢(+g‘𝐾)𝑣)(+g‘𝐿)𝑤))
42	34, 39, 40, 41	syl12anc 833	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = ((𝑢(+g‘𝐾)𝑣)(+g‘𝐿)𝑤))
43	34, 35, 36, 31	syl12anc 833	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑢(+g‘𝐾)𝑣) = (𝑢(+g‘𝐿)𝑣))
44	43	oveq1d 7283	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → ((𝑢(+g‘𝐾)𝑣)(+g‘𝐿)𝑤) = ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤))
45	42, 44	eqtrd 2779	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤))
46		ovrspc2v 7294	. . . . . . . . . . . . 13 ⊢ (((𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (𝑣(+g‘𝐾)𝑤) ∈ 𝐵)
47	36, 40, 37, 46	syl21anc 834	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑣(+g‘𝐾)𝑤) ∈ 𝐵)
48	26	oveqrspc2v 7295	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ (𝑣(+g‘𝐾)𝑤) ∈ 𝐵)) → (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐾)𝑤)))
49	34, 35, 47, 48	syl12anc 833	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐾)𝑤)))
50	26	oveqrspc2v 7295	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑣(+g‘𝐾)𝑤) = (𝑣(+g‘𝐿)𝑤))
51	34, 36, 40, 50	syl12anc 833	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑣(+g‘𝐾)𝑤) = (𝑣(+g‘𝐿)𝑤))
52	51	oveq2d 7284	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑢(+g‘𝐿)(𝑣(+g‘𝐾)𝑤)) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))
53	49, 52	eqtrd 2779	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))
54	45, 53	eqeq12d 2755	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)) ↔ ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))))
55	54	ralbidva 3121	. . . . . . . 8 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)) ↔ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))))
56	33, 55	anbi12d 630	. . . . . . 7 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ↔ ((𝑢(+g‘𝐿)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))))
57	56	2ralbidva 3123	. . . . . 6 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ↔ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))))
58	3	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → 𝐵 = (Base‘𝐾))
59	58	eleq2d 2825	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ↔ (𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾)))
60	58	raleqdv 3346	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)) ↔ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))))
61	59, 60	anbi12d 630	. . . . . . . 8 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ↔ ((𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾) ∧ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)))))
62	58, 61	raleqbidv 3334	. . . . . . 7 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑣 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ↔ ∀𝑣 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾) ∧ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)))))
63	58, 62	raleqbidv 3334	. . . . . 6 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾) ∧ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤)))))
64	17	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → 𝐵 = (Base‘𝐿))
65	64	eleq2d 2825	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → ((𝑢(+g‘𝐿)𝑣) ∈ 𝐵 ↔ (𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿)))
66	64	raleqdv 3346	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)) ↔ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))))
67	65, 66	anbi12d 630	. . . . . . . 8 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (((𝑢(+g‘𝐿)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))) ↔ ((𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿) ∧ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))))
68	64, 67	raleqbidv 3334	. . . . . . 7 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑣 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))) ↔ ∀𝑣 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿) ∧ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))))
69	64, 68	raleqbidv 3334	. . . . . 6 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣) ∈ 𝐵 ∧ ∀𝑤 ∈ 𝐵 ((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿) ∧ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))))
70	57, 63, 69	3bitr3d 308	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾) ∧ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿) ∧ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤)))))
71		simplll 771	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝜑)
72		simplr 765	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝑠 ∈ 𝐵)
73		simpr 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
74	26	oveqrspc2v 7295	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑠 ∈ 𝐵 ∧ 𝑢 ∈ 𝐵)) → (𝑠(+g‘𝐾)𝑢) = (𝑠(+g‘𝐿)𝑢))
75	71, 72, 73, 74	syl12anc 833	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → (𝑠(+g‘𝐾)𝑢) = (𝑠(+g‘𝐿)𝑢))
76	75	eqeq1d 2741	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ((𝑠(+g‘𝐾)𝑢) = 𝑢 ↔ (𝑠(+g‘𝐿)𝑢) = 𝑢))
77	26	oveqrspc2v 7295	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑠 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑠) = (𝑢(+g‘𝐿)𝑠))
78	71, 73, 72, 77	syl12anc 833	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → (𝑢(+g‘𝐾)𝑠) = (𝑢(+g‘𝐿)𝑠))
79	78	eqeq1d 2741	. . . . . . . . 9 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → ((𝑢(+g‘𝐾)𝑠) = 𝑢 ↔ (𝑢(+g‘𝐿)𝑠) = 𝑢))
80	76, 79	anbi12d 630	. . . . . . . 8 ⊢ ((((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) ∧ 𝑢 ∈ 𝐵) → (((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢) ↔ ((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
81	80	ralbidva 3121	. . . . . . 7 ⊢ (((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) ∧ 𝑠 ∈ 𝐵) → (∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢) ↔ ∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
82	81	rexbidva 3226	. . . . . 6 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∃𝑠 ∈ 𝐵 ∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢) ↔ ∃𝑠 ∈ 𝐵 ∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
83	58	raleqdv 3346	. . . . . . 7 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢) ↔ ∀𝑢 ∈ (Base‘𝐾)((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢)))
84	58, 83	rexeqbidv 3335	. . . . . 6 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∃𝑠 ∈ 𝐵 ∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢) ↔ ∃𝑠 ∈ (Base‘𝐾)∀𝑢 ∈ (Base‘𝐾)((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢)))
85	64	raleqdv 3346	. . . . . . 7 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢) ↔ ∀𝑢 ∈ (Base‘𝐿)((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
86	64, 85	rexeqbidv 3335	. . . . . 6 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∃𝑠 ∈ 𝐵 ∀𝑢 ∈ 𝐵 ((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢) ↔ ∃𝑠 ∈ (Base‘𝐿)∀𝑢 ∈ (Base‘𝐿)((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
87	82, 84, 86	3bitr3d 308	. . . . 5 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (∃𝑠 ∈ (Base‘𝐾)∀𝑢 ∈ (Base‘𝐾)((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢) ↔ ∃𝑠 ∈ (Base‘𝐿)∀𝑢 ∈ (Base‘𝐿)((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
88	70, 87	anbi12d 630	. . . 4 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → ((∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾) ∧ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ∧ ∃𝑠 ∈ (Base‘𝐾)∀𝑢 ∈ (Base‘𝐾)((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢)) ↔ (∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿) ∧ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))) ∧ ∃𝑠 ∈ (Base‘𝐿)∀𝑢 ∈ (Base‘𝐿)((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢))))
89	8, 9	ismnd 18369	. . . 4 ⊢ (𝐾 ∈ Mnd ↔ (∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾) ∧ ∀𝑤 ∈ (Base‘𝐾)((𝑢(+g‘𝐾)𝑣)(+g‘𝐾)𝑤) = (𝑢(+g‘𝐾)(𝑣(+g‘𝐾)𝑤))) ∧ ∃𝑠 ∈ (Base‘𝐾)∀𝑢 ∈ (Base‘𝐾)((𝑠(+g‘𝐾)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐾)𝑠) = 𝑢)))
90	22, 23	ismnd 18369	. . . 4 ⊢ (𝐿 ∈ Mnd ↔ (∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣) ∈ (Base‘𝐿) ∧ ∀𝑤 ∈ (Base‘𝐿)((𝑢(+g‘𝐿)𝑣)(+g‘𝐿)𝑤) = (𝑢(+g‘𝐿)(𝑣(+g‘𝐿)𝑤))) ∧ ∃𝑠 ∈ (Base‘𝐿)∀𝑢 ∈ (Base‘𝐿)((𝑠(+g‘𝐿)𝑢) = 𝑢 ∧ (𝑢(+g‘𝐿)𝑠) = 𝑢)))
91	88, 89, 90	3bitr4g 313	. . 3 ⊢ ((𝜑 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵) → (𝐾 ∈ Mnd ↔ 𝐿 ∈ Mnd))
92	91	ex 412	. 2 ⊢ (𝜑 → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥(+g‘𝐾)𝑦) ∈ 𝐵 → (𝐾 ∈ Mnd ↔ 𝐿 ∈ Mnd)))
93	14, 30, 92	pm5.21ndd 380	1 ⊢ (𝜑 → (𝐾 ∈ Mnd ↔ 𝐿 ∈ Mnd))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   = wceq 1541   ∈ wcel 2109  ∀wral 3065  ∃wrex 3066  ‘cfv 6430  (class class class)co 7268  Basecbs 16893  +_gcplusg 16943  Mndcmnd 18366

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1801  ax-4 1815  ax-5 1916  ax-6 1974  ax-7 2014  ax-8 2111  ax-9 2119  ax-10 2140  ax-11 2157  ax-12 2174  ax-ext 2710  ax-sep 5226  ax-nul 5233  ax-pr 5355

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1544  df-fal 1554  df-ex 1786  df-nf 1790  df-sb 2071  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-ne 2945  df-ral 3070  df-rex 3071  df-rab 3074  df-v 3432  df-sbc 3720  df-dif 3894  df-un 3896  df-in 3898  df-ss 3908  df-nul 4262  df-if 4465  df-sn 4567  df-pr 4569  df-op 4573  df-uni 4845  df-br 5079  df-iota 6388  df-fv 6438  df-ov 7271  df-mgm 18307  df-sgrp 18356  df-mnd 18367

This theorem is referenced by:  mndprop  18392  mhmpropd  18417  grppropd  18575  oppgmndb  18943  cmnpropd  19377  ringpropd  19802  prdsringd  19832