Theorem rlocmulval 33920

Description: Value of the addition in the ring localization, given two representatives. (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‘𝑅)))
rlocaddval.6	⊢ (𝜑 → 𝐸 ∈ 𝐵)
rlocaddval.7	⊢ (𝜑 → 𝐹 ∈ 𝐵)
rlocaddval.8	⊢ (𝜑 → 𝐺 ∈ 𝑆)
rlocaddval.9	⊢ (𝜑 → 𝐻 ∈ 𝑆)
rlocmulval.1	⊢ ⊗ = (.r‘𝐿)

Assertion

Ref	Expression
rlocmulval	⊢ (𝜑 → ([⟨𝐸, 𝐺⟩] ∼ ⊗ [⟨𝐹, 𝐻⟩] ∼ ) = [⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩] ∼ )

Proof of Theorem rlocmulval

Dummy variables 𝑝 𝑞 𝑢 𝑣 𝑎 𝑏 𝑘 𝑓 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		rlocaddval.6	. . . 4 ⊢ (𝜑 → 𝐸 ∈ 𝐵)
2		rlocaddval.8	. . . 4 ⊢ (𝜑 → 𝐺 ∈ 𝑆)
3	1, 2	opelxpd 5695	. . 3 ⊢ (𝜑 → ⟨𝐸, 𝐺⟩ ∈ (𝐵 × 𝑆))
4		rlocaddval.7	. . . 4 ⊢ (𝜑 → 𝐹 ∈ 𝐵)
5		rlocaddval.9	. . . 4 ⊢ (𝜑 → 𝐻 ∈ 𝑆)
6	4, 5	opelxpd 5695	. . 3 ⊢ (𝜑 → ⟨𝐹, 𝐻⟩ ∈ (𝐵 × 𝑆))
7		rlocaddval.4	. . . . 5 ⊢ 𝐿 = (𝑅 RLocal 𝑆)
8		rlocaddval.1	. . . . . 6 ⊢ 𝐵 = (Base‘𝑅)
9		eqid 2763	. . . . . 6 ⊢ (0g‘𝑅) = (0g‘𝑅)
10		rlocaddval.2	. . . . . 6 ⊢ · = (.r‘𝑅)
11		eqid 2763	. . . . . 6 ⊢ (-g‘𝑅) = (-g‘𝑅)
12		rlocaddval.3	. . . . . 6 ⊢ + = (+g‘𝑅)
13		eqid 2763	. . . . . 6 ⊢ (le‘𝑅) = (le‘𝑅)
14		eqid 2763	. . . . . 6 ⊢ (Scalar‘𝑅) = (Scalar‘𝑅)
15		eqid 2763	. . . . . 6 ⊢ (Base‘(Scalar‘𝑅)) = (Base‘(Scalar‘𝑅))
16		eqid 2763	. . . . . 6 ⊢ ( ·𝑠 ‘𝑅) = ( ·𝑠 ‘𝑅)
17		eqid 2763	. . . . . 6 ⊢ (𝐵 × 𝑆) = (𝐵 × 𝑆)
18		rlocaddval.5	. . . . . 6 ⊢ ∼ = (𝑅 ~RL 𝑆)
19		eqid 2763	. . . . . 6 ⊢ (TopSet‘𝑅) = (TopSet‘𝑅)
20		eqid 2763	. . . . . 6 ⊢ (dist‘𝑅) = (dist‘𝑅)
21		eqid 2763	. . . . . 6 ⊢ (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩) = (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)
22		eqid 2763	. . . . . 6 ⊢ (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩) = (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)
23		eqid 2763	. . . . . 6 ⊢ (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩) = (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)
24		eqid 2763	. . . . . 6 ⊢ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))} = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}
25		eqid 2763	. . . . . 6 ⊢ (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))) = (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))
26		rlocaddval.r	. . . . . 6 ⊢ (𝜑 → 𝑅 ∈ CRing)
27		rlocaddval.s	. . . . . . 7 ⊢ (𝜑 → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
28		eqid 2763	. . . . . . . . 9 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
29	28, 8	mgpbas 20407	. . . . . . . 8 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
30	29	submss 19045	. . . . . . 7 ⊢ (𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) → 𝑆 ⊆ 𝐵)
31	27, 30	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑆 ⊆ 𝐵)
32	8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 31	rlocval 33909	. . . . 5 ⊢ (𝜑 → (𝑅 RLocal 𝑆) = ((({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) /s ∼ ))
33	7, 32	eqtrid 2810	. . . 4 ⊢ (𝜑 → 𝐿 = ((({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) /s ∼ ))
34		eqidd 2764	. . . . . 6 ⊢ (𝜑 → (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) = (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))
35		eqid 2763	. . . . . . 7 ⊢ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) = (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})
36	35	imasvalstr 17663	. . . . . 6 ⊢ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) Struct ⟨1, ;12⟩
37		baseid 17431	. . . . . 6 ⊢ Base = Slot (Base‘ndx)
38		snsstp1 4775	. . . . . . 7 ⊢ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩} ⊆ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩}
39		ssun1 4179	. . . . . . . 8 ⊢ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ⊆ ({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩})
40		ssun1 4179	. . . . . . . 8 ⊢ ({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ⊆ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})
41	39, 40	sstri 3922	. . . . . . 7 ⊢ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ⊆ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})
42	38, 41	sstri 3922	. . . . . 6 ⊢ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩} ⊆ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})
43	8	fvexi 6928	. . . . . . . 8 ⊢ 𝐵 ∈ V
44	43	a1i 11	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ V)
45	44, 27	xpexd 7795	. . . . . 6 ⊢ (𝜑 → (𝐵 × 𝑆) ∈ V)
46		eqid 2763	. . . . . 6 ⊢ (Base‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})) = (Base‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))
47	34, 36, 37, 42, 45, 46	strfv3 17423	. . . . 5 ⊢ (𝜑 → (Base‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})) = (𝐵 × 𝑆))
48	47	eqcomd 2769	. . . 4 ⊢ (𝜑 → (𝐵 × 𝑆) = (Base‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})))
49		eqid 2763	. . . . 5 ⊢ (1r‘𝑅) = (1r‘𝑅)
50	8, 9, 49, 10, 11, 17, 18, 26, 27	erler 33915	. . . 4 ⊢ (𝜑 → ∼ Er (𝐵 × 𝑆))
51		tpex 7792	. . . . . . 7 ⊢ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∈ V
52		tpex 7792	. . . . . . 7 ⊢ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩} ∈ V
53	51, 52	unex 7791	. . . . . 6 ⊢ ({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∈ V
54		tpex 7792	. . . . . 6 ⊢ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩} ∈ V
55	53, 54	unex 7791	. . . . 5 ⊢ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) ∈ V
56	55	a1i 11	. . . 4 ⊢ (𝜑 → (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}) ∈ V)
57	31	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑆 ⊆ 𝐵)
58	57	ad2antrr 739	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) → 𝑆 ⊆ 𝐵)
59	58	ad2antrr 739	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑆 ⊆ 𝐵)
60		eqidd 2764	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ = ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩)
61		eqidd 2764	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩ = ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
62	26	crngringd 20515	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ∈ Ring)
63	62	ad6antr 749	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑅 ∈ Ring)
64		simplr 781	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑢 ∼ 𝑝)
65	8, 18, 57, 64	erlcl1 33910	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑢 ∈ (𝐵 × 𝑆))
66	65	ad4antr 745	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑢 ∈ (𝐵 × 𝑆))
67		xp1st 8065	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ (𝐵 × 𝑆) → (1st ‘𝑢) ∈ 𝐵)
68	66, 67	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (1st ‘𝑢) ∈ 𝐵)
69		simpr 490	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑣 ∼ 𝑞)
70	8, 18, 57, 69	erlcl1 33910	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑣 ∈ (𝐵 × 𝑆))
71	70	ad4antr 745	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑣 ∈ (𝐵 × 𝑆))
72		xp1st 8065	. . . . . . . . . . . 12 ⊢ (𝑣 ∈ (𝐵 × 𝑆) → (1st ‘𝑣) ∈ 𝐵)
73	71, 72	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (1st ‘𝑣) ∈ 𝐵)
74	8, 10, 63, 68, 73	ringcld 20526	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑢) · (1st ‘𝑣)) ∈ 𝐵)
75	8, 18, 57, 64	erlcl2 33911	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑝 ∈ (𝐵 × 𝑆))
76	75	ad4antr 745	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑝 ∈ (𝐵 × 𝑆))
77		xp1st 8065	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ (𝐵 × 𝑆) → (1st ‘𝑝) ∈ 𝐵)
78	76, 77	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (1st ‘𝑝) ∈ 𝐵)
79	8, 18, 57, 69	erlcl2 33911	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑞 ∈ (𝐵 × 𝑆))
80	79	ad4antr 745	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑞 ∈ (𝐵 × 𝑆))
81		xp1st 8065	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ (𝐵 × 𝑆) → (1st ‘𝑞) ∈ 𝐵)
82	80, 81	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (1st ‘𝑞) ∈ 𝐵)
83	8, 10, 63, 78, 82	ringcld 20526	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑝) · (1st ‘𝑞)) ∈ 𝐵)
84	27	ad6antr 749	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
85		xp2nd 8066	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ (𝐵 × 𝑆) → (2nd ‘𝑢) ∈ 𝑆)
86	66, 85	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑢) ∈ 𝑆)
87		xp2nd 8066	. . . . . . . . . . . 12 ⊢ (𝑣 ∈ (𝐵 × 𝑆) → (2nd ‘𝑣) ∈ 𝑆)
88	71, 87	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑣) ∈ 𝑆)
89	28, 10	mgpplusg 20406	. . . . . . . . . . . 12 ⊢ · = (+g‘(mulGrp‘𝑅))
90	89	submcl 19048	. . . . . . . . . . 11 ⊢ ((𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) ∧ (2nd ‘𝑢) ∈ 𝑆 ∧ (2nd ‘𝑣) ∈ 𝑆) → ((2nd ‘𝑢) · (2nd ‘𝑣)) ∈ 𝑆)
91	84, 86, 88, 90	syl3anc 1399	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((2nd ‘𝑢) · (2nd ‘𝑣)) ∈ 𝑆)
92		xp2nd 8066	. . . . . . . . . . . 12 ⊢ (𝑝 ∈ (𝐵 × 𝑆) → (2nd ‘𝑝) ∈ 𝑆)
93	76, 92	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑝) ∈ 𝑆)
94		xp2nd 8066	. . . . . . . . . . . 12 ⊢ (𝑞 ∈ (𝐵 × 𝑆) → (2nd ‘𝑞) ∈ 𝑆)
95	80, 94	syl 18	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑞) ∈ 𝑆)
96	89	submcl 19048	. . . . . . . . . . 11 ⊢ ((𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) ∧ (2nd ‘𝑝) ∈ 𝑆 ∧ (2nd ‘𝑞) ∈ 𝑆) → ((2nd ‘𝑝) · (2nd ‘𝑞)) ∈ 𝑆)
97	84, 93, 95, 96	syl3anc 1399	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((2nd ‘𝑝) · (2nd ‘𝑞)) ∈ 𝑆)
98		simp-4r 796	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑓 ∈ 𝑆)
99		simplr 781	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑔 ∈ 𝑆)
100	89	submcl 19048	. . . . . . . . . . 11 ⊢ ((𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)) ∧ 𝑓 ∈ 𝑆 ∧ 𝑔 ∈ 𝑆) → (𝑓 · 𝑔) ∈ 𝑆)
101	84, 98, 99, 100	syl3anc 1399	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑓 · 𝑔) ∈ 𝑆)
102	59, 101	sseldd 3914	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑓 · 𝑔) ∈ 𝐵)
103	59, 97	sseldd 3914	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((2nd ‘𝑝) · (2nd ‘𝑞)) ∈ 𝐵)
104	8, 10, 63, 74, 103	ringcld 20526	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))) ∈ 𝐵)
105	59, 91	sseldd 3914	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((2nd ‘𝑢) · (2nd ‘𝑣)) ∈ 𝐵)
106	8, 10, 63, 83, 105	ringcld 20526	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))) ∈ 𝐵)
107	8, 10, 11, 63, 102, 104, 106	ringsubdi 20580	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · ((((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞)))(-g‘𝑅)(((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))) = (((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))))
108	63	ringgrpd 20511	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑅 ∈ Grp)
109	8, 10, 63, 102, 104	ringcld 20526	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞)))) ∈ 𝐵)
110	8, 10, 63, 78, 73	ringcld 20526	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑝) · (1st ‘𝑣)) ∈ 𝐵)
111	59, 86	sseldd 3914	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑢) ∈ 𝐵)
112	59, 95	sseldd 3914	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑞) ∈ 𝐵)
113	8, 10, 63, 111, 112	ringcld 20526	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((2nd ‘𝑢) · (2nd ‘𝑞)) ∈ 𝐵)
114	8, 10, 63, 110, 113	ringcld 20526	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))) ∈ 𝐵)
115	8, 10, 63, 102, 114	ringcld 20526	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))) ∈ 𝐵)
116	8, 10, 63, 102, 106	ringcld 20526	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))) ∈ 𝐵)
117	8, 12, 11	grpnpncan 19286	. . . . . . . . . . . 12 ⊢ ((𝑅 ∈ Grp ∧ (((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞)))) ∈ 𝐵 ∧ ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))) ∈ 𝐵 ∧ ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))) ∈ 𝐵)) → ((((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))) + (((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))))) = (((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))))
118	108, 109, 115, 116, 117	syl13anc 1400	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))) + (((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))))) = (((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))))
119	26	ad2antrr 739	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → 𝑅 ∈ CRing)
120	119	ad2antrr 739	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) → 𝑅 ∈ CRing)
121	120	ad2antrr 739	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑅 ∈ CRing)
122	28	crngmgp 20509	. . . . . . . . . . . . . . . . 17 ⊢ (𝑅 ∈ CRing → (mulGrp‘𝑅) ∈ CMnd)
123	121, 122	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (mulGrp‘𝑅) ∈ CMnd)
124	59, 98	sseldd 3914	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑓 ∈ 𝐵)
125	59, 99	sseldd 3914	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → 𝑔 ∈ 𝐵)
126	59, 93	sseldd 3914	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑝) ∈ 𝐵)
127	29, 89, 123, 124, 125, 68, 73, 126, 112	cmn246135 33683	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞)))) = ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝)))))
128	29, 89, 123, 124, 125, 78, 73, 111, 112	cmn246135 33683	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))) = ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢)))))
129	127, 128	oveq12d 7467	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))) = (((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝))))(-g‘𝑅)((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))))))
130	8, 10, 63, 73, 112	ringcld 20526	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑣) · (2nd ‘𝑞)) ∈ 𝐵)
131	8, 10, 63, 125, 130	ringcld 20526	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) ∈ 𝐵)
132	8, 10, 63, 68, 126	ringcld 20526	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑢) · (2nd ‘𝑝)) ∈ 𝐵)
133	8, 10, 63, 124, 132	ringcld 20526	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝))) ∈ 𝐵)
134	8, 10, 63, 78, 111	ringcld 20526	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑝) · (2nd ‘𝑢)) ∈ 𝐵)
135	8, 10, 63, 124, 134	ringcld 20526	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) ∈ 𝐵)
136	8, 10, 11, 63, 131, 133, 135	ringsubdi 20580	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · ((𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝)))(-g‘𝑅)(𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))))) = (((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝))))(-g‘𝑅)((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))))))
137	8, 10, 11, 63, 124, 132, 134	ringsubdi 20580	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = ((𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝)))(-g‘𝑅)(𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢)))))
138		simpllr 788	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅))
139	137, 138	eqtr3d 2800	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝)))(-g‘𝑅)(𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅))
140	139	oveq2d 7465	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · ((𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝)))(-g‘𝑅)(𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))))) = ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (0g‘𝑅)))
141	8, 10, 9, 63, 131	ringrzd 20569	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (0g‘𝑅)) = (0g‘𝑅))
142	140, 141	eqtrd 2798	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · ((𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝)))(-g‘𝑅)(𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))))) = (0g‘𝑅))
143	136, 142	eqtr3d 2800	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑢) · (2nd ‘𝑝))))(-g‘𝑅)((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))) · (𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))))) = (0g‘𝑅))
144	129, 143	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))) = (0g‘𝑅))
145	8, 10, 121, 78, 73	crngcomd 20524	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑝) · (1st ‘𝑣)) = ((1st ‘𝑣) · (1st ‘𝑝)))
146	145	oveq1d 7464	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))) = (((1st ‘𝑣) · (1st ‘𝑝)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))
147	146	oveq2d 7465	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))) = ((𝑓 · 𝑔) · (((1st ‘𝑣) · (1st ‘𝑝)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))))
148	29, 89, 123, 124, 125, 73, 78, 111, 112	cmn145236 33684	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑣) · (1st ‘𝑝)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))) = ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞)))))
149	147, 148	eqtrd 2798	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞)))) = ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞)))))
150	8, 10, 121, 82, 78	crngcomd 20524	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑞) · (1st ‘𝑝)) = ((1st ‘𝑝) · (1st ‘𝑞)))
151	150	oveq1d 7464	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((1st ‘𝑞) · (1st ‘𝑝)) · ((2nd ‘𝑢) · (2nd ‘𝑣))) = (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))
152	151	oveq2d 7465	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑞) · (1st ‘𝑝)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))) = ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))))
153	59, 88	sseldd 3914	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (2nd ‘𝑣) ∈ 𝐵)
154	29, 89, 123, 124, 125, 82, 78, 111, 153	cmn145236 33684	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑞) · (1st ‘𝑝)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))) = ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣)))))
155	152, 154	eqtr3d 2800	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))) = ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣)))))
156	149, 155	oveq12d 7467	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))) = (((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣))))))
157	8, 10, 63, 82, 153	ringcld 20526	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((1st ‘𝑞) · (2nd ‘𝑣)) ∈ 𝐵)
158	8, 10, 11, 63, 125, 130, 157	ringsubdi 20580	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞)))(-g‘𝑅)(𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣)))))
159		simpr 490	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅))
160	158, 159	eqtr3d 2800	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞)))(-g‘𝑅)(𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅))
161	160	oveq2d 7465	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞)))(-g‘𝑅)(𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣))))) = ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (0g‘𝑅)))
162	8, 10, 63, 125, 157	ringcld 20526	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣))) ∈ 𝐵)
163	8, 10, 11, 63, 135, 131, 162	ringsubdi 20580	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · ((𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞)))(-g‘𝑅)(𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣))))) = (((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣))))))
164	8, 10, 9, 63, 135	ringrzd 20569	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (0g‘𝑅)) = (0g‘𝑅))
165	161, 163, 164	3eqtr3d 2806	. . . . . . . . . . . . . 14 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑣) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · ((1st ‘𝑝) · (2nd ‘𝑢))) · (𝑔 · ((1st ‘𝑞) · (2nd ‘𝑣))))) = (0g‘𝑅))
166	156, 165	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))) = (0g‘𝑅))
167	144, 166	oveq12d 7467	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))) + (((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))))) = ((0g‘𝑅) + (0g‘𝑅)))
168	8, 9	grpidcl 19217	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ Grp → (0g‘𝑅) ∈ 𝐵)
169	108, 168	syl 18	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → (0g‘𝑅) ∈ 𝐵)
170	8, 12, 9, 108, 169	grplidd 19221	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((0g‘𝑅) + (0g‘𝑅)) = (0g‘𝑅))
171	167, 170	eqtrd 2798	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((((𝑓 · 𝑔) · (((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))) + (((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑣)) · ((2nd ‘𝑢) · (2nd ‘𝑞))))(-g‘𝑅)((𝑓 · 𝑔) · (((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣)))))) = (0g‘𝑅))
172	107, 118, 171	3eqtr2d 2804	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ((𝑓 · 𝑔) · ((((1st ‘𝑢) · (1st ‘𝑣)) · ((2nd ‘𝑝) · (2nd ‘𝑞)))(-g‘𝑅)(((1st ‘𝑝) · (1st ‘𝑞)) · ((2nd ‘𝑢) · (2nd ‘𝑣))))) = (0g‘𝑅))
173	8, 18, 59, 9, 10, 11, 60, 61, 74, 83, 91, 97, 101, 172	erlbrd 33913	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) ∧ 𝑔 ∈ 𝑆) ∧ (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅)) → ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∼ ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
174	69	ad2antrr 739	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) → 𝑣 ∼ 𝑞)
175	8, 18, 58, 9, 10, 11, 174	erldi 33912	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) → ∃𝑔 ∈ 𝑆 (𝑔 · (((1st ‘𝑣) · (2nd ‘𝑞))(-g‘𝑅)((1st ‘𝑞) · (2nd ‘𝑣)))) = (0g‘𝑅))
176	173, 175	r19.29a 3174	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) ∧ 𝑓 ∈ 𝑆) ∧ (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅)) → ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∼ ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
177	8, 18, 57, 9, 10, 11, 64	erldi 33912	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → ∃𝑓 ∈ 𝑆 (𝑓 · (((1st ‘𝑢) · (2nd ‘𝑝))(-g‘𝑅)((1st ‘𝑝) · (2nd ‘𝑢)))) = (0g‘𝑅))
178	176, 177	r19.29a 3174	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∼ ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
179		mulridx 17507	. . . . . . . . . . . 12 ⊢ .r = Slot (.r‘ndx)
180		snsstp3 4777	. . . . . . . . . . . . 13 ⊢ {⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ⊆ {⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩}
181	180, 41	sstri 3922	. . . . . . . . . . . 12 ⊢ {⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ⊆ (({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})
182	22	mpoexg 8122	. . . . . . . . . . . . 13 ⊢ (((𝐵 × 𝑆) ∈ V ∧ (𝐵 × 𝑆) ∈ V) → (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩) ∈ V)
183	45, 45, 182	syl2anc 596	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩) ∈ V)
184		eqid 2763	. . . . . . . . . . . 12 ⊢ (.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})) = (.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))
185	34, 36, 179, 181, 183, 184	strfv3 17423	. . . . . . . . . . 11 ⊢ (𝜑 → (.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})) = (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩))
186	185	ad2antrr 739	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩})) = (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩))
187	186	oveqd 7466	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑢(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑣) = (𝑢(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑣))
188		opex 5437	. . . . . . . . . . 11 ⊢ ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∈ V
189	188	a1i 11	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∈ V)
190		simpl 488	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → 𝑎 = 𝑢)
191	190	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → (1st ‘𝑎) = (1st ‘𝑢))
192		simpr 490	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → 𝑏 = 𝑣)
193	192	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → (1st ‘𝑏) = (1st ‘𝑣))
194	191, 193	oveq12d 7467	. . . . . . . . . . . 12 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → ((1st ‘𝑎) · (1st ‘𝑏)) = ((1st ‘𝑢) · (1st ‘𝑣)))
195	190	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → (2nd ‘𝑎) = (2nd ‘𝑢))
196	192	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → (2nd ‘𝑏) = (2nd ‘𝑣))
197	195, 196	oveq12d 7467	. . . . . . . . . . . 12 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → ((2nd ‘𝑎) · (2nd ‘𝑏)) = ((2nd ‘𝑢) · (2nd ‘𝑣)))
198	194, 197	opeq12d 4851	. . . . . . . . . . 11 ⊢ ((𝑎 = 𝑢 ∧ 𝑏 = 𝑣) → ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩ = ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩)
199	198, 22	ovmpoga 7604	. . . . . . . . . 10 ⊢ ((𝑢 ∈ (𝐵 × 𝑆) ∧ 𝑣 ∈ (𝐵 × 𝑆) ∧ ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∈ V) → (𝑢(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑣) = ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩)
200	65, 70, 189, 199	syl3anc 1399	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑢(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑣) = ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩)
201	187, 200	eqtrd 2798	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑢(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑣) = ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩)
202	186	oveqd 7466	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) = (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞))
203		opex 5437	. . . . . . . . . . 11 ⊢ ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩ ∈ V
204	203	a1i 11	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩ ∈ V)
205		simpl 488	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → 𝑎 = 𝑝)
206	205	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → (1st ‘𝑎) = (1st ‘𝑝))
207		simpr 490	. . . . . . . . . . . . . 14 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → 𝑏 = 𝑞)
208	207	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → (1st ‘𝑏) = (1st ‘𝑞))
209	206, 208	oveq12d 7467	. . . . . . . . . . . 12 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → ((1st ‘𝑎) · (1st ‘𝑏)) = ((1st ‘𝑝) · (1st ‘𝑞)))
210	205	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → (2nd ‘𝑎) = (2nd ‘𝑝))
211	207	fveq2d 6918	. . . . . . . . . . . . 13 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → (2nd ‘𝑏) = (2nd ‘𝑞))
212	210, 211	oveq12d 7467	. . . . . . . . . . . 12 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → ((2nd ‘𝑎) · (2nd ‘𝑏)) = ((2nd ‘𝑝) · (2nd ‘𝑞)))
213	209, 212	opeq12d 4851	. . . . . . . . . . 11 ⊢ ((𝑎 = 𝑝 ∧ 𝑏 = 𝑞) → ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩ = ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
214	213, 22	ovmpoga 7604	. . . . . . . . . 10 ⊢ ((𝑝 ∈ (𝐵 × 𝑆) ∧ 𝑞 ∈ (𝐵 × 𝑆) ∧ ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩ ∈ V) → (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞) = ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
215	75, 79, 204, 214	syl3anc 1399	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞) = ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
216	202, 215	eqtrd 2798	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) = ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
217	201, 216	breq12d 5119	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → ((𝑢(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑣) ∼ (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) ↔ ⟨((1st ‘𝑢) · (1st ‘𝑣)), ((2nd ‘𝑢) · (2nd ‘𝑣))⟩ ∼ ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩))
218	178, 217	mpbird 260	. . . . . 6 ⊢ (((𝜑 ∧ 𝑢 ∼ 𝑝) ∧ 𝑣 ∼ 𝑞) → (𝑢(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑣) ∼ (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞))
219	218	anasss 472	. . . . 5 ⊢ ((𝜑 ∧ (𝑢 ∼ 𝑝 ∧ 𝑣 ∼ 𝑞)) → (𝑢(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑣) ∼ (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞))
220	219	ex 418	. . . 4 ⊢ (𝜑 → ((𝑢 ∼ 𝑝 ∧ 𝑣 ∼ 𝑞) → (𝑢(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑣) ∼ (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞)))
221	185	oveqd 7466	. . . . . . 7 ⊢ (𝜑 → (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) = (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞))
222	221	ad2antrr 739	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) = (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞))
223		simplr 781	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → 𝑝 ∈ (𝐵 × 𝑆))
224		simpr 490	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → 𝑞 ∈ (𝐵 × 𝑆))
225	203	a1i 11	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩ ∈ V)
226	223, 224, 225, 214	syl3anc 1399	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞) = ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩)
227	62	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → 𝑅 ∈ Ring)
228	223, 77	syl 18	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (1st ‘𝑝) ∈ 𝐵)
229	224, 81	syl 18	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (1st ‘𝑞) ∈ 𝐵)
230	8, 10, 227, 228, 229	ringcld 20526	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → ((1st ‘𝑝) · (1st ‘𝑞)) ∈ 𝐵)
231	27	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → 𝑆 ∈ (SubMnd‘(mulGrp‘𝑅)))
232	223, 92	syl 18	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (2nd ‘𝑝) ∈ 𝑆)
233	224, 94	syl 18	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (2nd ‘𝑞) ∈ 𝑆)
234	231, 232, 233, 96	syl3anc 1399	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → ((2nd ‘𝑝) · (2nd ‘𝑞)) ∈ 𝑆)
235	230, 234	opelxpd 5695	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → ⟨((1st ‘𝑝) · (1st ‘𝑞)), ((2nd ‘𝑝) · (2nd ‘𝑞))⟩ ∈ (𝐵 × 𝑆))
236	226, 235	eqeltrd 2864	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (𝑝(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)𝑞) ∈ (𝐵 × 𝑆))
237	222, 236	eqeltrd 2864	. . . . 5 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐵 × 𝑆)) ∧ 𝑞 ∈ (𝐵 × 𝑆)) → (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) ∈ (𝐵 × 𝑆))
238	237	anasss 472	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝐵 × 𝑆) ∧ 𝑞 ∈ (𝐵 × 𝑆))) → (𝑝(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))𝑞) ∈ (𝐵 × 𝑆))
239		rlocmulval.1	. . . 4 ⊢ ⊗ = (.r‘𝐿)
240	33, 48, 50, 56, 220, 238, 184, 239	qusmulval 17768	. . 3 ⊢ ((𝜑 ∧ ⟨𝐸, 𝐺⟩ ∈ (𝐵 × 𝑆) ∧ ⟨𝐹, 𝐻⟩ ∈ (𝐵 × 𝑆)) → ([⟨𝐸, 𝐺⟩] ∼ ⊗ [⟨𝐹, 𝐻⟩] ∼ ) = [(⟨𝐸, 𝐺⟩(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))⟨𝐹, 𝐻⟩)] ∼ )
241	3, 6, 240	mpd3an23 1493	. 2 ⊢ (𝜑 → ([⟨𝐸, 𝐺⟩] ∼ ⊗ [⟨𝐹, 𝐻⟩] ∼ ) = [(⟨𝐸, 𝐺⟩(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))⟨𝐹, 𝐻⟩)] ∼ )
242	185	oveqd 7466	. . . 4 ⊢ (𝜑 → (⟨𝐸, 𝐺⟩(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))⟨𝐹, 𝐻⟩) = (⟨𝐸, 𝐺⟩(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟨𝐹, 𝐻⟩))
243	22	a1i 11	. . . . 5 ⊢ (𝜑 → (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩) = (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩))
244		simprl 783	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → 𝑎 = ⟨𝐸, 𝐺⟩)
245	244	fveq2d 6918	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (1st ‘𝑎) = (1st ‘⟨𝐸, 𝐺⟩))
246	1	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → 𝐸 ∈ 𝐵)
247	2	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → 𝐺 ∈ 𝑆)
248		op1stg 8045	. . . . . . . . 9 ⊢ ((𝐸 ∈ 𝐵 ∧ 𝐺 ∈ 𝑆) → (1st ‘⟨𝐸, 𝐺⟩) = 𝐸)
249	246, 247, 248	syl2anc 596	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (1st ‘⟨𝐸, 𝐺⟩) = 𝐸)
250	245, 249	eqtrd 2798	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (1st ‘𝑎) = 𝐸)
251		simprr 785	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → 𝑏 = ⟨𝐹, 𝐻⟩)
252	251	fveq2d 6918	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (1st ‘𝑏) = (1st ‘⟨𝐹, 𝐻⟩))
253	4	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → 𝐹 ∈ 𝐵)
254	5	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → 𝐻 ∈ 𝑆)
255		op1stg 8045	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐵 ∧ 𝐻 ∈ 𝑆) → (1st ‘⟨𝐹, 𝐻⟩) = 𝐹)
256	253, 254, 255	syl2anc 596	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (1st ‘⟨𝐹, 𝐻⟩) = 𝐹)
257	252, 256	eqtrd 2798	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (1st ‘𝑏) = 𝐹)
258	250, 257	oveq12d 7467	. . . . . 6 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → ((1st ‘𝑎) · (1st ‘𝑏)) = (𝐸 · 𝐹))
259	244	fveq2d 6918	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (2nd ‘𝑎) = (2nd ‘⟨𝐸, 𝐺⟩))
260		op2ndg 8046	. . . . . . . . 9 ⊢ ((𝐸 ∈ 𝐵 ∧ 𝐺 ∈ 𝑆) → (2nd ‘⟨𝐸, 𝐺⟩) = 𝐺)
261	246, 247, 260	syl2anc 596	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (2nd ‘⟨𝐸, 𝐺⟩) = 𝐺)
262	259, 261	eqtrd 2798	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (2nd ‘𝑎) = 𝐺)
263	251	fveq2d 6918	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (2nd ‘𝑏) = (2nd ‘⟨𝐹, 𝐻⟩))
264		op2ndg 8046	. . . . . . . . 9 ⊢ ((𝐹 ∈ 𝐵 ∧ 𝐻 ∈ 𝑆) → (2nd ‘⟨𝐹, 𝐻⟩) = 𝐻)
265	253, 254, 264	syl2anc 596	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (2nd ‘⟨𝐹, 𝐻⟩) = 𝐻)
266	263, 265	eqtrd 2798	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → (2nd ‘𝑏) = 𝐻)
267	262, 266	oveq12d 7467	. . . . . 6 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → ((2nd ‘𝑎) · (2nd ‘𝑏)) = (𝐺 · 𝐻))
268	258, 267	opeq12d 4851	. . . . 5 ⊢ ((𝜑 ∧ (𝑎 = ⟨𝐸, 𝐺⟩ ∧ 𝑏 = ⟨𝐹, 𝐻⟩)) → ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩ = ⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩)
269		opex 5437	. . . . . 6 ⊢ ⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩ ∈ V
270	269	a1i 11	. . . . 5 ⊢ (𝜑 → ⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩ ∈ V)
271	243, 268, 3, 6, 270	ovmpod 7602	. . . 4 ⊢ (𝜑 → (⟨𝐸, 𝐺⟩(𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟨𝐹, 𝐻⟩) = ⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩)
272	242, 271	eqtrd 2798	. . 3 ⊢ (𝜑 → (⟨𝐸, 𝐺⟩(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))⟨𝐹, 𝐻⟩) = ⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩)
273	272	eceq1d 8794	. 2 ⊢ (𝜑 → [(⟨𝐸, 𝐺⟩(.r‘(({⟨(Base‘ndx), (𝐵 × 𝑆)⟩, ⟨(+g‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨(((1st ‘𝑎) · (2nd ‘𝑏)) + ((1st ‘𝑏) · (2nd ‘𝑎))), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩, ⟨(.r‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ ⟨((1st ‘𝑎) · (1st ‘𝑏)), ((2nd ‘𝑎) · (2nd ‘𝑏))⟩)⟩} ∪ {⟨(Scalar‘ndx), (Scalar‘𝑅)⟩, ⟨( ·𝑠 ‘ndx), (𝑘 ∈ (Base‘(Scalar‘𝑅)), 𝑎 ∈ (𝐵 × 𝑆) ↦ ⟨(𝑘( ·𝑠 ‘𝑅)(1st ‘𝑎)), (2nd ‘𝑎)⟩)⟩, ⟨(·𝑖‘ndx), ∅⟩}) ∪ {⟨(TopSet‘ndx), ((TopSet‘𝑅) ×t ((TopSet‘𝑅) ↾t 𝑆))⟩, ⟨(le‘ndx), {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ (𝐵 × 𝑆) ∧ 𝑏 ∈ (𝐵 × 𝑆)) ∧ ((1st ‘𝑎) · (2nd ‘𝑏))(le‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎)))}⟩, ⟨(dist‘ndx), (𝑎 ∈ (𝐵 × 𝑆), 𝑏 ∈ (𝐵 × 𝑆) ↦ (((1st ‘𝑎) · (2nd ‘𝑏))(dist‘𝑅)((1st ‘𝑏) · (2nd ‘𝑎))))⟩}))⟨𝐹, 𝐻⟩)] ∼ = [⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩] ∼ )
274	241, 273	eqtrd 2798	1 ⊢ (𝜑 → ([⟨𝐸, 𝐺⟩] ∼ ⊗ [⟨𝐹, 𝐻⟩] ∼ ) = [⟨(𝐸 · 𝐹), (𝐺 · 𝐻)⟩] ∼ )

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  Vcvv 3454   ⊆ wss 3900   ∪ cun 4152  ∅c0 4281  {csn 4588  {ctp 4592  ⟨cop 4838   class class class wbr 5106  {copab 5171   × cxp 5654  ‘cfv 6564  (class class class)co 7449   ∈ cmpo 7451  1^st c1st 8031  2^nd c2nd 8032  [cec 8751  1c1 11238  2c2 12435  ;cdc 12852  ndxcnx 17412  Basecbs 17428  +_gcplusg 17469  ._rcmulr 17470  Scalarcsca 17472   ·_𝑠 cvsca 17473  ·_𝑖cip 17474  TopSetcts 17475  lecple 17476  distcds 17478   ↾_t crest 17632  0_gc0g 17651   /_s cqus 17718  SubMndcsubmnd 19018  Grpcgrp 19185  -_gcsg 19187  CMndccmn 20036  mulGrpcmgp 20402  1_rcur 20449  Ringcrg 20501  CRingccrg 20502   ×_t ctx 23923   ~_RL cerl 33903   RLocal crloc 33904

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5236  ax-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396  ax-un 7781  ax-cnex 11293  ax-resscn 11294  ax-1cn 11295  ax-icn 11296  ax-addcl 11297  ax-addrcl 11298  ax-mulcl 11299  ax-mulrcl 11300  ax-mulcom 11301  ax-addass 11302  ax-mulass 11303  ax-distr 11304  ax-i2m1 11305  ax-1ne0 11306  ax-1rid 11307  ax-rnegex 11308  ax-rrecex 11309  ax-cnre 11310  ax-pre-lttri 11311  ax-pre-lttrn 11312  ax-pre-ltadd 11313  ax-pre-mulgt0 11314

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5551  df-eprel 5556  df-po 5564  df-so 5565  df-fr 5609  df-we 5611  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-pred 6328  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6518  df-fun 6566  df-fn 6567  df-f 6568  df-f1 6569  df-fo 6570  df-f1o 6571  df-fv 6572  df-riota 7406  df-ov 7452  df-oprab 7453  df-mpo 7454  df-om 7910  df-1st 8033  df-2nd 8034  df-frecs 8335  df-wrecs 8366  df-recs 8415  df-rdg 8454  df-1o 8512  df-er 8753  df-ec 8755  df-qs 8759  df-en 9010  df-dom 9011  df-sdom 9012  df-fin 9013  df-sup 9469  df-inf 9470  df-pnf 11382  df-mnf 11383  df-xr 11384  df-ltxr 11385  df-le 11386  df-sub 11580  df-neg 11581  df-nn 12374  df-2 12443  df-3 12444  df-4 12445  df-5 12446  df-6 12447  df-7 12448  df-8 12449  df-9 12450  df-n0 12645  df-z 12732  df-dec 12853  df-uz 13004  df-fz 13678  df-struct 17366  df-sets 17383  df-slot 17401  df-ndx 17413  df-base 17429  df-ress 17450  df-plusg 17482  df-mulr 17483  df-sca 17485  df-vsca 17486  df-ip 17487  df-tset 17488  df-ple 17489  df-ds 17491  df-0g 17653  df-imas 17721  df-qus 17722  df-mgm 18857  df-sgrp 18949  df-mnd 18965  df-submnd 19020  df-grp 19188  df-minusg 19189  df-sbg 19190  df-cmn 20038  df-abl 20039  df-mgp 20403  df-rng 20417  df-ur 20450  df-ring 20503  df-cring 20504  df-erl 33905  df-rloc 33906

This theorem is used by:  rloccring  33921  rloc1r  33923  rlocf1  33924  rlocinvunit  33925  rlocisunit  33926  fracfld  33967  zringfrac  34182