Theorem rloccring 33622

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 2766	. . 3 ⊢ (0g‘𝑅) = (0g‘𝑅)
3		rlocaddval.2	. . 3 ⊢ · = (.r‘𝑅)
4		eqid 2766	. . 3 ⊢ (-g‘𝑅) = (-g‘𝑅)
5		eqid 2766	. . 3 ⊢ (𝐵 × 𝑆) = (𝐵 × 𝑆)
6		rlocaddval.4	. . 3 ⊢ 𝐿 = (𝑅 RLocal 𝑆)
7		rlocaddval.5	. . 3 ⊢ ∼ = (𝑅 ~RL 𝑆)
8		rlocaddval.r	. . 3 ⊢ (𝜑 → 𝑅 ∈ CRing)
9		rlocaddval.s	. . . 4 ⊢ (𝜑 → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
10		eqid 2766	. . . . . 6 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
11	10, 1	mgpbas 20252	. . . . 5 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
12	11	submss 18898	. . . 4 ⊢ (𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) → 𝑆 ⊆ 𝐵)
13	9, 12	syl 18	. . 3 ⊢ (𝜑 → 𝑆 ⊆ 𝐵)
14	1, 2, 3, 4, 5, 6, 7, 8, 13	rlocbas 33619	. 2 ⊢ (𝜑 → ((𝐵 × 𝑆) / ∼ ) = (Base‘𝐿))
15		eqidd 2767	. 2 ⊢ (𝜑 → (+g‘𝐿) = (+g‘𝐿))
16		eqidd 2767	. 2 ⊢ (𝜑 → (.r‘𝐿) = (.r‘𝐿))
17		eqid 2766	. . . 4 ⊢ (Base‘𝐿) = (Base‘𝐿)
18		eqid 2766	. . . 4 ⊢ (0g‘𝐿) = (0g‘𝐿)
19		eqid 2766	. . . 4 ⊢ (+g‘𝐿) = (+g‘𝐿)
20	8	crngringd 20359	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ Ring)
21	1, 2	ring0cl 20382	. . . . . . . 8 ⊢ (𝑅 ∈ Ring → (0g‘𝑅) ∈ 𝐵)
22	20, 21	syl 18	. . . . . . 7 ⊢ (𝜑 → (0g‘𝑅) ∈ 𝐵)
23		eqid 2766	. . . . . . . . . 10 ⊢ (1r‘𝑅) = (1r‘𝑅)
24	10, 23	ringidval 20296	. . . . . . . . 9 ⊢ (1r‘𝑅) = (0g‘(mulGrp‘𝑅))
25	24	subm0cl 18900	. . . . . . . 8 ⊢ (𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) → (1r‘𝑅) ∈ 𝑆)
26	9, 25	syl 18	. . . . . . 7 ⊢ (𝜑 → (1r‘𝑅) ∈ 𝑆)
27	22, 26	opelxpd 5705	. . . . . 6 ⊢ (𝜑 → ⟨(0g‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆))
28	7	ovexi 7457	. . . . . . 7 ⊢ ∼ ∈ V
29	28	ecelqsi 8776	. . . . . 6 ⊢ (⟨(0g‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆) → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
30	27, 29	syl 18	. . . . 5 ⊢ (𝜑 → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
31	30, 14	eleqtrd 2868	. . . 4 ⊢ (𝜑 → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ∈ (Base‘𝐿))
32	14	eleq2d 2852	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ↔ 𝑥 ∈ (Base‘𝐿)))
33	32	biimpar 483	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐿)) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
34		simpr 490	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
35	34	oveq2d 7439	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
36	20	ad4antr 745	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑅 ∈ Ring)
37	9	ad4antr 745	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
38	37, 12	syl 18	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑆 ⊆ 𝐵)
39		simplr 781	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑏 ∈ 𝑆)
40	38, 39	sseldd 3941	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑏 ∈ 𝐵)
41	1, 3, 2, 36, 40	ringlzd 20411	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅) · 𝑏) = (0g‘𝑅))
42		simpllr 788	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑎 ∈ 𝐵)
43	1, 3, 23, 36, 42	ringridmd 20388	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑎 · (1r‘𝑅)) = 𝑎)
44	41, 43	oveq12d 7441	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))) = ((0g‘𝑅)(+g‘𝑅)𝑎))
45		eqid 2766	. . . . . . . . . . . 12 ⊢ (+g‘𝑅) = (+g‘𝑅)
46	36	ringgrpd 20355	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑅 ∈ Grp)
47	1, 45, 2, 46, 42	grplidd 19067	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅)(+g‘𝑅)𝑎) = 𝑎)
48	44, 47	eqtrd 2801	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))) = 𝑎)
49	1, 3, 23, 36, 40	ringlidmd 20387	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((1r‘𝑅) · 𝑏) = 𝑏)
50	48, 49	opeq12d 4851	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))), ((1r‘𝑅) · 𝑏)⟩ = ⟨𝑎, 𝑏⟩)
51	50	eceq1d 8744	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨(((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))), ((1r‘𝑅) · 𝑏)⟩] ∼ = [⟨𝑎, 𝑏⟩] ∼ )
52	8	ad4antr 745	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑅 ∈ CRing)
53	22	ad4antr 745	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (0g‘𝑅) ∈ 𝐵)
54	37, 25	syl 18	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (1r‘𝑅) ∈ 𝑆)
55	1, 3, 45, 6, 7, 52, 37, 53, 42, 54, 39, 19	rlocaddval 33620	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(((0g‘𝑅) · 𝑏)(+g‘𝑅)(𝑎 · (1r‘𝑅))), ((1r‘𝑅) · 𝑏)⟩] ∼ )
56	51, 55, 34	3eqtr4d 2811	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = 𝑥)
57	35, 56	eqtrd 2801	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = 𝑥)
58		simpr 490	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
59	58	elrlocbasi 33618	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ∃𝑎 ∈ 𝐵 ∃𝑏 ∈ 𝑆 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
60	57, 59	r19.29vva 3228	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = 𝑥)
61	33, 60	syldan 603	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐿)) → ([⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ (+g‘𝐿)𝑥) = 𝑥)
62		rlocaddval.3	. . . . . . . 8 ⊢ + = (+g‘𝑅)
63	1, 3, 62, 6, 7, 52, 37, 42, 53, 39, 54, 19	rlocaddval 33620	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = [⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩] ∼ )
64	34	oveq1d 7438	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ))
65	43, 41	oveq12d 7441	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)) = (𝑎 + (0g‘𝑅)))
66	1, 62, 2, 46, 42	grpridd 19068	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑎 + (0g‘𝑅)) = 𝑎)
67	65, 66	eqtr2d 2802	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑎 = ((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)))
68	1, 3, 23, 36, 40	ringridmd 20388	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑏 · (1r‘𝑅)) = 𝑏)
69	68	eqcomd 2772	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑏 = (𝑏 · (1r‘𝑅)))
70	67, 69	opeq12d 4851	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨𝑎, 𝑏⟩ = ⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩)
71	70	eceq1d 8744	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨𝑎, 𝑏⟩] ∼ = [⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩] ∼ )
72	34, 71	eqtrd 2801	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑥 = [⟨((𝑎 · (1r‘𝑅)) + ((0g‘𝑅) · 𝑏)), (𝑏 · (1r‘𝑅))⟩] ∼ )
73	63, 64, 72	3eqtr4d 2811	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
74	73, 59	r19.29vva 3228	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
75	33, 74	syldan 603	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐿)) → (𝑥(+g‘𝐿)[⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
76	17, 18, 19, 31, 61, 75	ismgmid2 18752	. . 3 ⊢ (𝜑 → [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ = (0g‘𝐿))
77		simp-4r 796	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
78		simpr 490	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
79	77, 78	oveq12d 7441	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
80	8	ad8antr 753	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑅 ∈ CRing)
81	9	ad8antr 753	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
82		simp-6r 800	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑎 ∈ 𝐵)
83		simpllr 788	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑐 ∈ 𝐵)
84		simp-5r 798	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑏 ∈ 𝑆)
85		simplr 781	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑑 ∈ 𝑆)
86	1, 3, 62, 6, 7, 80, 81, 82, 83, 84, 85, 19	rlocaddval 33620	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ )
87	80	crnggrpd 20360	. . . . . . . . . . . 12 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑅 ∈ Grp)
88	20	ad8antr 753	. . . . . . . . . . . . 13 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑅 ∈ Ring)
89	81, 12	syl 18	. . . . . . . . . . . . . 14 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑆 ⊆ 𝐵)
90	89, 85	sseldd 3941	. . . . . . . . . . . . 13 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑑 ∈ 𝐵)
91	1, 3, 88, 82, 90	ringcld 20370	. . . . . . . . . . . 12 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑎 · 𝑑) ∈ 𝐵)
92	89, 84	sseldd 3941	. . . . . . . . . . . . 13 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑏 ∈ 𝐵)
93	1, 3, 88, 83, 92	ringcld 20370	. . . . . . . . . . . 12 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑐 · 𝑏) ∈ 𝐵)
94	1, 62, 87, 91, 93	grpcld 19045	. . . . . . . . . . 11 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑎 · 𝑑) + (𝑐 · 𝑏)) ∈ 𝐵)
95	10, 3	mgpplusg 20251	. . . . . . . . . . . 12 ⊢ · = (+g‘(mulGrp‘𝑅))
96	95, 81, 84, 85	submcld 18902	. . . . . . . . . . 11 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑏 · 𝑑) ∈ 𝑆)
97	94, 96	opelxpd 5705	. . . . . . . . . 10 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆))
98	28	ecelqsi 8776	. . . . . . . . . 10 ⊢ (⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆) → [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
99	97, 98	syl 18	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
100	86, 99	eqeltrd 2866	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) ∈ ((𝐵 × 𝑆) / ∼ ))
101	79, 100	eqeltrd 2866	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
102		simp-4r 796	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ))
103	102	elrlocbasi 33618	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∃𝑐 ∈ 𝐵 ∃𝑑 ∈ 𝑆 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
104	101, 103	r19.29vva 3228	. . . . . 6 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
105		simplr 781	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
106	105	elrlocbasi 33618	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → ∃𝑎 ∈ 𝐵 ∃𝑏 ∈ 𝑆 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
107	104, 106	r19.29vva 3228	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
108	107	3impa 1127	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(+g‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
109	8	ad10antr 757	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑅 ∈ CRing)
110	109	crnggrpd 20360	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑅 ∈ Grp)
111	20	ad10antr 757	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑅 ∈ Ring)
112		simp-9r 806	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑎 ∈ 𝐵)
113	9	ad10antr 757	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
114	113, 12	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑆 ⊆ 𝐵)
115		simp-5r 798	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑑 ∈ 𝑆)
116	114, 115	sseldd 3941	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑑 ∈ 𝐵)
117	1, 3, 111, 112, 116	ringcld 20370	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑑) ∈ 𝐵)
118		simplr 781	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑓 ∈ 𝑆)
119	114, 118	sseldd 3941	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑓 ∈ 𝐵)
120	1, 3, 111, 117, 119	ringcld 20370	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) · 𝑓) ∈ 𝐵)
121		simp-6r 800	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑐 ∈ 𝐵)
122		simp-8r 804	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑏 ∈ 𝑆)
123	114, 122	sseldd 3941	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑏 ∈ 𝐵)
124	1, 3, 111, 121, 123	ringcld 20370	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑐 · 𝑏) ∈ 𝐵)
125	1, 3, 111, 124, 119	ringcld 20370	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑏) · 𝑓) ∈ 𝐵)
126		simpllr 788	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑒 ∈ 𝐵)
127	1, 3, 111, 123, 116	ringcld 20370	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑑) ∈ 𝐵)
128	1, 3, 111, 126, 127	ringcld 20370	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · (𝑏 · 𝑑)) ∈ 𝐵)
129	1, 62, 110, 120, 125, 128	grpassd 19043	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)) + (𝑒 · (𝑏 · 𝑑))) = (((𝑎 · 𝑑) · 𝑓) + (((𝑐 · 𝑏) · 𝑓) + (𝑒 · (𝑏 · 𝑑)))))
130	1, 3, 111, 112, 116, 119	ringassd 20371	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) · 𝑓) = (𝑎 · (𝑑 · 𝑓)))
131	1, 3, 109, 121, 123, 119	crng32d 20373	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑏) · 𝑓) = ((𝑐 · 𝑓) · 𝑏))
132	1, 3, 109, 126, 123, 116	crng12d 20372	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · (𝑏 · 𝑑)) = (𝑏 · (𝑒 · 𝑑)))
133	1, 3, 111, 126, 116	ringcld 20370	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · 𝑑) ∈ 𝐵)
134	1, 3, 109, 123, 133	crngcomd 20368	. . . . . . . . . . . . . . . . 17 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑒 · 𝑑)) = ((𝑒 · 𝑑) · 𝑏))
135	132, 134	eqtrd 2801	. . . . . . . . . . . . . . . 16 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑒 · (𝑏 · 𝑑)) = ((𝑒 · 𝑑) · 𝑏))
136	131, 135	oveq12d 7441	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑐 · 𝑏) · 𝑓) + (𝑒 · (𝑏 · 𝑑))) = (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏)))
137	130, 136	oveq12d 7441	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) · 𝑓) + (((𝑐 · 𝑏) · 𝑓) + (𝑒 · (𝑏 · 𝑑)))) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏))))
138	129, 137	eqtrd 2801	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)) + (𝑒 · (𝑏 · 𝑑))) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏))))
139	1, 62, 3, 111, 117, 124, 119	ringdird 20378	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) = (((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)))
140	139	oveq1d 7438	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))) = ((((𝑎 · 𝑑) · 𝑓) + ((𝑐 · 𝑏) · 𝑓)) + (𝑒 · (𝑏 · 𝑑))))
141	1, 3, 111, 121, 119	ringcld 20370	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑐 · 𝑓) ∈ 𝐵)
142	1, 62, 3, 111, 141, 133, 123	ringdird 20378	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏) = (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏)))
143	142	oveq2d 7439	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) · 𝑏) + ((𝑒 · 𝑑) · 𝑏))))
144	138, 140, 143	3eqtr4d 2811	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))) = ((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)))
145	1, 3, 111, 123, 116, 119	ringassd 20371	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) = (𝑏 · (𝑑 · 𝑓)))
146	144, 145	opeq12d 4851	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · 𝑓)⟩ = ⟨((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)), (𝑏 · (𝑑 · 𝑓))⟩)
147	146	eceq1d 8744	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ = [⟨((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
148	1, 62, 110, 117, 124	grpcld 19045	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) + (𝑐 · 𝑏)) ∈ 𝐵)
149	95, 113, 122, 115	submcld 18902	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑑) ∈ 𝑆)
150	1, 3, 62, 6, 7, 109, 113, 148, 126, 149, 118, 19	rlocaddval 33620	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨((((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑓) + (𝑒 · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ )
151	1, 62, 110, 141, 133	grpcld 19045	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑓) + (𝑒 · 𝑑)) ∈ 𝐵)
152	95, 113, 115, 118	submcld 18902	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑑 · 𝑓) ∈ 𝑆)
153	1, 3, 62, 6, 7, 109, 113, 112, 151, 122, 152, 19	rlocaddval 33620	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ) = [⟨((𝑎 · (𝑑 · 𝑓)) + (((𝑐 · 𝑓) + (𝑒 · 𝑑)) · 𝑏)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
154	147, 150, 153	3eqtr4d 2811	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ))
155	1, 3, 62, 6, 7, 109, 113, 112, 121, 122, 115, 19	rlocaddval 33620	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ )
156	155	oveq1d 7438	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
157	1, 3, 62, 6, 7, 109, 113, 121, 126, 115, 118, 19	rlocaddval 33620	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ )
158	157	oveq2d 7439	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ))
159	154, 156, 158	3eqtr4d 2811	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
160		simp-7r 802	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
161		simp-4r 796	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
162	160, 161	oveq12d 7441	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(+g‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
163		simpr 490	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → 𝑧 = [⟨𝑒, 𝑓⟩] ∼ )
164	162, 163	oveq12d 7441	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
165	161, 163	oveq12d 7441	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑦(+g‘𝐿)𝑧) = ([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
166	160, 165	oveq12d 7441	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
167	159, 164, 166	3eqtr4d 2811	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
168		simpr3 1215	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))
169	168	ad6antr 749	. . . . . . . 8 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))
170	169	elrlocbasi 33618	. . . . . . 7 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ∃𝑒 ∈ 𝐵 ∃𝑓 ∈ 𝑆 𝑧 = [⟨𝑒, 𝑓⟩] ∼ )
171	167, 170	r19.29vva 3228	. . . . . 6 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
172		simpr2 1214	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ))
173	172	ad3antrrr 743	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ))
174	173	elrlocbasi 33618	. . . . . 6 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∃𝑐 ∈ 𝐵 ∃𝑑 ∈ 𝑆 𝑦 = [⟨𝑐, 𝑑⟩] ∼ )
175	171, 174	r19.29vva 3228	. . . . 5 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
176		simpr1 1213	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ))
177	176	elrlocbasi 33618	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ∃𝑎 ∈ 𝐵 ∃𝑏 ∈ 𝑆 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
178	175, 177	r19.29vva 3228	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ((𝑥(+g‘𝐿)𝑦)(+g‘𝐿)𝑧) = (𝑥(+g‘𝐿)(𝑦(+g‘𝐿)𝑧)))
179	14, 15, 108, 178, 30, 60, 74	ismndd 18843	. . 3 ⊢ (𝜑 → 𝐿 ∈ Mnd)
180		eqid 2766	. . . . . . . 8 ⊢ (invg‘𝑅) = (invg‘𝑅)
181	1, 180, 46, 42	grpinvcld 19086	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((invg‘𝑅)‘𝑎) ∈ 𝐵)
182	181, 39	opelxpd 5705	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨((invg‘𝑅)‘𝑎), 𝑏⟩ ∈ (𝐵 × 𝑆))
183	28	ecelqsi 8776	. . . . . 6 ⊢ (⟨((invg‘𝑅)‘𝑎), 𝑏⟩ ∈ (𝐵 × 𝑆) → [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
184	182, 183	syl 18	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
185		simpr 490	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ )
186		simplr 781	. . . . . . 7 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → 𝑥 = [⟨𝑎, 𝑏⟩] ∼ )
187	185, 186	oveq12d 7441	. . . . . 6 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → (𝑢(+g‘𝐿)𝑥) = ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
188	187	eqeq1d 2768	. . . . 5 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑢 = [⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ ) → ((𝑢(+g‘𝐿)𝑥) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ↔ ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ ))
189	1, 3, 62, 6, 7, 52, 37, 181, 42, 39, 39, 19	rlocaddval 33620	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)), (𝑏 · 𝑏)⟩] ∼ )
190	1, 62, 2, 180, 46, 42	grplinvd 19092	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((invg‘𝑅)‘𝑎) + 𝑎) = (0g‘𝑅))
191	190	oveq1d 7438	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((((invg‘𝑅)‘𝑎) + 𝑎) · 𝑏) = ((0g‘𝑅) · 𝑏))
192	1, 62, 3, 36, 181, 42, 40	ringdird 20378	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((((invg‘𝑅)‘𝑎) + 𝑎) · 𝑏) = ((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)))
193	191, 192, 41	3eqtr3d 2809	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)) = (0g‘𝑅))
194	193	opeq1d 4849	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)), (𝑏 · 𝑏)⟩ = ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩)
195	194	eceq1d 8744	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨((((invg‘𝑅)‘𝑎) · 𝑏) + (𝑎 · 𝑏)), (𝑏 · 𝑏)⟩] ∼ = [⟨(0g‘𝑅), (𝑏 · 𝑏)⟩] ∼ )
196	1, 2, 23, 3, 4, 5, 7, 8, 9	erler 33616	. . . . . . . 8 ⊢ (𝜑 → ∼ Er (𝐵 × 𝑆))
197	196	ad4antr 745	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∼ Er (𝐵 × 𝑆))
198		eqidd 2767	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩ = ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩)
199		eqidd 2767	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(0g‘𝑅), (1r‘𝑅)⟩ = ⟨(0g‘𝑅), (1r‘𝑅)⟩)
200	95, 37, 39, 39	submcld 18902	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑏 · 𝑏) ∈ 𝑆)
201	1, 3, 23, 36, 53	ringridmd 20388	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅) · (1r‘𝑅)) = (0g‘𝑅))
202	38, 200	sseldd 3941	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑏 · 𝑏) ∈ 𝐵)
203	1, 3, 2, 36, 202	ringlzd 20411	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅) · (𝑏 · 𝑏)) = (0g‘𝑅))
204	201, 203	oveq12d 7441	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏))) = ((0g‘𝑅)(-g‘𝑅)(0g‘𝑅)))
205	1, 2, 4	grpsubid 19121	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Grp ∧ (0g‘𝑅) ∈ 𝐵) → ((0g‘𝑅)(-g‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
206	46, 53, 205	syl2anc 596	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((0g‘𝑅)(-g‘𝑅)(0g‘𝑅)) = (0g‘𝑅))
207	204, 206	eqtrd 2801	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏))) = (0g‘𝑅))
208	207	oveq2d 7439	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑏 · 𝑏) · (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏)))) = ((𝑏 · 𝑏) · (0g‘𝑅)))
209	1, 3, 2, 36, 202	ringrzd 20412	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑏 · 𝑏) · (0g‘𝑅)) = (0g‘𝑅))
210	208, 209	eqtrd 2801	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑏 · 𝑏) · (((0g‘𝑅) · (1r‘𝑅))(-g‘𝑅)((0g‘𝑅) · (𝑏 · 𝑏)))) = (0g‘𝑅))
211	1, 7, 38, 2, 3, 4, 198, 199, 53, 53, 200, 54, 200, 210	erlbrd 33614	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨(0g‘𝑅), (𝑏 · 𝑏)⟩ ∼ ⟨(0g‘𝑅), (1r‘𝑅)⟩)
212	197, 211	erthi 8760	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨(0g‘𝑅), (𝑏 · 𝑏)⟩] ∼ = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
213	189, 195, 212	3eqtrd 2805	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨((invg‘𝑅)‘𝑎), 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
214	184, 188, 213	rspcedvd 3586	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ∃𝑢 ∈ ((𝐵 × 𝑆) / ∼ )(𝑢(+g‘𝐿)𝑥) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
215	214, 59	r19.29vva 3228	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ∃𝑢 ∈ ((𝐵 × 𝑆) / ∼ )(𝑢(+g‘𝐿)𝑥) = [⟨(0g‘𝑅), (1r‘𝑅)⟩] ∼ )
216	14, 15, 76, 179, 215	isgrpd2e 19053	. 2 ⊢ (𝜑 → 𝐿 ∈ Grp)
217	77, 78	oveq12d 7441	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
218		eqid 2766	. . . . . . . 8 ⊢ (.r‘𝐿) = (.r‘𝐿)
219	1, 3, 62, 6, 7, 80, 81, 82, 83, 84, 85, 218	rlocmulval 33621	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ )
220	1, 3, 88, 82, 83	ringcld 20370	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑎 · 𝑐) ∈ 𝐵)
221	220, 96	opelxpd 5705	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆))
222	28	ecelqsi 8776	. . . . . . . 8 ⊢ (⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩ ∈ (𝐵 × 𝑆) → [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
223	221, 222	syl 18	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
224	219, 223	eqeltrd 2866	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) ∈ ((𝐵 × 𝑆) / ∼ ))
225	217, 224	eqeltrd 2866	. . . . 5 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
226	225, 103	r19.29vva 3228	. . . 4 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
227	226, 106	r19.29vva 3228	. . 3 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
228	227	3impa 1127	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) ∈ ((𝐵 × 𝑆) / ∼ ))
229	1, 3, 111, 112, 121, 126	ringassd 20371	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑐) · 𝑒) = (𝑎 · (𝑐 · 𝑒)))
230	229, 145	opeq12d 4851	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨((𝑎 · 𝑐) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩ = ⟨(𝑎 · (𝑐 · 𝑒)), (𝑏 · (𝑑 · 𝑓))⟩)
231	230	eceq1d 8744	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨((𝑎 · 𝑐) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ = [⟨(𝑎 · (𝑐 · 𝑒)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
232	1, 3, 111, 112, 121	ringcld 20370	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑐) ∈ 𝐵)
233	1, 3, 62, 6, 7, 109, 113, 232, 126, 149, 118, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨((𝑎 · 𝑐) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ )
234	1, 3, 111, 121, 126	ringcld 20370	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑐 · 𝑒) ∈ 𝐵)
235	1, 3, 62, 6, 7, 109, 113, 112, 234, 122, 152, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ) = [⟨(𝑎 · (𝑐 · 𝑒)), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
236	231, 233, 235	3eqtr4d 2811	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
237	1, 3, 62, 6, 7, 109, 113, 112, 121, 122, 115, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ )
238	237	oveq1d 7438	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
239	1, 3, 62, 6, 7, 109, 113, 121, 126, 115, 118, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ )
240	239	oveq2d 7439	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
241	236, 238, 240	3eqtr4d 2811	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
242	160, 161	oveq12d 7441	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ))
243	242, 163	oveq12d 7441	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
244	161, 163	oveq12d 7441	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑦(.r‘𝐿)𝑧) = ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
245	160, 244	oveq12d 7441	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
246	241, 243, 245	3eqtr4d 2811	. . . . 5 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
247	246, 170	r19.29vva 3228	. . . 4 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
248	247, 174	r19.29vva 3228	. . 3 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
249	248, 177	r19.29vva 3228	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ((𝑥(.r‘𝐿)𝑦)(.r‘𝐿)𝑧) = (𝑥(.r‘𝐿)(𝑦(.r‘𝐿)𝑧)))
250	196	ad10antr 757	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ∼ Er (𝐵 × 𝑆))
251		eqidd 2767	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩ = ⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩)
252	1, 3, 111, 112, 123	ringcld 20370	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑏) ∈ 𝐵)
253	1, 62, 3, 111, 252, 141, 133	ringdid 20377	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑏) · ((𝑐 · 𝑓) + (𝑒 · 𝑑))) = (((𝑎 · 𝑏) · (𝑐 · 𝑓)) + ((𝑎 · 𝑏) · (𝑒 · 𝑑))))
254	1, 3, 111, 112, 123, 151	ringassd 20371	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑏) · ((𝑐 · 𝑓) + (𝑒 · 𝑑))) = (𝑎 · (𝑏 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
255	253, 254	eqtr3d 2803	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑏) · (𝑐 · 𝑓)) + ((𝑎 · 𝑏) · (𝑒 · 𝑑))) = (𝑎 · (𝑏 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
256	10	crngmgp 20354	. . . . . . . . . . . . . . . 16 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
257	8, 256	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ CMnd)
258	257	ad10antr 757	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (mulGrp‘𝑅) ∈ CMnd)
259	11, 95, 258, 112, 121, 123, 119	cmn4d 33383	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑐) · (𝑏 · 𝑓)) = ((𝑎 · 𝑏) · (𝑐 · 𝑓)))
260	11, 95, 258, 112, 126, 123, 116	cmn4d 33383	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑒) · (𝑏 · 𝑑)) = ((𝑎 · 𝑏) · (𝑒 · 𝑑)))
261	259, 260	oveq12d 7441	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))) = (((𝑎 · 𝑏) · (𝑐 · 𝑓)) + ((𝑎 · 𝑏) · (𝑒 · 𝑑))))
262	1, 3, 109, 123, 112, 151	crng12d 20372	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))) = (𝑎 · (𝑏 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
263	255, 261, 262	3eqtr4d 2811	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))) = (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
264	1, 3, 109, 127, 123, 119	crng12d 20372	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · (𝑏 · 𝑓)) = (𝑏 · ((𝑏 · 𝑑) · 𝑓)))
265	145	oveq2d 7439	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · ((𝑏 · 𝑑) · 𝑓)) = (𝑏 · (𝑏 · (𝑑 · 𝑓))))
266	264, 265	eqtrd 2801	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · (𝑏 · 𝑓)) = (𝑏 · (𝑏 · (𝑑 · 𝑓))))
267	263, 266	opeq12d 4851	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩ = ⟨(𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))), (𝑏 · (𝑏 · (𝑑 · 𝑓)))⟩)
268	1, 3, 111, 112, 151	ringcld 20370	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))) ∈ 𝐵)
269	1, 3, 111, 123, 268	ringcld 20370	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))) ∈ 𝐵)
270	95, 113, 122, 152	submcld 18902	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑑 · 𝑓)) ∈ 𝑆)
271	95, 113, 122, 270	submcld 18902	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑏 · (𝑑 · 𝑓))) ∈ 𝑆)
272		eqidd 2767	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))) = (𝑏 · (𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑)))))
273		eqidd 2767	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · (𝑏 · (𝑑 · 𝑓))) = (𝑏 · (𝑏 · (𝑑 · 𝑓))))
274	1, 7, 109, 113, 3, 251, 267, 268, 269, 270, 271, 122, 272, 273	erlbr2d 33615	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩ ∼ ⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩)
275	250, 274	erthi 8760	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩] ∼ = [⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩] ∼ )
276	1, 3, 62, 6, 7, 109, 113, 112, 151, 122, 152, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ) = [⟨(𝑎 · ((𝑐 · 𝑓) + (𝑒 · 𝑑))), (𝑏 · (𝑑 · 𝑓))⟩] ∼ )
277	1, 3, 111, 112, 126	ringcld 20370	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑎 · 𝑒) ∈ 𝐵)
278	95, 113, 122, 118	submcld 18902	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑓) ∈ 𝑆)
279	1, 3, 62, 6, 7, 109, 113, 232, 277, 149, 278, 19	rlocaddval 33620	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ ) = [⟨(((𝑎 · 𝑐) · (𝑏 · 𝑓)) + ((𝑎 · 𝑒) · (𝑏 · 𝑑))), ((𝑏 · 𝑑) · (𝑏 · 𝑓))⟩] ∼ )
280	275, 276, 279	3eqtr4d 2811	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ) = ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ ))
281	157	oveq2d 7439	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨((𝑐 · 𝑓) + (𝑒 · 𝑑)), (𝑑 · 𝑓)⟩] ∼ ))
282	1, 3, 62, 6, 7, 109, 113, 112, 126, 122, 118, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ )
283	237, 282	oveq12d 7441	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ (+g‘𝐿)[⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ ))
284	280, 281, 283	3eqtr4d 2811	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
285	160, 165	oveq12d 7441	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (+g‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
286	160, 163	oveq12d 7441	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)𝑧) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
287	242, 286	oveq12d 7441	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(+g‘𝐿)([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
288	284, 285, 287	3eqtr4d 2811	. . . . 5 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
289	288, 170	r19.29vva 3228	. . . 4 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
290	289, 174	r19.29vva 3228	. . 3 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
291	290, 177	r19.29vva 3228	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → (𝑥(.r‘𝐿)(𝑦(+g‘𝐿)𝑧)) = ((𝑥(.r‘𝐿)𝑦)(+g‘𝐿)(𝑥(.r‘𝐿)𝑧)))
292	1, 62, 3, 111, 117, 124, 126	ringdird 20378	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒) = (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒)))
293	292	opeq1d 4849	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩ = ⟨(((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒)), ((𝑏 · 𝑑) · 𝑓)⟩)
294	1, 3, 111, 117, 126, 119	ringassd 20371	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) · 𝑒) · 𝑓) = ((𝑎 · 𝑑) · (𝑒 · 𝑓)))
295	1, 3, 111, 117, 126	ringcld 20370	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑑) · 𝑒) ∈ 𝐵)
296	1, 3, 109, 119, 295	crngcomd 20368	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · ((𝑎 · 𝑑) · 𝑒)) = (((𝑎 · 𝑑) · 𝑒) · 𝑓))
297	11, 95, 258, 112, 126, 116, 119	cmn4d 33383	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑒) · (𝑑 · 𝑓)) = ((𝑎 · 𝑑) · (𝑒 · 𝑓)))
298	294, 296, 297	3eqtr4rd 2812	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑎 · 𝑒) · (𝑑 · 𝑓)) = (𝑓 · ((𝑎 · 𝑑) · 𝑒)))
299	1, 3, 111, 124, 126, 119	ringassd 20371	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑐 · 𝑏) · 𝑒) · 𝑓) = ((𝑐 · 𝑏) · (𝑒 · 𝑓)))
300	1, 3, 111, 124, 126	ringcld 20370	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑏) · 𝑒) ∈ 𝐵)
301	1, 3, 109, 119, 300	crngcomd 20368	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · ((𝑐 · 𝑏) · 𝑒)) = (((𝑐 · 𝑏) · 𝑒) · 𝑓))
302	11, 95, 258, 121, 126, 123, 119	cmn4d 33383	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑒) · (𝑏 · 𝑓)) = ((𝑐 · 𝑏) · (𝑒 · 𝑓)))
303	299, 301, 302	3eqtr4rd 2812	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑐 · 𝑒) · (𝑏 · 𝑓)) = (𝑓 · ((𝑐 · 𝑏) · 𝑒)))
304	298, 303	oveq12d 7441	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))) = ((𝑓 · ((𝑎 · 𝑑) · 𝑒)) + (𝑓 · ((𝑐 · 𝑏) · 𝑒))))
305	1, 62, 3, 111, 119, 295, 300	ringdid 20377	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))) = ((𝑓 · ((𝑎 · 𝑑) · 𝑒)) + (𝑓 · ((𝑐 · 𝑏) · 𝑒))))
306	304, 305	eqtr4d 2804	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))) = (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))))
307	114, 278	sseldd 3941	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑓) ∈ 𝐵)
308	1, 3, 111, 116, 307, 119	ringassd 20371	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑑 · (𝑏 · 𝑓)) · 𝑓) = (𝑑 · ((𝑏 · 𝑓) · 𝑓)))
309	1, 3, 109, 123, 116	crngcomd 20368	. . . . . . . . . . . . . . 15 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑏 · 𝑑) = (𝑑 · 𝑏))
310	309	oveq1d 7438	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) = ((𝑑 · 𝑏) · 𝑓))
311	1, 3, 111, 116, 123, 119	ringassd 20371	. . . . . . . . . . . . . 14 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑑 · 𝑏) · 𝑓) = (𝑑 · (𝑏 · 𝑓)))
312	310, 311	eqtrd 2801	. . . . . . . . . . . . 13 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) = (𝑑 · (𝑏 · 𝑓)))
313	312	oveq1d 7438	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑏 · 𝑑) · 𝑓) · 𝑓) = ((𝑑 · (𝑏 · 𝑓)) · 𝑓))
314	1, 3, 109, 307, 116, 119	crng12d 20372	. . . . . . . . . . . 12 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑓) · (𝑑 · 𝑓)) = (𝑑 · ((𝑏 · 𝑓) · 𝑓)))
315	308, 313, 314	3eqtr4rd 2812	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑓) · (𝑑 · 𝑓)) = (((𝑏 · 𝑑) · 𝑓) · 𝑓))
316	306, 315	opeq12d 4851	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩ = ⟨(𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))), (((𝑏 · 𝑑) · 𝑓) · 𝑓)⟩)
317	1, 62, 110, 295, 300	grpcld 19045	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒)) ∈ 𝐵)
318	1, 3, 111, 119, 317	ringcld 20370	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))) ∈ 𝐵)
319	145, 270	eqeltrd 2866	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) ∈ 𝑆)
320	95, 113, 319, 118	submcld 18902	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑏 · 𝑑) · 𝑓) · 𝑓) ∈ 𝑆)
321		eqidd 2767	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))) = (𝑓 · (((𝑎 · 𝑑) · 𝑒) + ((𝑐 · 𝑏) · 𝑒))))
322	114, 319	sseldd 3941	. . . . . . . . . . 11 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑏 · 𝑑) · 𝑓) ∈ 𝐵)
323	1, 3, 109, 322, 119	crngcomd 20368	. . . . . . . . . 10 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (((𝑏 · 𝑑) · 𝑓) · 𝑓) = (𝑓 · ((𝑏 · 𝑑) · 𝑓)))
324	1, 7, 109, 113, 3, 293, 316, 317, 318, 319, 320, 118, 321, 323	erlbr2d 33615	. . . . . . . . 9 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩ ∼ ⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩)
325	250, 324	erthi 8760	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → [⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ = [⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩] ∼ )
326	1, 3, 62, 6, 7, 109, 113, 148, 126, 149, 118, 218	rlocmulval 33621	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = [⟨(((𝑎 · 𝑑) + (𝑐 · 𝑏)) · 𝑒), ((𝑏 · 𝑑) · 𝑓)⟩] ∼ )
327	1, 3, 62, 6, 7, 109, 113, 277, 234, 278, 152, 19	rlocaddval 33620	. . . . . . . 8 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ (+g‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ) = [⟨(((𝑎 · 𝑒) · (𝑑 · 𝑓)) + ((𝑐 · 𝑒) · (𝑏 · 𝑓))), ((𝑏 · 𝑓) · (𝑑 · 𝑓))⟩] ∼ )
328	325, 326, 327	3eqtr4d 2811	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ (+g‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
329	155	oveq1d 7438	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = ([⟨((𝑎 · 𝑑) + (𝑐 · 𝑏)), (𝑏 · 𝑑)⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
330	282, 239	oveq12d 7441	. . . . . . 7 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )(+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )) = ([⟨(𝑎 · 𝑒), (𝑏 · 𝑓)⟩] ∼ (+g‘𝐿)[⟨(𝑐 · 𝑒), (𝑑 · 𝑓)⟩] ∼ ))
331	328, 329, 330	3eqtr4d 2811	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )(+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
332	162, 163	oveq12d 7441	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = (([⟨𝑎, 𝑏⟩] ∼ (+g‘𝐿)[⟨𝑐, 𝑑⟩] ∼ )(.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ ))
333	286, 244	oveq12d 7441	. . . . . 6 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)) = (([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )(+g‘𝐿)([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑒, 𝑓⟩] ∼ )))
334	331, 332, 333	3eqtr4d 2811	. . . . 5 ⊢ (((((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) ∧ 𝑒 ∈ 𝐵) ∧ 𝑓 ∈ 𝑆) ∧ 𝑧 = [⟨𝑒, 𝑓⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
335	334, 170	r19.29vva 3228	. . . 4 ⊢ ((((((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
336	335, 174	r19.29vva 3228	. . 3 ⊢ (((((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
337	336, 177	r19.29vva 3228	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑧 ∈ ((𝐵 × 𝑆) / ∼ ))) → ((𝑥(+g‘𝐿)𝑦)(.r‘𝐿)𝑧) = ((𝑥(.r‘𝐿)𝑧)(+g‘𝐿)(𝑦(.r‘𝐿)𝑧)))
338	13, 26	sseldd 3941	. . . 4 ⊢ (𝜑 → (1r‘𝑅) ∈ 𝐵)
339	338, 26	opelxpd 5705	. . 3 ⊢ (𝜑 → ⟨(1r‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆))
340	28	ecelqsi 8776	. . 3 ⊢ (⟨(1r‘𝑅), (1r‘𝑅)⟩ ∈ (𝐵 × 𝑆) → [⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
341	339, 340	syl 18	. 2 ⊢ (𝜑 → [⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ∈ ((𝐵 × 𝑆) / ∼ ))
342	34	oveq2d 7439	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)𝑥) = ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
343	1, 3, 23, 36, 42	ringlidmd 20387	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ((1r‘𝑅) · 𝑎) = 𝑎)
344	343, 49	opeq12d 4851	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨((1r‘𝑅) · 𝑎), ((1r‘𝑅) · 𝑏)⟩ = ⟨𝑎, 𝑏⟩)
345	344	eceq1d 8744	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨((1r‘𝑅) · 𝑎), ((1r‘𝑅) · 𝑏)⟩] ∼ = [⟨𝑎, 𝑏⟩] ∼ )
346	38, 54	sseldd 3941	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (1r‘𝑅) ∈ 𝐵)
347	1, 3, 62, 6, 7, 52, 37, 346, 42, 54, 39, 218	rlocmulval 33621	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨((1r‘𝑅) · 𝑎), ((1r‘𝑅) · 𝑏)⟩] ∼ )
348	345, 347, 34	3eqtr4d 2811	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = 𝑥)
349	342, 348	eqtrd 2801	. . 3 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)𝑥) = 𝑥)
350	349, 59	r19.29vva 3228	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → ([⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ (.r‘𝐿)𝑥) = 𝑥)
351	1, 3, 62, 6, 7, 52, 37, 42, 346, 39, 54, 218	rlocmulval 33621	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = [⟨(𝑎 · (1r‘𝑅)), (𝑏 · (1r‘𝑅))⟩] ∼ )
352	34	oveq1d 7438	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ))
353	43	eqcomd 2772	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → 𝑎 = (𝑎 · (1r‘𝑅)))
354	353, 69	opeq12d 4851	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → ⟨𝑎, 𝑏⟩ = ⟨(𝑎 · (1r‘𝑅)), (𝑏 · (1r‘𝑅))⟩)
355	354	eceq1d 8744	. . . . 5 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → [⟨𝑎, 𝑏⟩] ∼ = [⟨(𝑎 · (1r‘𝑅)), (𝑏 · (1r‘𝑅))⟩] ∼ )
356	351, 352, 355	3eqtr4d 2811	. . . 4 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = [⟨𝑎, 𝑏⟩] ∼ )
357	356, 34	eqtr4d 2804	. . 3 ⊢ (((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
358	357, 59	r19.29vva 3228	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)[⟨(1r‘𝑅), (1r‘𝑅)⟩] ∼ ) = 𝑥)
359	1, 3, 80, 82, 83	crngcomd 20368	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑎 · 𝑐) = (𝑐 · 𝑎))
360	1, 3, 80, 92, 90	crngcomd 20368	. . . . . . . . 9 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑏 · 𝑑) = (𝑑 · 𝑏))
361	359, 360	opeq12d 4851	. . . . . . . 8 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩ = ⟨(𝑐 · 𝑎), (𝑑 · 𝑏)⟩)
362	361	eceq1d 8744	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → [⟨(𝑎 · 𝑐), (𝑏 · 𝑑)⟩] ∼ = [⟨(𝑐 · 𝑎), (𝑑 · 𝑏)⟩] ∼ )
363	1, 3, 62, 6, 7, 80, 81, 83, 82, 85, 84, 218	rlocmulval 33621	. . . . . . 7 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ) = [⟨(𝑐 · 𝑎), (𝑑 · 𝑏)⟩] ∼ )
364	362, 219, 363	3eqtr4d 2811	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → ([⟨𝑎, 𝑏⟩] ∼ (.r‘𝐿)[⟨𝑐, 𝑑⟩] ∼ ) = ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
365	78, 77	oveq12d 7441	. . . . . 6 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑦(.r‘𝐿)𝑥) = ([⟨𝑐, 𝑑⟩] ∼ (.r‘𝐿)[⟨𝑎, 𝑏⟩] ∼ ))
366	364, 217, 365	3eqtr4d 2811	. . . . 5 ⊢ (((((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) ∧ 𝑐 ∈ 𝐵) ∧ 𝑑 ∈ 𝑆) ∧ 𝑦 = [⟨𝑐, 𝑑⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
367	366, 103	r19.29vva 3228	. . . 4 ⊢ ((((((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑎 ∈ 𝐵) ∧ 𝑏 ∈ 𝑆) ∧ 𝑥 = [⟨𝑎, 𝑏⟩] ∼ ) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
368	367, 106	r19.29vva 3228	. . 3 ⊢ (((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ )) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
369	368	3impa 1127	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ ((𝐵 × 𝑆) / ∼ ) ∧ 𝑦 ∈ ((𝐵 × 𝑆) / ∼ )) → (𝑥(.r‘𝐿)𝑦) = (𝑦(.r‘𝐿)𝑥))
370	14, 15, 16, 216, 228, 249, 291, 337, 341, 350, 358, 369	iscrngd 20408	1 ⊢ (𝜑 → 𝐿 ∈ CRing)

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146  ∃wrex 3092   ⊆ wss 3908  ⟨cop 4600   × cxp 5664  ‘cfv 6543  (class class class)co 7423   Er wer 8700  [cec 8701   / cqs 8702  Basecbs 17294  +_gcplusg 17335  ._rcmulr 17336  0_gc0g 17517  SubMndcsubmnd 18871  Grpcgrp 19031  inv_gcminusg 19032  -_gcsg 19033  CMndccmn 19881  mulGrpcmgp 20247  1_rcur 20294  Ringcrg 20346  CRingccrg 20347   ~_RL cerl 33604   RLocal crloc 33605

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8703  df-ec 8705  df-qs 8709  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-sup 9412  df-inf 9413  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-nn 12252  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12523  df-z 12610  df-dec 12730  df-uz 12881  df-fz 13554  df-struct 17232  df-sets 17249  df-slot 17267  df-ndx 17279  df-base 17295  df-ress 17316  df-plusg 17348  df-mulr 17349  df-sca 17351  df-vsca 17352  df-ip 17353  df-tset 17354  df-ple 17355  df-ds 17357  df-0g 17519  df-imas 17587  df-qus 17588  df-mgm 18723  df-sgrp 18806  df-mnd 18822  df-submnd 18873  df-grp 19034  df-minusg 19035  df-sbg 19036  df-cmn 19883  df-abl 19884  df-mgp 20248  df-rng 20262  df-ur 20295  df-ring 20348  df-cring 20349  df-erl 33606  df-rloc 33607

This theorem is used by:  rloc0g  33623  rloc1r  33624  rlocf1  33625  rlocinvunit  33626  rlocisunit  33627  fracfld  33660