Theorem rloccring 33242

Description: The ring localization 𝐿 of a commutative ring 𝑅 by a multiplicatively closed set 𝑆 is itself a commutative ring. (Contributed by Thierry Arnoux, 4-May-2025.)

Hypotheses

Ref	Expression
rlocaddval.1	⊢ 𝐵 = (Base‘𝑅)
rlocaddval.2	⊢ · = (.r‘𝑅)
rlocaddval.3	⊢ + = (+g‘𝑅)
rlocaddval.4	⊢ 𝐿 = (𝑅 RLocal 𝑆)
rlocaddval.5	⊢ ∼ = (𝑅 ~RL 𝑆)
rlocaddval.r	⊢ (𝜑 → 𝑅 ∈ CRing)
rlocaddval.s	⊢ (𝜑 → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))

Assertion

Ref	Expression
rloccring	⊢ (𝜑 → 𝐿 ∈ CRing)

Proof of Theorem rloccring

Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 𝑓 𝑥 𝑦 𝑧 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		rlocaddval.1	. . 3 ⊢ 𝐵 = (Base‘𝑅)
2		eqid 2740	. . 3 ⊢ (0g‘𝑅) = (0g‘𝑅)
3		rlocaddval.2	. . 3 ⊢ · = (.r‘𝑅)
4		eqid 2740	. . 3 ⊢ (-g‘𝑅) = (-g‘𝑅)
5		eqid 2740	. . 3 ⊢ (𝐵 × 𝑆) = (𝐵 × 𝑆)
6		rlocaddval.4	. . 3 ⊢ 𝐿 = (𝑅 RLocal 𝑆)
7		rlocaddval.5	. . 3 ⊢ ∼ = (𝑅 ~RL 𝑆)
8		rlocaddval.r	. . 3 ⊢ (𝜑 → 𝑅 ∈ CRing)
9		rlocaddval.s	. . . 4 ⊢ (𝜑 → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
10		eqid 2740	. . . . . 6 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
11	10, 1	mgpbas 20167	. . . . 5 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
12	11	submss 18844	. . . 4 ⊢ (𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) → 𝑆 ⊆ 𝐵)
13	9, 12	syl 17	. . 3 ⊢ (𝜑 → 𝑆 ⊆ 𝐵)
14	1, 2, 3, 4, 5, 6, 7, 8, 13	rlocbas 33239	. 2 ⊢ (𝜑 → ((𝐵 × 𝑆) / ∼ ) = (Base‘𝐿))
15		eqidd 2741	. 2 ⊢ (𝜑 → (+g‘𝐿) = (+g‘𝐿))
16		eqidd 2741	. 2 ⊢ (𝜑 → (.r‘𝐿) = (.r‘𝐿))
17		eqid 2740	. . . 4 ⊢ (Base‘𝐿) = (Base‘𝐿)
18		eqid 2740	. . . 4 ⊢ (0g‘𝐿) = (0g‘𝐿)
19		eqid 2740	. . . 4 ⊢ (+g‘𝐿) = (+g‘𝐿)
20	8	crngringd 20273	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Ring)
21	1, 2	ring0cl 20290	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (0g‘𝑅) ∈ 𝐵)
22	20, 21	syl 17	. . . . . . 7 ⊢ (𝜑 → (0g‘𝑅) ∈ 𝐵)
23		eqid 2740	. . . . . . . . . 10 ⊢ (1r‘𝑅) = (1r‘𝑅)
24	10, 23	ringidval 20210	. . . . . . . . 9 ⊢ (1r‘𝑅) = (0g‘(mulGrp‘𝑅))
25	24	subm0cl 18846	. . . . . . . 8 ⊢ (𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) → (1r‘𝑅) ∈ 𝑆)
26	9, 25	syl 17	. . . . . . 7 ⊢ (𝜑 → (1r‘𝑅) ∈ 𝑆)
27	22, 26	opelxpd 5739	. . . . . 6 ⊢ (𝜑 → ⟨(0g‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆))
28	7	ovexi 7482	. . . . . . 7 ⊢ ∼ ∈ V
29	28	ecelqsi 8831	. . . . . 6 ⊢ (⟨(0g‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆) → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
30	27, 29	syl 17	. . . . 5 ⊢ (𝜑 → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
31	30, 14	eleqtrd 2846	. . . 4 ⊢ (𝜑 → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ∈ (Base‘𝐿))
32	14	eleq2d 2830	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ↔ 𝑥 ∈ (Base‘𝐿)))
33	32	biimpar 477	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐿)) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
34		simpr 484	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
35	34	oveq2d 7464	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
36	20	ad4antr 731	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑅 ∈ Ring)
37	9	ad4antr 731	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
38	37, 12	syl 17	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑆 ⊆ 𝐵)
39		simplr 768	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑏 ∈ 𝑆)
40	38, 39	sseldd 4009	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑏 ∈ 𝐵)
41	1, 3, 2, 36, 40	ringlzd 20318	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅) · 𝑏) = (0g‘𝑅))
42		simpllr 775	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑎 ∈ 𝐵)
43	1, 3, 23, 36, 42	ringridmd 20296	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑎 · (1r‘𝑅)) = 𝑎)
44	41, 43	oveq12d 7466	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))) = ((0g‘𝑅)(+g‘𝑅)𝑎))
45		eqid 2740	. . . . . . . . . . . 12 ⊢ (+g‘𝑅) = (+g‘𝑅)
46	36	ringgrpd 20269	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑅 ∈ Grp)
47	1, 45, 2, 46, 42	grplidd 19009	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅)(+g‘𝑅)𝑎) = 𝑎)
48	44, 47	eqtrd 2780	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))) = 𝑎)
49	1, 3, 23, 36, 40	ringlidmd 20295	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((1r‘𝑅) · 𝑏) = 𝑏)
50	48, 49	opeq12d 4905	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))), ((1r‘𝑅) · 𝑏)⟩ = ⟨𝑎, 𝑏⟩)
51	50	eceq1d 8803	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨(((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))), ((1r‘𝑅) · 𝑏)⟩] ∼ = [⟨𝑎, 𝑏⟩] ∼ )
52	8	ad4antr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑅 ∈ CRing)
53	22	ad4antr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (0g‘𝑅) ∈ 𝐵)
54	37, 25	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (1r‘𝑅) ∈ 𝑆)
55	1, 3, 45, 6, 7, 52, 37, 53, 42, 54, 39, 19	rlocaddval 33240	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))), ((1r‘𝑅) · 𝑏)⟩] ∼ )
56	51, 55, 34	3eqtr4d 2790	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = 𝑥)
57	35, 56	eqtrd 2780	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = 𝑥)
58		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
59	58	elrlocbasi 33238	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ∃𝑎 ∈ 𝐵 ∃𝑏 ∈ 𝑆 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
60	57, 59	r19.29vva 3222	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = 𝑥)
61	33, 60	syldan 590	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐿)) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = 𝑥)
62		rlocaddval.3	. . . . . . . 8 ⊢ + = (+g‘𝑅)
63	1, 3, 62, 6, 7, 52, 37, 42, 53, 39, 54, 19	rlocaddval 33240	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = [⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩] ∼ )
64	34	oveq1d 7463	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ))
65	43, 41	oveq12d 7466	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)) = (𝑎 + (0g‘𝑅)))
66	1, 62, 2, 46, 42	grpridd 19010	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑎 + (0g‘𝑅)) = 𝑎)
67	65, 66	eqtr2d 2781	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑎 = ((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)))
68	1, 3, 23, 36, 40	ringridmd 20296	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑏 · (1r‘𝑅)) = 𝑏)
69	68	eqcomd 2746	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑏 = (𝑏 · (1r‘𝑅)))
70	67, 69	opeq12d 4905	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨𝑎, 𝑏⟩ = ⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩)
71	70	eceq1d 8803	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨𝑎, 𝑏⟩] ∼ = [⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩] ∼ )
72	34, 71	eqtrd 2780	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑥 = [⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩] ∼ )
73	63, 64, 72	3eqtr4d 2790	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
74	73, 59	r19.29vva 3222	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
75	33, 74	syldan 590	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐿)) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
76	17, 18, 19, 31, 61, 75	ismgmid2 18706	. . 3 ⊢ (𝜑 → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ = (0g‘𝐿))
77		simp-4r 783	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
78		simpr 484	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
79	77, 78	oveq12d 7466	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
80	8	ad8antr 739	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑅 ∈ CRing)
81	9	ad8antr 739	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
82		simp-6r 787	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑎 ∈ 𝐵)
83		simpllr 775	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑐 ∈ 𝐵)
84		simp-5r 785	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑏 ∈ 𝑆)
85		simplr 768	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑑 ∈ 𝑆)
86	1, 3, 62, 6, 7, 80, 81, 82, 83, 84, 85, 19	rlocaddval 33240	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ )
87	80	crnggrpd 20274	. . . . . . . . . . . 12 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑅 ∈ Grp)
88	20	ad8antr 739	. . . . . . . . . . . . 13 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑅 ∈ Ring)
89	81, 12	syl 17	. . . . . . . . . . . . . 14 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑆 ⊆ 𝐵)
90	89, 85	sseldd 4009	. . . . . . . . . . . . 13 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑑 ∈ 𝐵)
91	1, 3, 88, 82, 90	ringcld 20286	. . . . . . . . . . . 12 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑎 · 𝑑) ∈ 𝐵)
92	89, 84	sseldd 4009	. . . . . . . . . . . . 13 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑏 ∈ 𝐵)
93	1, 3, 88, 83, 92	ringcld 20286	. . . . . . . . . . . 12 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑐 · 𝑏) ∈ 𝐵)
94	1, 62, 87, 91, 93	grpcld 18987	. . . . . . . . . . 11 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑎 · 𝑑) + (𝑐 · 𝑏)) ∈ 𝐵)
95	10, 3	mgpplusg 20165	. . . . . . . . . . . 12 ⊢ · = (+g‘(mulGrp‘𝑅))
96	95, 81, 84, 85	submcld 33021	. . . . . . . . . . 11 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑏 · 𝑑) ∈ 𝑆)
97	94, 96	opelxpd 5739	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆))
98	28	ecelqsi 8831	. . . . . . . . . 10 ⊢ (⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆) → [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
99	97, 98	syl 17	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
100	86, 99	eqeltrd 2844	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) ∈ ((𝐵 × 𝑆) / ∼ ))
101	79, 100	eqeltrd 2844	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
102		simp-4r 783	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ))
103	102	elrlocbasi 33238	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∃𝑐 ∈ 𝐵 ∃𝑑 ∈ 𝑆 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
104	101, 103	r19.29vva 3222	. . . . . 6 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
105		simplr 768	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
106	105	elrlocbasi 33238	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → ∃𝑎 ∈ 𝐵 ∃𝑏 ∈ 𝑆 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
107	104, 106	r19.29vva 3222	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
108	107	3impa 1110	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
109	8	ad10antr 743	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑅 ∈ CRing)
110	109	crnggrpd 20274	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑅 ∈ Grp)
111	20	ad10antr 743	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑅 ∈ Ring)
112		simp-9r 793	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑎 ∈ 𝐵)
113	9	ad10antr 743	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
114	113, 12	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑆 ⊆ 𝐵)
115		simp-5r 785	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑑 ∈ 𝑆)
116	114, 115	sseldd 4009	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑑 ∈ 𝐵)
117	1, 3, 111, 112, 116	ringcld 20286	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑑) ∈ 𝐵)
118		simplr 768	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑓 ∈ 𝑆)
119	114, 118	sseldd 4009	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑓 ∈ 𝐵)
120	1, 3, 111, 117, 119	ringcld 20286	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) · 𝑓) ∈ 𝐵)
121		simp-6r 787	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑐 ∈ 𝐵)
122		simp-8r 791	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑏 ∈ 𝑆)
123	114, 122	sseldd 4009	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑏 ∈ 𝐵)
124	1, 3, 111, 121, 123	ringcld 20286	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑐 · 𝑏) ∈ 𝐵)
125	1, 3, 111, 124, 119	ringcld 20286	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑏) · 𝑓) ∈ 𝐵)
126		simpllr 775	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑒 ∈ 𝐵)
127	1, 3, 111, 123, 116	ringcld 20286	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑑) ∈ 𝐵)
128	1, 3, 111, 126, 127	ringcld 20286	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · (𝑏 · 𝑑)) ∈ 𝐵)
129	1, 62, 110, 120, 125, 128	grpassd 18985	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)) + (𝑒 · (𝑏 · 𝑑))) = (((𝑎 · 𝑑) · 𝑓) + (((𝑐 · 𝑏) · 𝑓) + (𝑒 · (𝑏 · 𝑑)))))
130	1, 3, 111, 112, 116, 119	ringassd 20284	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) · 𝑓) = (𝑎 · (𝑑 · 𝑓)))
131	1, 3, 109, 121, 123, 119	cringmul32d 33208	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑏) · 𝑓) = ((𝑐 · 𝑓) · 𝑏))
132	1, 3, 109, 126, 123, 116	crng12d 20285	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · (𝑏 · 𝑑)) = (𝑏 · (𝑒 · 𝑑)))
133	1, 3, 111, 126, 116	ringcld 20286	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · 𝑑) ∈ 𝐵)
134	1, 3, 109, 123, 133	crngcomd 20282	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑒 · 𝑑)) = ((𝑒 · 𝑑) · 𝑏))
135	132, 134	eqtrd 2780	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · (𝑏 · 𝑑)) = ((𝑒 · 𝑑) · 𝑏))
136	131, 135	oveq12d 7466	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑐 · 𝑏) · 𝑓) + (𝑒 · (𝑏 · 𝑑))) = (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏)))
137	130, 136	oveq12d 7466	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) · 𝑓) + (((𝑐 · 𝑏) · 𝑓) + (𝑒 · (𝑏 · 𝑑)))) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏))))
138	129, 137	eqtrd 2780	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)) + (𝑒 · (𝑏 · 𝑑))) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏))))
139	1, 62, 3, 111, 117, 124, 119	ringdird 33210	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) = (((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)))
140	139	oveq1d 7463	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))) = ((((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)) + (𝑒 · (𝑏 · 𝑑))))
141	1, 3, 111, 121, 119	ringcld 20286	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑐 · 𝑓) ∈ 𝐵)
142	1, 62, 3, 111, 141, 133, 123	ringdird 33210	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏) = (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏)))
143	142	oveq2d 7464	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏))))
144	138, 140, 143	3eqtr4d 2790	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)))
145	1, 3, 111, 123, 116, 119	ringassd 20284	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) = (𝑏 · (𝑑 · 𝑓)))
146	144, 145	opeq12d 4905	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · 𝑓)⟩ = ⟨((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)), (𝑏 · (𝑑 · 𝑓))⟩)
147	146	eceq1d 8803	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ = [⟨((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
148	1, 62, 110, 117, 124	grpcld 18987	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) + (𝑐 · 𝑏)) ∈ 𝐵)
149	95, 113, 122, 115	submcld 33021	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑑) ∈ 𝑆)
150	1, 3, 62, 6, 7, 109, 113, 148, 126, 149, 118, 19	rlocaddval 33240	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ )
151	1, 62, 110, 141, 133	grpcld 18987	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑓) + (𝑒 · 𝑑)) ∈ 𝐵)
152	95, 113, 115, 118	submcld 33021	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑑 · 𝑓) ∈ 𝑆)
153	1, 3, 62, 6, 7, 109, 113, 112, 151, 122, 152, 19	rlocaddval 33240	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ) = [⟨((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
154	147, 150, 153	3eqtr4d 2790	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ))
155	1, 3, 62, 6, 7, 109, 113, 112, 121, 122, 115, 19	rlocaddval 33240	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ )
156	155	oveq1d 7463	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
157	1, 3, 62, 6, 7, 109, 113, 121, 126, 115, 118, 19	rlocaddval 33240	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ )
158	157	oveq2d 7464	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ))
159	154, 156, 158	3eqtr4d 2790	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
160		simp-7r 789	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
161		simp-4r 783	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
162	160, 161	oveq12d 7466	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
163		simpr 484	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑧 = [⟨𝑒, 𝑓⟩] ∼ )
164	162, 163	oveq12d 7466	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
165	161, 163	oveq12d 7466	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑦(+g‘𝐿)𝑧) = ([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
166	160, 165	oveq12d 7466	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
167	159, 164, 166	3eqtr4d 2790	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
168		simpr3 1196	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))
169	168	ad6antr 735	. . . . . . . 8 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))
170	169	elrlocbasi 33238	. . . . . . 7 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ∃𝑒 ∈ 𝐵 ∃𝑓 ∈ 𝑆 𝑧 = [⟨𝑒, 𝑓⟩] ∼ )
171	167, 170	r19.29vva 3222	. . . . . 6 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
172		simpr2 1195	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ))
173	172	ad5ant12 755	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ))
174	173	elrlocbasi 33238	. . . . . 6 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∃𝑐 ∈ 𝐵 ∃𝑑 ∈ 𝑆 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
175	171, 174	r19.29vva 3222	. . . . 5 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
176		simpr1 1194	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
177	176	elrlocbasi 33238	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ∃𝑎 ∈ 𝐵 ∃𝑏 ∈ 𝑆 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
178	175, 177	r19.29vva 3222	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
179	14, 15, 108, 178, 30, 60, 74	ismndd 18794	. . 3 ⊢ (𝜑 → 𝐿 ∈ Mnd)
180		eqid 2740	. . . . . . . 8 ⊢ (invg‘𝑅) = (invg‘𝑅)
181	1, 180, 46, 42	grpinvcld 19028	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((invg‘𝑅)‘𝑎) ∈ 𝐵)
182	181, 39	opelxpd 5739	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨((invg‘𝑅)‘𝑎), 𝑏⟩ ∈ (𝐵 × 𝑆))
183	28	ecelqsi 8831	. . . . . 6 ⊢ (⟨((invg‘𝑅)‘𝑎), 𝑏⟩ ∈ (𝐵 × 𝑆) → [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
184	182, 183	syl 17	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
185		simpr 484	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ )
186		simplr 768	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
187	185, 186	oveq12d 7466	. . . . . 6 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → (𝑢(+g‘𝐿)𝑥) = ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
188	187	eqeq1d 2742	. . . . 5 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → ((𝑢(+g‘𝐿)𝑥) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ↔ ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ))
189	1, 3, 62, 6, 7, 52, 37, 181, 42, 39, 39, 19	rlocaddval 33240	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)), (𝑏 · 𝑏)⟩] ∼ )
190	1, 62, 2, 180, 46, 42	grplinvd 19034	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((invg‘𝑅)‘𝑎) + 𝑎) = (0g‘𝑅))
191	190	oveq1d 7463	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((((invg‘𝑅)‘𝑎) + 𝑎) · 𝑏) = ((0g‘𝑅) · 𝑏))
192	1, 62, 3, 36, 181, 42, 40	ringdird 33210	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((((invg‘𝑅)‘𝑎) + 𝑎) · 𝑏) = ((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)))
193	191, 192, 41	3eqtr3d 2788	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)) = (0g‘𝑅))
194	193	opeq1d 4903	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)), (𝑏 · 𝑏)⟩ = ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩)
195	194	eceq1d 8803	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)), (𝑏 · 𝑏)⟩] ∼ = [⟨(0g‘𝑅), (𝑏 · 𝑏)⟩] ∼ )
196	1, 2, 23, 3, 4, 5, 7, 8, 9	erler 33237	. . . . . . . 8 ⊢ (𝜑 → ∼ Er (𝐵 × 𝑆))
197	196	ad4antr 731	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∼ Er (𝐵 × 𝑆))
198		eqidd 2741	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩ = ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩)
199		eqidd 2741	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(0g‘𝑅), (1r‘𝑅)⟩ = ⟨(0g‘𝑅), (1r‘𝑅)⟩)
200	95, 37, 39, 39	submcld 33021	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑏 · 𝑏) ∈ 𝑆)
201	1, 3, 23, 36, 53	ringridmd 20296	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅) · (1r‘𝑅)) = (0g‘𝑅))
202	38, 200	sseldd 4009	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑏 · 𝑏) ∈ 𝐵)
203	1, 3, 2, 36, 202	ringlzd 20318	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅) · (𝑏 · 𝑏)) = (0g‘𝑅))
204	201, 203	oveq12d 7466	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏))) = ((0g‘𝑅)(-g‘𝑅)(0g‘𝑅)))
205	1, 2, 4	grpsubid 19064	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Grp ∧ (0g‘𝑅) ∈ 𝐵) → ((0g‘𝑅)(-g‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
206	46, 53, 205	syl2anc 583	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅)(-g‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
207	204, 206	eqtrd 2780	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏))) = (0g‘𝑅))
208	207	oveq2d 7464	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑏 · 𝑏) · (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏)))) = ((𝑏 · 𝑏) · (0g‘𝑅)))
209	1, 3, 2, 36, 202	ringrzd 20319	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑏 · 𝑏) · (0g‘𝑅)) = (0g‘𝑅))
210	208, 209	eqtrd 2780	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑏 · 𝑏) · (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏)))) = (0g‘𝑅))
211	1, 7, 38, 2, 3, 4, 198, 199, 53, 53, 200, 54, 200, 210	erlbrd 33235	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩ ∼ ⟨(0g‘𝑅), (1r‘𝑅)⟩)
212	197, 211	erthi 8816	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨(0g‘𝑅), (𝑏 · 𝑏)⟩] ∼ = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
213	189, 195, 212	3eqtrd 2784	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
214	184, 188, 213	rspcedvd 3637	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∃𝑢 ∈ ((𝐵 × 𝑆) / ∼ )(𝑢(+g‘𝐿)𝑥) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
215	214, 59	r19.29vva 3222	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ∃𝑢 ∈ ((𝐵 × 𝑆) / ∼ )(𝑢(+g‘𝐿)𝑥) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
216	14, 15, 76, 179, 215	isgrpd2e 18995	. 2 ⊢ (𝜑 → 𝐿 ∈ Grp)
217	77, 78	oveq12d 7466	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
218		eqid 2740	. . . . . . . 8 ⊢ (.r‘𝐿) = (.r‘𝐿)
219	1, 3, 62, 6, 7, 80, 81, 82, 83, 84, 85, 218	rlocmulval 33241	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ )
220	1, 3, 88, 82, 83	ringcld 20286	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑎 · 𝑐) ∈ 𝐵)
221	220, 96	opelxpd 5739	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆))
222	28	ecelqsi 8831	. . . . . . . 8 ⊢ (⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆) → [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
223	221, 222	syl 17	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
224	219, 223	eqeltrd 2844	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) ∈ ((𝐵 × 𝑆) / ∼ ))
225	217, 224	eqeltrd 2844	. . . . 5 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
226	225, 103	r19.29vva 3222	. . . 4 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
227	226, 106	r19.29vva 3222	. . 3 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
228	227	3impa 1110	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
229	1, 3, 111, 112, 121, 126	ringassd 20284	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑐) · 𝑒) = (𝑎 · (𝑐 · 𝑒)))
230	229, 145	opeq12d 4905	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨((𝑎 · 𝑐) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩ = ⟨(𝑎 · (𝑐 · 𝑒)), (𝑏 · (𝑑 · 𝑓))⟩)
231	230	eceq1d 8803	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨((𝑎 · 𝑐) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ = [⟨(𝑎 · (𝑐 · 𝑒)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
232	1, 3, 111, 112, 121	ringcld 20286	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑐) ∈ 𝐵)
233	1, 3, 62, 6, 7, 109, 113, 232, 126, 149, 118, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨((𝑎 · 𝑐) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ )
234	1, 3, 111, 121, 126	ringcld 20286	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑐 · 𝑒) ∈ 𝐵)
235	1, 3, 62, 6, 7, 109, 113, 112, 234, 122, 152, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ) = [⟨(𝑎 · (𝑐 · 𝑒)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
236	231, 233, 235	3eqtr4d 2790	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
237	1, 3, 62, 6, 7, 109, 113, 112, 121, 122, 115, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ )
238	237	oveq1d 7463	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
239	1, 3, 62, 6, 7, 109, 113, 121, 126, 115, 118, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ )
240	239	oveq2d 7464	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
241	236, 238, 240	3eqtr4d 2790	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
242	160, 161	oveq12d 7466	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
243	242, 163	oveq12d 7466	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
244	161, 163	oveq12d 7466	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑦(.r‘𝐿)𝑧) = ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
245	160, 244	oveq12d 7466	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
246	241, 243, 245	3eqtr4d 2790	. . . . 5 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
247	246, 170	r19.29vva 3222	. . . 4 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
248	247, 174	r19.29vva 3222	. . 3 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
249	248, 177	r19.29vva 3222	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
250	196	ad10antr 743	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ∼ Er (𝐵 × 𝑆))
251		eqidd 2741	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩ = ⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩)
252	1, 3, 111, 112, 123	ringcld 20286	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑏) ∈ 𝐵)
253	1, 62, 3, 111, 252, 141, 133	ringdid 33209	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑏) · ((𝑐 · 𝑓) + (𝑒 · 𝑑))) = (((𝑎 · 𝑏) · (𝑐 · 𝑓)) + ((𝑎 · 𝑏) · (𝑒 · 𝑑))))
254	1, 3, 111, 112, 123, 151	ringassd 20284	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑏) · ((𝑐 · 𝑓) + (𝑒 · 𝑑))) = (𝑎 · (𝑏 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
255	253, 254	eqtr3d 2782	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑏) · (𝑐 · 𝑓)) + ((𝑎 · 𝑏) · (𝑒 · 𝑑))) = (𝑎 · (𝑏 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
256	10	crngmgp 20268	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
257	8, 256	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ CMnd)
258	257	ad10antr 743	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (mulGrp‘𝑅) ∈ CMnd)
259	11, 95, 258, 112, 121, 123, 119	cmn4d 33018	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑐) · (𝑏 · 𝑓)) = ((𝑎 · 𝑏) · (𝑐 · 𝑓)))
260	11, 95, 258, 112, 126, 123, 116	cmn4d 33018	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑒) · (𝑏 · 𝑑)) = ((𝑎 · 𝑏) · (𝑒 · 𝑑)))
261	259, 260	oveq12d 7466	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))) = (((𝑎 · 𝑏) · (𝑐 · 𝑓)) + ((𝑎 · 𝑏) · (𝑒 · 𝑑))))
262	1, 3, 109, 123, 112, 151	crng12d 20285	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))) = (𝑎 · (𝑏 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
263	255, 261, 262	3eqtr4d 2790	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))) = (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
264	1, 3, 109, 127, 123, 119	crng12d 20285	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · (𝑏 · 𝑓)) = (𝑏 · ((𝑏 · 𝑑) · 𝑓)))
265	145	oveq2d 7464	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · ((𝑏 · 𝑑) · 𝑓)) = (𝑏 · (𝑏 · (𝑑 · 𝑓))))
266	264, 265	eqtrd 2780	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · (𝑏 · 𝑓)) = (𝑏 · (𝑏 · (𝑑 · 𝑓))))
267	263, 266	opeq12d 4905	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩ = ⟨(𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))), (𝑏 · (𝑏 · (𝑑 · 𝑓)))⟩)
268	1, 3, 111, 112, 151	ringcld 20286	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))) ∈ 𝐵)
269	1, 3, 111, 123, 268	ringcld 20286	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))) ∈ 𝐵)
270	95, 113, 122, 152	submcld 33021	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑑 · 𝑓)) ∈ 𝑆)
271	95, 113, 122, 270	submcld 33021	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑏 · (𝑑 · 𝑓))) ∈ 𝑆)
272		eqidd 2741	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))) = (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
273		eqidd 2741	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑏 · (𝑑 · 𝑓))) = (𝑏 · (𝑏 · (𝑑 · 𝑓))))
274	1, 7, 109, 113, 3, 251, 267, 268, 269, 270, 271, 122, 272, 273	erlbr2d 33236	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩ ∼ ⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩)
275	250, 274	erthi 8816	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩] ∼ = [⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩] ∼ )
276	1, 3, 62, 6, 7, 109, 113, 112, 151, 122, 152, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ) = [⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
277	1, 3, 111, 112, 126	ringcld 20286	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑒) ∈ 𝐵)
278	95, 113, 122, 118	submcld 33021	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑓) ∈ 𝑆)
279	1, 3, 62, 6, 7, 109, 113, 232, 277, 149, 278, 19	rlocaddval 33240	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ ) = [⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩] ∼ )
280	275, 276, 279	3eqtr4d 2790	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ) = ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ ))
281	157	oveq2d 7464	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ))
282	1, 3, 62, 6, 7, 109, 113, 112, 126, 122, 118, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ )
283	237, 282	oveq12d 7466	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ ))
284	280, 281, 283	3eqtr4d 2790	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
285	160, 165	oveq12d 7466	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
286	160, 163	oveq12d 7466	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)𝑧) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
287	242, 286	oveq12d 7466	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
288	284, 285, 287	3eqtr4d 2790	. . . . 5 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
289	288, 170	r19.29vva 3222	. . . 4 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
290	289, 174	r19.29vva 3222	. . 3 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
291	290, 177	r19.29vva 3222	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
292	1, 62, 3, 111, 117, 124, 126	ringdird 33210	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒) = (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒)))
293	292	opeq1d 4903	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩ = ⟨(((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒)), ((𝑏 · 𝑑) · 𝑓)⟩)
294	1, 3, 111, 117, 126, 119	ringassd 20284	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) · 𝑒) · 𝑓) = ((𝑎 · 𝑑) · (𝑒 · 𝑓)))
295	1, 3, 111, 117, 126	ringcld 20286	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) · 𝑒) ∈ 𝐵)
296	1, 3, 109, 119, 295	crngcomd 20282	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · ((𝑎 · 𝑑) · 𝑒)) = (((𝑎 · 𝑑) · 𝑒) · 𝑓))
297	11, 95, 258, 112, 126, 116, 119	cmn4d 33018	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑒) · (𝑑 · 𝑓)) = ((𝑎 · 𝑑) · (𝑒 · 𝑓)))
298	294, 296, 297	3eqtr4rd 2791	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑒) · (𝑑 · 𝑓)) = (𝑓 · ((𝑎 · 𝑑) · 𝑒)))
299	1, 3, 111, 124, 126, 119	ringassd 20284	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑐 · 𝑏) · 𝑒) · 𝑓) = ((𝑐 · 𝑏) · (𝑒 · 𝑓)))
300	1, 3, 111, 124, 126	ringcld 20286	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑏) · 𝑒) ∈ 𝐵)
301	1, 3, 109, 119, 300	crngcomd 20282	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · ((𝑐 · 𝑏) · 𝑒)) = (((𝑐 · 𝑏) · 𝑒) · 𝑓))
302	11, 95, 258, 121, 126, 123, 119	cmn4d 33018	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑒) · (𝑏 · 𝑓)) = ((𝑐 · 𝑏) · (𝑒 · 𝑓)))
303	299, 301, 302	3eqtr4rd 2791	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑒) · (𝑏 · 𝑓)) = (𝑓 · ((𝑐 · 𝑏) · 𝑒)))
304	298, 303	oveq12d 7466	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))) = ((𝑓 · ((𝑎 · 𝑑) · 𝑒)) + (𝑓 · ((𝑐 · 𝑏) · 𝑒))))
305	1, 62, 3, 111, 119, 295, 300	ringdid 33209	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))) = ((𝑓 · ((𝑎 · 𝑑) · 𝑒)) + (𝑓 · ((𝑐 · 𝑏) · 𝑒))))
306	304, 305	eqtr4d 2783	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))) = (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))))
307	114, 278	sseldd 4009	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑓) ∈ 𝐵)
308	1, 3, 111, 116, 307, 119	ringassd 20284	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑑 · (𝑏 · 𝑓)) · 𝑓) = (𝑑 · ((𝑏 · 𝑓) · 𝑓)))
309	1, 3, 109, 123, 116	crngcomd 20282	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑑) = (𝑑 · 𝑏))
310	309	oveq1d 7463	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) = ((𝑑 · 𝑏) · 𝑓))
311	1, 3, 111, 116, 123, 119	ringassd 20284	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑑 · 𝑏) · 𝑓) = (𝑑 · (𝑏 · 𝑓)))
312	310, 311	eqtrd 2780	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) = (𝑑 · (𝑏 · 𝑓)))
313	312	oveq1d 7463	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑏 · 𝑑) · 𝑓) · 𝑓) = ((𝑑 · (𝑏 · 𝑓)) · 𝑓))
314	1, 3, 109, 307, 116, 119	crng12d 20285	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑓) · (𝑑 · 𝑓)) = (𝑑 · ((𝑏 · 𝑓) · 𝑓)))
315	308, 313, 314	3eqtr4rd 2791	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑓) · (𝑑 · 𝑓)) = (((𝑏 · 𝑑) · 𝑓) · 𝑓))
316	306, 315	opeq12d 4905	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩ = ⟨(𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))), (((𝑏 · 𝑑) · 𝑓) · 𝑓)⟩)
317	1, 62, 110, 295, 300	grpcld 18987	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒)) ∈ 𝐵)
318	1, 3, 111, 119, 317	ringcld 20286	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))) ∈ 𝐵)
319	145, 270	eqeltrd 2844	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) ∈ 𝑆)
320	95, 113, 319, 118	submcld 33021	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑏 · 𝑑) · 𝑓) · 𝑓) ∈ 𝑆)
321		eqidd 2741	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))) = (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))))
322	114, 319	sseldd 4009	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) ∈ 𝐵)
323	1, 3, 109, 322, 119	crngcomd 20282	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑏 · 𝑑) · 𝑓) · 𝑓) = (𝑓 · ((𝑏 · 𝑑) · 𝑓)))
324	1, 7, 109, 113, 3, 293, 316, 317, 318, 319, 320, 118, 321, 323	erlbr2d 33236	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩ ∼ ⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩)
325	250, 324	erthi 8816	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ = [⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩] ∼ )
326	1, 3, 62, 6, 7, 109, 113, 148, 126, 149, 118, 218	rlocmulval 33241	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ )
327	1, 3, 62, 6, 7, 109, 113, 277, 234, 278, 152, 19	rlocaddval 33240	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ (+g‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ) = [⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩] ∼ )
328	325, 326, 327	3eqtr4d 2790	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ (+g‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
329	155	oveq1d 7463	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
330	282, 239	oveq12d 7466	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )(+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ (+g‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
331	328, 329, 330	3eqtr4d 2790	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )(+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
332	162, 163	oveq12d 7466	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
333	286, 244	oveq12d 7466	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )(+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
334	331, 332, 333	3eqtr4d 2790	. . . . 5 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
335	334, 170	r19.29vva 3222	. . . 4 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
336	335, 174	r19.29vva 3222	. . 3 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
337	336, 177	r19.29vva 3222	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
338	13, 26	sseldd 4009	. . . 4 ⊢ (𝜑 → (1r‘𝑅) ∈ 𝐵)
339	338, 26	opelxpd 5739	. . 3 ⊢ (𝜑 → ⟨(1r‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆))
340	28	ecelqsi 8831	. . 3 ⊢ (⟨(1r‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆) → [⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
341	339, 340	syl 17	. 2 ⊢ (𝜑 → [⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
342	34	oveq2d 7464	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)𝑥) = ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
343	1, 3, 23, 36, 42	ringlidmd 20295	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((1r‘𝑅) · 𝑎) = 𝑎)
344	343, 49	opeq12d 4905	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨((1r‘𝑅) · 𝑎), ((1r‘𝑅) · 𝑏)⟩ = ⟨𝑎, 𝑏⟩)
345	344	eceq1d 8803	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨((1r‘𝑅) · 𝑎), ((1r‘𝑅) · 𝑏)⟩] ∼ = [⟨𝑎, 𝑏⟩] ∼ )
346	38, 54	sseldd 4009	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (1r‘𝑅) ∈ 𝐵)
347	1, 3, 62, 6, 7, 52, 37, 346, 42, 54, 39, 218	rlocmulval 33241	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨((1r‘𝑅) · 𝑎), ((1r‘𝑅) · 𝑏)⟩] ∼ )
348	345, 347, 34	3eqtr4d 2790	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = 𝑥)
349	342, 348	eqtrd 2780	. . 3 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)𝑥) = 𝑥)
350	349, 59	r19.29vva 3222	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)𝑥) = 𝑥)
351	1, 3, 62, 6, 7, 52, 37, 42, 346, 39, 54, 218	rlocmulval 33241	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = [⟨(𝑎 · (1r‘𝑅)), (𝑏 · (1r‘𝑅))⟩] ∼ )
352	34	oveq1d 7463	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ))
353	43	eqcomd 2746	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑎 = (𝑎 · (1r‘𝑅)))
354	353, 69	opeq12d 4905	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨𝑎, 𝑏⟩ = ⟨(𝑎 · (1r‘𝑅)), (𝑏 · (1r‘𝑅))⟩)
355	354	eceq1d 8803	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨𝑎, 𝑏⟩] ∼ = [⟨(𝑎 · (1r‘𝑅)), (𝑏 · (1r‘𝑅))⟩] ∼ )
356	351, 352, 355	3eqtr4d 2790	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = [⟨𝑎, 𝑏⟩] ∼ )
357	356, 34	eqtr4d 2783	. . 3 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
358	357, 59	r19.29vva 3222	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
359	1, 3, 80, 82, 83	crngcomd 20282	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑎 · 𝑐) = (𝑐 · 𝑎))
360	1, 3, 80, 92, 90	crngcomd 20282	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑏 · 𝑑) = (𝑑 · 𝑏))
361	359, 360	opeq12d 4905	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩ = ⟨(𝑐 · 𝑎), (𝑑 · 𝑏)⟩)
362	361	eceq1d 8803	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ = [⟨(𝑐 · 𝑎), (𝑑 · 𝑏)⟩] ∼ )
363	1, 3, 62, 6, 7, 80, 81, 83, 82, 85, 84, 218	rlocmulval 33241	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(𝑐 · 𝑎), (𝑑 · 𝑏)⟩] ∼ )
364	362, 219, 363	3eqtr4d 2790	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
365	78, 77	oveq12d 7466	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑦(.r‘𝐿)𝑥) = ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
366	364, 217, 365	3eqtr4d 2790	. . . . 5 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
367	366, 103	r19.29vva 3222	. . . 4 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
368	367, 106	r19.29vva 3222	. . 3 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
369	368	3impa 1110	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
370	14, 15, 16, 216, 228, 249, 291, 337, 341, 350, 358, 369	iscrngd 20315	1 ⊢ (𝜑 → 𝐿 ∈ CRing)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108  ∃wrex 3076   ⊆ wss 3976  ⟨cop 4654   × cxp 5698  ‘cfv 6573  (class class class)co 7448   Er wer 8760  [cec 8761   / cqs 8762  Basecbs 17258  +_gcplusg 17311  ._rcmulr 17312  0_gc0g 17499  SubMndcsubmnd 18817  Grpcgrp 18973  inv_gcminusg 18974  -_gcsg 18975  CMndccmn 19822  mulGrpcmgp 20161  1_rcur 20208  Ringcrg 20260  CRingccrg 20261   ~_RL cerl 33225   RLocal crloc 33226

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-ec 8765  df-qs 8769  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-sup 9511  df-inf 9512  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-uz 12904  df-fz 13568  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-0g 17501  df-imas 17568  df-qus 17569  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-submnd 18819  df-grp 18976  df-minusg 18977  df-sbg 18978  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262  df-cring 20263  df-erl 33227  df-rloc 33228

This theorem is referenced by:  rloc0g  33243  rloc1r  33244  rlocf1  33245  fracfld  33275