Theorem ringpropd 20549

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

Hypotheses

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

Assertion

Ref	Expression
ringpropd	⊢ (𝜑 → (𝐾 ∈ Ring ↔ 𝐿 ∈ Ring))

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

Proof of Theorem ringpropd

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

Step	Hyp	Ref	Expression
1		simpll 779	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝜑)
2		simprll 791	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑢 ∈ 𝐵)
3		simplrl 789	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝐾 ∈ Grp)
4		simprlr 792	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑣 ∈ 𝐵)
5		ringpropd.1	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵 = (Base‘𝐾))
6	5	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝐵 = (Base‘𝐾))
7	4, 6	eleqtrd 2866	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑣 ∈ (Base‘𝐾))
8		simprr 785	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑤 ∈ 𝐵)
9	8, 6	eleqtrd 2866	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑤 ∈ (Base‘𝐾))
10		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐾) = (Base‘𝐾)
11		eqid 2763	. . . . . . . . . . . . . . . 16 ⊢ (+g‘𝐾) = (+g‘𝐾)
12	10, 11	grpcl 19181	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Grp ∧ 𝑣 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑣(+g‘𝐾)𝑤) ∈ (Base‘𝐾))
13	3, 7, 9, 12	syl3anc 1399	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(+g‘𝐾)𝑤) ∈ (Base‘𝐾))
14	13, 6	eleqtrrd 2867	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(+g‘𝐾)𝑤) ∈ 𝐵)
15		ringpropd.4	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(.r‘𝐾)𝑦) = (𝑥(.r‘𝐿)𝑦))
16	15	oveqrspc2v 7470	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ (𝑣(+g‘𝐾)𝑤) ∈ 𝐵)) → (𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = (𝑢(.r‘𝐿)(𝑣(+g‘𝐾)𝑤)))
17	1, 2, 14, 16	syl12anc 850	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = (𝑢(.r‘𝐿)(𝑣(+g‘𝐾)𝑤)))
18		ringpropd.3	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘𝐾)𝑦) = (𝑥(+g‘𝐿)𝑦))
19	18	oveqrspc2v 7470	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑣(+g‘𝐾)𝑤) = (𝑣(+g‘𝐿)𝑤))
20	1, 4, 8, 19	syl12anc 850	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(+g‘𝐾)𝑤) = (𝑣(+g‘𝐿)𝑤))
21	20	oveq2d 7459	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐿)(𝑣(+g‘𝐾)𝑤)) = (𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)))
22	17, 21	eqtrd 2798	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = (𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)))
23		simplrr 790	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (mulGrp‘𝐾) ∈ Mnd)
24	2, 6	eleqtrd 2866	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑢 ∈ (Base‘𝐾))
25		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
26	25, 10	mgpbas 20395	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
27		eqid 2763	. . . . . . . . . . . . . . . . 17 ⊢ (.r‘𝐾) = (.r‘𝐾)
28	25, 27	mgpplusg 20394	. . . . . . . . . . . . . . . 16 ⊢ (.r‘𝐾) = (+g‘(mulGrp‘𝐾))
29	26, 28	mndcl 18960	. . . . . . . . . . . . . . 15 ⊢ (((mulGrp‘𝐾) ∈ Mnd ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑣 ∈ (Base‘𝐾)) → (𝑢(.r‘𝐾)𝑣) ∈ (Base‘𝐾))
30	23, 24, 7, 29	syl3anc 1399	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑣) ∈ (Base‘𝐾))
31	30, 6	eleqtrrd 2867	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑣) ∈ 𝐵)
32	26, 28	mndcl 18960	. . . . . . . . . . . . . . 15 ⊢ (((mulGrp‘𝐾) ∈ Mnd ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑢(.r‘𝐾)𝑤) ∈ (Base‘𝐾))
33	23, 24, 9, 32	syl3anc 1399	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑤) ∈ (Base‘𝐾))
34	33, 6	eleqtrrd 2867	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑤) ∈ 𝐵)
35	18	oveqrspc2v 7470	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑢(.r‘𝐾)𝑣) ∈ 𝐵 ∧ (𝑢(.r‘𝐾)𝑤) ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐿)(𝑢(.r‘𝐾)𝑤)))
36	1, 31, 34, 35	syl12anc 850	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐿)(𝑢(.r‘𝐾)𝑤)))
37	15	oveqrspc2v 7470	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑣) = (𝑢(.r‘𝐿)𝑣))
38	1, 2, 4, 37	syl12anc 850	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑣) = (𝑢(.r‘𝐿)𝑣))
39	15	oveqrspc2v 7470	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑤) = (𝑢(.r‘𝐿)𝑤))
40	1, 2, 8, 39	syl12anc 850	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(.r‘𝐾)𝑤) = (𝑢(.r‘𝐿)𝑤))
41	38, 40	oveq12d 7461	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑣)(+g‘𝐿)(𝑢(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)))
42	36, 41	eqtrd 2798	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)))
43	22, 42	eqeq12d 2779	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ↔ (𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤))))
44	10, 11	grpcl 19181	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Grp ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑣 ∈ (Base‘𝐾)) → (𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾))
45	3, 24, 7, 44	syl3anc 1399	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑣) ∈ (Base‘𝐾))
46	45, 6	eleqtrrd 2867	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑣) ∈ 𝐵)
47	15	oveqrspc2v 7470	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑢(+g‘𝐾)𝑣) ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(+g‘𝐾)𝑣)(.r‘𝐿)𝑤))
48	1, 46, 8, 47	syl12anc 850	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(+g‘𝐾)𝑣)(.r‘𝐿)𝑤))
49	18	oveqrspc2v 7470	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑣) = (𝑢(+g‘𝐿)𝑣))
50	1, 2, 4, 49	syl12anc 850	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(+g‘𝐾)𝑣) = (𝑢(+g‘𝐿)𝑣))
51	50	oveq1d 7458	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝐾)𝑣)(.r‘𝐿)𝑤) = ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤))
52	48, 51	eqtrd 2798	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤))
53	26, 28	mndcl 18960	. . . . . . . . . . . . . . 15 ⊢ (((mulGrp‘𝐾) ∈ Mnd ∧ 𝑣 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑣(.r‘𝐾)𝑤) ∈ (Base‘𝐾))
54	23, 7, 9, 53	syl3anc 1399	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(.r‘𝐾)𝑤) ∈ (Base‘𝐾))
55	54, 6	eleqtrrd 2867	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(.r‘𝐾)𝑤) ∈ 𝐵)
56	18	oveqrspc2v 7470	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑢(.r‘𝐾)𝑤) ∈ 𝐵 ∧ (𝑣(.r‘𝐾)𝑤) ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐿)(𝑣(.r‘𝐾)𝑤)))
57	1, 34, 55, 56	syl12anc 850	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐿)(𝑣(.r‘𝐾)𝑤)))
58	15	oveqrspc2v 7470	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑣(.r‘𝐾)𝑤) = (𝑣(.r‘𝐿)𝑤))
59	1, 4, 8, 58	syl12anc 850	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(.r‘𝐾)𝑤) = (𝑣(.r‘𝐿)𝑤))
60	40, 59	oveq12d 7461	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑤)(+g‘𝐿)(𝑣(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))
61	57, 60	eqtrd 2798	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))
62	52, 61	eqeq12d 2779	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)) ↔ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))))
63	43, 62	anbi12d 644	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
64	63	anassrs 473	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
65	64	ralbidva 3187	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
66	65	2ralbidva 3228	. . . . . 6 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
67	5	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → 𝐵 = (Base‘𝐾))
68	67	raleqdv 3323	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))))
69	67, 68	raleqbidv 3338	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))))
70	67, 69	raleqbidv 3338	. . . . . 6 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))))
71		ringpropd.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝐿))
72	71	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → 𝐵 = (Base‘𝐿))
73	72	raleqdv 3323	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))) ↔ ∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
74	72, 73	raleqbidv 3338	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))) ↔ ∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
75	72, 74	raleqbidv 3338	. . . . . 6 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
76	66, 70, 75	3bitr3d 312	. . . . 5 ⊢ ((𝜑 ∧ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd)) → (∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
77	76	pm5.32da 590	. . . 4 ⊢ (𝜑 → (((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd) ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))) ↔ ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd) ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))))))
78		df-3an 1105	. . . 4 ⊢ ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))) ↔ ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd) ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))))
79		df-3an 1105	. . . 4 ⊢ ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))) ↔ ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd) ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
80	77, 78, 79	3bitr4g 317	. . 3 ⊢ (𝜑 → ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))) ↔ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))))))
81	5, 71, 18	grppropd 19191	. . . 4 ⊢ (𝜑 → (𝐾 ∈ Grp ↔ 𝐿 ∈ Grp))
82	5, 26	eqtrdi 2814	. . . . 5 ⊢ (𝜑 → 𝐵 = (Base‘(mulGrp‘𝐾)))
83		eqid 2763	. . . . . . 7 ⊢ (mulGrp‘𝐿) = (mulGrp‘𝐿)
84		eqid 2763	. . . . . . 7 ⊢ (Base‘𝐿) = (Base‘𝐿)
85	83, 84	mgpbas 20395	. . . . . 6 ⊢ (Base‘𝐿) = (Base‘(mulGrp‘𝐿))
86	71, 85	eqtrdi 2814	. . . . 5 ⊢ (𝜑 → 𝐵 = (Base‘(mulGrp‘𝐿)))
87	28	oveqi 7456	. . . . . 6 ⊢ (𝑥(.r‘𝐾)𝑦) = (𝑥(+g‘(mulGrp‘𝐾))𝑦)
88		eqid 2763	. . . . . . . 8 ⊢ (.r‘𝐿) = (.r‘𝐿)
89	83, 88	mgpplusg 20394	. . . . . . 7 ⊢ (.r‘𝐿) = (+g‘(mulGrp‘𝐿))
90	89	oveqi 7456	. . . . . 6 ⊢ (𝑥(.r‘𝐿)𝑦) = (𝑥(+g‘(mulGrp‘𝐿))𝑦)
91	15, 87, 90	3eqtr3g 2821	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+g‘(mulGrp‘𝐾))𝑦) = (𝑥(+g‘(mulGrp‘𝐿))𝑦))
92	82, 86, 91	mndpropd 18980	. . . 4 ⊢ (𝜑 → ((mulGrp‘𝐾) ∈ Mnd ↔ (mulGrp‘𝐿) ∈ Mnd))
93	81, 92	3anbi12d 1466	. . 3 ⊢ (𝜑 → ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))) ↔ (𝐿 ∈ Grp ∧ (mulGrp‘𝐿) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))))))
94	80, 93	bitrd 282	. 2 ⊢ (𝜑 → ((𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))) ↔ (𝐿 ∈ Grp ∧ (mulGrp‘𝐿) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤))))))
95	10, 25, 11, 27	isring 20493	. 2 ⊢ (𝐾 ∈ Ring ↔ (𝐾 ∈ Grp ∧ (mulGrp‘𝐾) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(.r‘𝐾)(𝑣(+g‘𝐾)𝑤)) = ((𝑢(.r‘𝐾)𝑣)(+g‘𝐾)(𝑢(.r‘𝐾)𝑤)) ∧ ((𝑢(+g‘𝐾)𝑣)(.r‘𝐾)𝑤) = ((𝑢(.r‘𝐾)𝑤)(+g‘𝐾)(𝑣(.r‘𝐾)𝑤)))))
96		eqid 2763	. . 3 ⊢ (+g‘𝐿) = (+g‘𝐿)
97	84, 83, 96, 88	isring 20493	. 2 ⊢ (𝐿 ∈ Ring ↔ (𝐿 ∈ Grp ∧ (mulGrp‘𝐿) ∈ Mnd ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(.r‘𝐿)(𝑣(+g‘𝐿)𝑤)) = ((𝑢(.r‘𝐿)𝑣)(+g‘𝐿)(𝑢(.r‘𝐿)𝑤)) ∧ ((𝑢(+g‘𝐿)𝑣)(.r‘𝐿)𝑤) = ((𝑢(.r‘𝐿)𝑤)(+g‘𝐿)(𝑣(.r‘𝐿)𝑤)))))
98	94, 95, 97	3bitr4g 317	1 ⊢ (𝜑 → (𝐾 ∈ Ring ↔ 𝐿 ∈ Ring))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147  ∀wral 3080  ‘cfv 6558  (class class class)co 7443  Basecbs 17416  +_gcplusg 17457  ._rcmulr 17458  Mndcmnd 18952  Grpcgrp 19173  mulGrpcmgp 20390  Ringcrg 20489

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7775  ax-cnex 11283  ax-resscn 11284  ax-1cn 11285  ax-icn 11286  ax-addcl 11287  ax-addrcl 11288  ax-mulcl 11289  ax-mulrcl 11290  ax-mulcom 11291  ax-addass 11292  ax-mulass 11293  ax-distr 11294  ax-i2m1 11295  ax-1ne0 11296  ax-1rid 11297  ax-rnegex 11298  ax-rrecex 11299  ax-cnre 11300  ax-pre-lttri 11301  ax-pre-lttrn 11302  ax-pre-ltadd 11303  ax-pre-mulgt0 11304

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6322  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-riota 7400  df-ov 7446  df-oprab 7447  df-mpo 7448  df-om 7902  df-2nd 8026  df-frecs 8327  df-wrecs 8358  df-recs 8407  df-rdg 8446  df-er 8745  df-en 9002  df-dom 9003  df-sdom 9004  df-pnf 11372  df-mnf 11373  df-xr 11374  df-ltxr 11375  df-le 11376  df-sub 11570  df-neg 11571  df-nn 12363  df-2 12432  df-sets 17371  df-slot 17389  df-ndx 17401  df-base 17417  df-plusg 17470  df-0g 17641  df-mgm 18845  df-sgrp 18937  df-mnd 18953  df-grp 19176  df-mgp 20391  df-ring 20491

This theorem is used by:  crngpropd  20550  ringprop  20551  opprringb  20608  nzrpropd  20801  subrgpropd  20890  rhmpropd  20891  drngpropd  21057  abvpropd  21122  lmodprop2d  21229  sraring  21491  assapropd  22209  subrgpsr  22315  opsrring  22592