Metamath Proof Explorer


Theorem rlocbas

Description: The base set of a ring localization. (Contributed by Thierry Arnoux, 4-May-2025)

Ref Expression
Hypotheses rlocbas.b ⊢ B = Base R
rlocbas.1 ⊢ 0 ˙ = 0 R
rlocbas.2 ⊢ · ˙ = ⋅ R
rlocbas.3 ⊢ - ˙ = - R
rlocbas.w ⊢ W = B × S
rlocbas.l ⊢ L = R RLocal S
rlocbas.4 ⊢ ∼ ˙ = R ~RL S
rlocbas.r ⊢ φ → R ∈ V
rlocbas.s ⊢ φ → S ⊆ B
Assertion rlocbas ⊢ φ → W / ∼ ˙ = Base L

Proof

Step Hyp Ref Expression
1 rlocbas.b ⊢ B = Base R
2 rlocbas.1 ⊢ 0 ˙ = 0 R
3 rlocbas.2 ⊢ · ˙ = ⋅ R
4 rlocbas.3 ⊢ - ˙ = - R
5 rlocbas.w ⊢ W = B × S
6 rlocbas.l ⊢ L = R RLocal S
7 rlocbas.4 ⊢ ∼ ˙ = R ~RL S
8 rlocbas.r ⊢ φ → R ∈ V
9 rlocbas.s ⊢ φ → S ⊆ B
10 eqid ⊢ + R = + R
11 eqid ⊢ ≤ R = ≤ R
12 eqid ⊢ Scalar ⁡ R = Scalar ⁡ R
13 eqid ⊢ Base Scalar ⁡ R = Base Scalar ⁡ R
14 eqid ⊢ ⋅ R = ⋅ R
15 eqid ⊢ TopSet ⁡ R = TopSet ⁡ R
16 eqid ⊢ dist ⁡ R = dist ⁡ R
17 eqid ⊢ a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b = a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b
18 eqid ⊢ a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b = a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b
19 eqid ⊢ k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a = k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a
20 eqid ⊢ a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a = a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a
21 eqid ⊢ a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a = a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
22 1 2 3 4 10 11 12 13 14 5 7 15 16 17 18 19 20 21 8 9 rlocval ⊢ φ → R RLocal S = Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a / 𝑠 ∼ ˙
23 6 22 eqtrid ⊢ φ → L = Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a / 𝑠 ∼ ˙
24 eqidd ⊢ φ → Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a = Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
25 eqid ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a = Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
26 25 imasvalstr ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a Struct 1 12
27 baseid ⊢ Base = Slot Base ndx
28 snsstp1 ⊢ Base ndx W ⊆ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b
29 ssun1 ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ⊆ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅
30 ssun1 ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ⊆ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
31 29 30 sstri ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ⊆ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
32 28 31 sstri ⊢ Base ndx W ⊆ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
33 1 fvexi ⊢ B ∈ V
34 33 a1i ⊢ φ → B ∈ V
35 34 9 ssexd ⊢ φ → S ∈ V
36 34 35 xpexd ⊢ φ → B × S ∈ V
37 5 36 eqeltrid ⊢ φ → W ∈ V
38 eqid ⊢ Base Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a = Base Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
39 24 26 27 32 37 38 strfv3 ⊢ φ → Base Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a = W
40 39 eqcomd ⊢ φ → W = Base Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a
41 7 ovexi ⊢ ∼ ˙ ∈ V
42 41 a1i ⊢ φ → ∼ ˙ ∈ V
43 tpex ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∈ V
44 tpex ⊢ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∈ V
45 43 44 unex ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∈ V
46 tpex ⊢ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a ∈ V
47 45 46 unex ⊢ Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a ∈ V
48 47 a1i ⊢ φ → Base ndx W + ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b + R 1 st ⁡ b · ˙ 2 nd ⁡ a 2 nd ⁡ a · ˙ 2 nd ⁡ b ⋅ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 1 st ⁡ b 2 nd ⁡ a · ˙ 2 nd ⁡ b ∪ Scalar ⁡ ndx Scalar ⁡ R ⋅ ndx k ∈ Base Scalar ⁡ R , a ∈ W ⟼ k ⋅ R 1 st ⁡ a 2 nd ⁡ a ⋅ 𝑖 ⁡ ndx ∅ ∪ TopSet ⁡ ndx TopSet ⁡ R × t TopSet ⁡ R ↾ 𝑡 S ≤ ndx a b | a ∈ W ∧ b ∈ W ∧ 1 st ⁡ a · ˙ 2 nd ⁡ b ≤ R 1 st ⁡ b · ˙ 2 nd ⁡ a dist ⁡ ndx a ∈ W , b ∈ W ⟼ 1 st ⁡ a · ˙ 2 nd ⁡ b dist ⁡ R 1 st ⁡ b · ˙ 2 nd ⁡ a ∈ V
49 23 40 42 48 qusbas ⊢ φ → W / ∼ ˙ = Base L