rngpropd - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > rngpropd		Structured version Visualization version GIF version

Theorem rngpropd 20153

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 non-unital ring iff the other one is. (Contributed by AV, 15-Feb-2025.)

**Hypotheses**
Ref	Expression
rngpropd.1	⊢ (𝜑 → 𝐵 = (Base‘𝐾))
rngpropd.2	⊢ (𝜑 → 𝐵 = (Base‘𝐿))
rngpropd.3	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐾)𝑦) = (𝑥(+_g‘𝐿)𝑦))
rngpropd.4	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(._r‘𝐾)𝑦) = (𝑥(._r‘𝐿)𝑦))

**Assertion**
Ref	Expression
rngpropd	⊢ (𝜑 → (𝐾 ∈ Rng ↔ 𝐿 ∈ Rng))

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

Proof of Theorem rngpropd Dummy variables 𝑣 𝑢 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpll 772	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝜑)
2		simprll 784	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑢 ∈ 𝐵)
3		simplrl 782	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝐾 ∈ Abel)
4		simprlr 785	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑣 ∈ 𝐵)
5		rngpropd.1	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐵 = (Base‘𝐾))
6	5	ad2antrr 732	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝐵 = (Base‘𝐾))
7	4, 6	eleqtrd 2842	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑣 ∈ (Base‘𝐾))
8		simprr 778	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑤 ∈ 𝐵)
9	8, 6	eleqtrd 2842	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑤 ∈ (Base‘𝐾))
10		ablgrp 19758	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ Abel → 𝐾 ∈ Grp)
11		eqid 2740	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐾) = (Base‘𝐾)
12		eqid 2740	. . . . . . . . . . . . . . . . 17 ⊢ (+_g‘𝐾) = (+_g‘𝐾)
13	11, 12	grpcl 18915	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ Grp ∧ 𝑣 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑣(+_g‘𝐾)𝑤) ∈ (Base‘𝐾))
14	10, 13	syl3an1 1169	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Abel ∧ 𝑣 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑣(+_g‘𝐾)𝑤) ∈ (Base‘𝐾))
15	3, 7, 9, 14	syl3anc 1379	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(+_g‘𝐾)𝑤) ∈ (Base‘𝐾))
16	15, 6	eleqtrrd 2843	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(+_g‘𝐾)𝑤) ∈ 𝐵)
17		rngpropd.4	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(._r‘𝐾)𝑦) = (𝑥(._r‘𝐿)𝑦))
18	17	oveqrspc2v 7390	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ (𝑣(+_g‘𝐾)𝑤) ∈ 𝐵)) → (𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = (𝑢(._r‘𝐿)(𝑣(+_g‘𝐾)𝑤)))
19	1, 2, 16, 18	syl12anc 842	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = (𝑢(._r‘𝐿)(𝑣(+_g‘𝐾)𝑤)))
20		rngpropd.3	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → (𝑥(+_g‘𝐾)𝑦) = (𝑥(+_g‘𝐿)𝑦))
21	20	oveqrspc2v 7390	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑣(+_g‘𝐾)𝑤) = (𝑣(+_g‘𝐿)𝑤))
22	1, 4, 8, 21	syl12anc 842	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(+_g‘𝐾)𝑤) = (𝑣(+_g‘𝐿)𝑤))
23	22	oveq2d 7379	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐿)(𝑣(+_g‘𝐾)𝑤)) = (𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)))
24	19, 23	eqtrd 2775	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = (𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)))
25		simplrr 783	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (mulGrp‘𝐾) ∈ Smgrp)
26	2, 6	eleqtrd 2842	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → 𝑢 ∈ (Base‘𝐾))
27		eqid 2740	. . . . . . . . . . . . . . . . 17 ⊢ (mulGrp‘𝐾) = (mulGrp‘𝐾)
28	27, 11	mgpbas 20124	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐾) = (Base‘(mulGrp‘𝐾))
29		eqid 2740	. . . . . . . . . . . . . . . . 17 ⊢ (._r‘𝐾) = (._r‘𝐾)
30	27, 29	mgpplusg 20123	. . . . . . . . . . . . . . . 16 ⊢ (._r‘𝐾) = (+_g‘(mulGrp‘𝐾))
31	28, 30	sgrpcl 18692	. . . . . . . . . . . . . . 15 ⊢ (((mulGrp‘𝐾) ∈ Smgrp ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑣 ∈ (Base‘𝐾)) → (𝑢(._r‘𝐾)𝑣) ∈ (Base‘𝐾))
32	25, 26, 7, 31	syl3anc 1379	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑣) ∈ (Base‘𝐾))
33	32, 6	eleqtrrd 2843	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑣) ∈ 𝐵)
34	28, 30	sgrpcl 18692	. . . . . . . . . . . . . . 15 ⊢ (((mulGrp‘𝐾) ∈ Smgrp ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑢(._r‘𝐾)𝑤) ∈ (Base‘𝐾))
35	25, 26, 9, 34	syl3anc 1379	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑤) ∈ (Base‘𝐾))
36	35, 6	eleqtrrd 2843	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑤) ∈ 𝐵)
37	20	oveqrspc2v 7390	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑢(._r‘𝐾)𝑣) ∈ 𝐵 ∧ (𝑢(._r‘𝐾)𝑤) ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐾)𝑤)))
38	1, 33, 36, 37	syl12anc 842	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐾)𝑤)))
39	17	oveqrspc2v 7390	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑣) = (𝑢(._r‘𝐿)𝑣))
40	39	ad2ant2r 753	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑣) = (𝑢(._r‘𝐿)𝑣))
41	17	oveqrspc2v 7390	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑤) = (𝑢(._r‘𝐿)𝑤))
42	1, 2, 8, 41	syl12anc 842	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(._r‘𝐾)𝑤) = (𝑢(._r‘𝐿)𝑤))
43	40, 42	oveq12d 7381	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)))
44	38, 43	eqtrd 2775	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)))
45	24, 44	eqeq12d 2756	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ↔ (𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤))))
46	11, 12	grpcl 18915	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ Grp ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑣 ∈ (Base‘𝐾)) → (𝑢(+_g‘𝐾)𝑣) ∈ (Base‘𝐾))
47	10, 46	syl3an1 1169	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ Abel ∧ 𝑢 ∈ (Base‘𝐾) ∧ 𝑣 ∈ (Base‘𝐾)) → (𝑢(+_g‘𝐾)𝑣) ∈ (Base‘𝐾))
48	3, 26, 7, 47	syl3anc 1379	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(+_g‘𝐾)𝑣) ∈ (Base‘𝐾))
49	48, 6	eleqtrrd 2843	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(+_g‘𝐾)𝑣) ∈ 𝐵)
50	17	oveqrspc2v 7390	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑢(+_g‘𝐾)𝑣) ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐿)𝑤))
51	1, 49, 8, 50	syl12anc 842	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐿)𝑤))
52	20	oveqrspc2v 7390	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢(+_g‘𝐾)𝑣) = (𝑢(+_g‘𝐿)𝑣))
53	52	ad2ant2r 753	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑢(+_g‘𝐾)𝑣) = (𝑢(+_g‘𝐿)𝑣))
54	53	oveq1d 7378	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐿)𝑤) = ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤))
55	51, 54	eqtrd 2775	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤))
56	28, 30	sgrpcl 18692	. . . . . . . . . . . . . . 15 ⊢ (((mulGrp‘𝐾) ∈ Smgrp ∧ 𝑣 ∈ (Base‘𝐾) ∧ 𝑤 ∈ (Base‘𝐾)) → (𝑣(._r‘𝐾)𝑤) ∈ (Base‘𝐾))
57	25, 7, 9, 56	syl3anc 1379	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(._r‘𝐾)𝑤) ∈ (Base‘𝐾))
58	57, 6	eleqtrrd 2843	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(._r‘𝐾)𝑤) ∈ 𝐵)
59	20	oveqrspc2v 7390	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑢(._r‘𝐾)𝑤) ∈ 𝐵 ∧ (𝑣(._r‘𝐾)𝑤) ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐾)𝑤)))
60	1, 36, 58, 59	syl12anc 842	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐾)𝑤)))
61	17	oveqrspc2v 7390	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑣 ∈ 𝐵 ∧ 𝑤 ∈ 𝐵)) → (𝑣(._r‘𝐾)𝑤) = (𝑣(._r‘𝐿)𝑤))
62	1, 4, 8, 61	syl12anc 842	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (𝑣(._r‘𝐾)𝑤) = (𝑣(._r‘𝐿)𝑤))
63	42, 62	oveq12d 7381	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))
64	60, 63	eqtrd 2775	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))
65	55, 64	eqeq12d 2756	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)) ↔ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))))
66	45, 65	anbi12d 638	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ ((𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵) ∧ 𝑤 ∈ 𝐵)) → (((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
67	66	anassrs 468	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) ∧ 𝑤 ∈ 𝐵) → (((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
68	67	ralbidva 3161	. . . . . . 7 ⊢ (((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
69	68	2ralbidva 3202	. . . . . 6 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
70	5	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → 𝐵 = (Base‘𝐾))
71	70	raleqdv 3298	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))))
72	70, 71	raleqbidv 3314	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))))
73	70, 72	raleqbidv 3314	. . . . . 6 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))))
74		rngpropd.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (Base‘𝐿))
75	74	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → 𝐵 = (Base‘𝐿))
76	75	raleqdv 3298	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))) ↔ ∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
77	75, 76	raleqbidv 3314	. . . . . . 7 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))) ↔ ∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
78	75, 77	raleqbidv 3314	. . . . . 6 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 ∀𝑤 ∈ 𝐵 ((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))) ↔ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
79	69, 73, 78	3bitr3d 310	. . . . 5 ⊢ ((𝜑 ∧ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp)) → (∀𝑢 ∈ (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‘𝐿)𝑤)))))
80	79	pm5.32da 584	. . . 4 ⊢ (𝜑 → (((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp) ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))) ↔ ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp) ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))))))
81		df-3an 1094	. . . 4 ⊢ ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))) ↔ ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp) ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))))
82		df-3an 1094	. . . 4 ⊢ ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))) ↔ ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp) ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
83	80, 81, 82	3bitr4g 315	. . 3 ⊢ (𝜑 → ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))) ↔ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))))))
84	5, 74, 20	ablpropd 19765	. . . 4 ⊢ (𝜑 → (𝐾 ∈ Abel ↔ 𝐿 ∈ Abel))
85		fvexd 6849	. . . . 5 ⊢ (𝜑 → (mulGrp‘𝐾) ∈ V)
86		fvexd 6849	. . . . 5 ⊢ (𝜑 → (mulGrp‘𝐿) ∈ V)
87	28	a1i 11	. . . . 5 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(mulGrp‘𝐾)))
88		eqid 2740	. . . . . . . 8 ⊢ (mulGrp‘𝐿) = (mulGrp‘𝐿)
89		eqid 2740	. . . . . . . 8 ⊢ (Base‘𝐿) = (Base‘𝐿)
90	88, 89	mgpbas 20124	. . . . . . 7 ⊢ (Base‘𝐿) = (Base‘(mulGrp‘𝐿))
91	74, 90	eqtrdi 2791	. . . . . 6 ⊢ (𝜑 → 𝐵 = (Base‘(mulGrp‘𝐿)))
92	5, 91	eqtr3d 2777	. . . . 5 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(mulGrp‘𝐿)))
93	17	ex 413	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) → (𝑥(._r‘𝐾)𝑦) = (𝑥(._r‘𝐿)𝑦)))
94	5	eleq2d 2826	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ 𝐵 ↔ 𝑥 ∈ (Base‘𝐾)))
95	5	eleq2d 2826	. . . . . . . . 9 ⊢ (𝜑 → (𝑦 ∈ 𝐵 ↔ 𝑦 ∈ (Base‘𝐾)))
96	94, 95	anbi12d 638	. . . . . . . 8 ⊢ (𝜑 → ((𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵) ↔ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))))
97	96	bicomd 224	. . . . . . 7 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) ↔ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)))
98	30	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (._r‘𝐾) = (+_g‘(mulGrp‘𝐾)))
99	98	eqcomd 2746	. . . . . . . . 9 ⊢ (𝜑 → (+_g‘(mulGrp‘𝐾)) = (._r‘𝐾))
100	99	oveqd 7380	. . . . . . . 8 ⊢ (𝜑 → (𝑥(+_g‘(mulGrp‘𝐾))𝑦) = (𝑥(._r‘𝐾)𝑦))
101		eqid 2740	. . . . . . . . . . . 12 ⊢ (._r‘𝐿) = (._r‘𝐿)
102	88, 101	mgpplusg 20123	. . . . . . . . . . 11 ⊢ (._r‘𝐿) = (+_g‘(mulGrp‘𝐿))
103	102	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → (._r‘𝐿) = (+_g‘(mulGrp‘𝐿)))
104	103	eqcomd 2746	. . . . . . . . 9 ⊢ (𝜑 → (+_g‘(mulGrp‘𝐿)) = (._r‘𝐿))
105	104	oveqd 7380	. . . . . . . 8 ⊢ (𝜑 → (𝑥(+_g‘(mulGrp‘𝐿))𝑦) = (𝑥(._r‘𝐿)𝑦))
106	100, 105	eqeq12d 2756	. . . . . . 7 ⊢ (𝜑 → ((𝑥(+_g‘(mulGrp‘𝐾))𝑦) = (𝑥(+_g‘(mulGrp‘𝐿))𝑦) ↔ (𝑥(._r‘𝐾)𝑦) = (𝑥(._r‘𝐿)𝑦)))
107	93, 97, 106	3imtr4d 295	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾)) → (𝑥(+_g‘(mulGrp‘𝐾))𝑦) = (𝑥(+_g‘(mulGrp‘𝐿))𝑦)))
108	107	imp 407	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐾) ∧ 𝑦 ∈ (Base‘𝐾))) → (𝑥(+_g‘(mulGrp‘𝐾))𝑦) = (𝑥(+_g‘(mulGrp‘𝐿))𝑦))
109	85, 86, 87, 92, 108	sgrppropd 18697	. . . 4 ⊢ (𝜑 → ((mulGrp‘𝐾) ∈ Smgrp ↔ (mulGrp‘𝐿) ∈ Smgrp))
110	84, 109	3anbi12d 1445	. . 3 ⊢ (𝜑 → ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))) ↔ (𝐿 ∈ Abel ∧ (mulGrp‘𝐿) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))))))
111	83, 110	bitrd 280	. 2 ⊢ (𝜑 → ((𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))) ↔ (𝐿 ∈ Abel ∧ (mulGrp‘𝐿) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤))))))
112	11, 27, 12, 29	isrng 20133	. 2 ⊢ (𝐾 ∈ Rng ↔ (𝐾 ∈ Abel ∧ (mulGrp‘𝐾) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐾)∀𝑣 ∈ (Base‘𝐾)∀𝑤 ∈ (Base‘𝐾)((𝑢(._r‘𝐾)(𝑣(+_g‘𝐾)𝑤)) = ((𝑢(._r‘𝐾)𝑣)(+_g‘𝐾)(𝑢(._r‘𝐾)𝑤)) ∧ ((𝑢(+_g‘𝐾)𝑣)(._r‘𝐾)𝑤) = ((𝑢(._r‘𝐾)𝑤)(+_g‘𝐾)(𝑣(._r‘𝐾)𝑤)))))
113		eqid 2740	. . 3 ⊢ (+_g‘𝐿) = (+_g‘𝐿)
114	89, 88, 113, 101	isrng 20133	. 2 ⊢ (𝐿 ∈ Rng ↔ (𝐿 ∈ Abel ∧ (mulGrp‘𝐿) ∈ Smgrp ∧ ∀𝑢 ∈ (Base‘𝐿)∀𝑣 ∈ (Base‘𝐿)∀𝑤 ∈ (Base‘𝐿)((𝑢(._r‘𝐿)(𝑣(+_g‘𝐿)𝑤)) = ((𝑢(._r‘𝐿)𝑣)(+_g‘𝐿)(𝑢(._r‘𝐿)𝑤)) ∧ ((𝑢(+_g‘𝐿)𝑣)(._r‘𝐿)𝑤) = ((𝑢(._r‘𝐿)𝑤)(+_g‘𝐿)(𝑣(._r‘𝐿)𝑤)))))
115	111, 112, 114	3bitr4g 315	1 ⊢ (𝜑 → (𝐾 ∈ Rng ↔ 𝐿 ∈ Rng))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 207 ∧ wa 396 ∧ w3a 1092 = wceq 1547 ∈ wcel 2119 ∀wral 3054 Vcvv 3432 ‘cfv 6492 (class class class)co 7363 Basecbs 17177 +_gcplusg 17218 ._rcmulr 17219 Smgrpcsgrp 18684 Grpcgrp 18907 Abelcabl 19754 mulGrpcmgp 20119 Rngcrng 20131

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 1974 ax-7 2015 ax-8 2121 ax-9 2129 ax-10 2152 ax-11 2168 ax-12 2189 ax-ext 2712 ax-sep 5225 ax-nul 5235 ax-pow 5301 ax-pr 5369 ax-un 7685 ax-cnex 11092 ax-resscn 11093 ax-1cn 11094 ax-icn 11095 ax-addcl 11096 ax-addrcl 11097 ax-mulcl 11098 ax-mulrcl 11099 ax-mulcom 11100 ax-addass 11101 ax-mulass 11102 ax-distr 11103 ax-i2m1 11104 ax-1ne0 11105 ax-1rid 11106 ax-rnegex 11107 ax-rrecex 11108 ax-cnre 11109 ax-pre-lttri 11110 ax-pre-lttrn 11111 ax-pre-ltadd 11112 ax-pre-mulgt0 11113

