Metamath Proof Explorer


Theorem rrxbasefi

Description: The base of the generalized real Euclidean space, when the dimension of the space is finite. This justifies the use of ( RR ^m X ) for the development of the Lebesgue measure theory for n-dimensional real numbers. (Contributed by Glauco Siliprandi, 24-Dec-2020)

Ref Expression
Hypotheses rrxbasefi.x ⊢ φ → X ∈ Fin
rrxbasefi.h ⊢ H = X
rrxbasefi.b ⊢ B = Base H
Assertion rrxbasefi ⊢ φ → B = ℝ X

Proof

Step Hyp Ref Expression
1 rrxbasefi.x ⊢ φ → X ∈ Fin
2 rrxbasefi.h ⊢ H = X
3 rrxbasefi.b ⊢ B = Base H
4 2 3 rrxbase ⊢ X ∈ Fin → B = f ∈ ℝ X | finSupp 0 ⁡ f
5 1 4 syl ⊢ φ → B = f ∈ ℝ X | finSupp 0 ⁡ f
6 ssrab2 ⊢ f ∈ ℝ X | finSupp 0 ⁡ f ⊆ ℝ X
7 5 6 eqsstrdi ⊢ φ → B ⊆ ℝ X
8 simpr ⊢ φ ∧ f ∈ ℝ X → f ∈ ℝ X
9 elmapi ⊢ f ∈ ℝ X → f : X ⟶ ℝ
10 9 adantl ⊢ φ ∧ f ∈ ℝ X → f : X ⟶ ℝ
11 1 adantr ⊢ φ ∧ f ∈ ℝ X → X ∈ Fin
12 c0ex ⊢ 0 ∈ V
13 12 a1i ⊢ φ ∧ f ∈ ℝ X → 0 ∈ V
14 10 11 13 fdmfifsupp ⊢ φ ∧ f ∈ ℝ X → finSupp 0 ⁡ f
15 rabid ⊢ f ∈ f ∈ ℝ X | finSupp 0 ⁡ f ↔ f ∈ ℝ X ∧ finSupp 0 ⁡ f
16 8 14 15 sylanbrc ⊢ φ ∧ f ∈ ℝ X → f ∈ f ∈ ℝ X | finSupp 0 ⁡ f
17 5 eqcomd ⊢ φ → f ∈ ℝ X | finSupp 0 ⁡ f = B
18 17 adantr ⊢ φ ∧ f ∈ ℝ X → f ∈ ℝ X | finSupp 0 ⁡ f = B
19 16 18 eleqtrd ⊢ φ ∧ f ∈ ℝ X → f ∈ B
20 7 19 eqelssd ⊢ φ → B = ℝ X