This theorem depends on definitions: df-bi 208 df-an 397 df-or 854 df-3or 1093 df-3an 1094 df-tru 1550 df-fal 1560 df-ex 1787 df-nf 1791 df-sb 2074 df-mo 2543 df-eu 2573 df-clab 2719 df-cleq 2732 df-clel 2815 df-nfc 2889 df-ne 2936 df-nel 3040 df-ral 3055 df-rex 3065 df-reu 3346 df-rab 3393 df-v 3434 df-sbc 3731 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-nul 4269 df-if 4462 df-pw 4538 df-sn 4563 df-pr 4565 df-op 4569 df-uni 4846 df-iun 4930 df-br 5080 df-opab 5142 df-mpt 5161 df-tr 5187 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6259 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6494 df-fn 6495 df-f 6496 df-f1 6497 df-fo 6498 df-f1o 6499 df-fv 6500 df-riota 7320 df-ov 7366 df-oprab 7367 df-mpo 7368 df-om 7814 df-2nd 7939 df-frecs 8228 df-wrecs 8259 df-recs 8308 df-rdg 8346 df-er 8640 df-en 8891 df-dom 8892 df-sdom 8893 df-pnf 11179 df-mnf 11180 df-xr 11181 df-ltxr 11182 df-le 11183 df-sub 11377 df-neg 11378 df-nn 12173 df-2 12242 df-sets 17132 df-slot 17150 df-ndx 17162 df-base 17178 df-plusg 17231 df-0g 17402 df-mgm 18606 df-sgrp 18685 df-mnd 18701 df-grp 18910 df-cmn 19755 df-abl 19756 df-mgp 20120 df-rng 20132

This theorem is referenced by: opprrngb 20324 subrngpropd 20547

W3C validator