Metamath Proof Explorer


Theorem rrxip

Description: The inner product of the generalized real Euclidean spaces. (Contributed by Thierry Arnoux, 16-Jun-2019)

Ref Expression
Hypotheses rrxval.r ⊢ H = I
rrxbase.b ⊢ B = Base H
Assertion rrxip ⊢ I ∈ V → f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x = ⋅ 𝑖 ⁡ H

Proof

Step Hyp Ref Expression
1 rrxval.r ⊢ H = I
2 rrxbase.b ⊢ B = Base H
3 1 2 rrxprds ⊢ I ∈ V → H = toCPreHil ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
4 3 fveq2d ⊢ I ∈ V → ⋅ 𝑖 ⁡ H = ⋅ 𝑖 ⁡ toCPreHil ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
5 eqid ⊢ toCPreHil ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B = toCPreHil ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
6 eqid ⊢ ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B = ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
7 5 6 tcphip ⊢ ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B = ⋅ 𝑖 ⁡ toCPreHil ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
8 2 fvexi ⊢ B ∈ V
9 eqid ⊢ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B = ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
10 eqid ⊢ ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ
11 9 10 ressip ⊢ B ∈ V → ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
12 8 11 ax-mp ⊢ ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B
13 eqid ⊢ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ
14 refld ⊢ ℝ fld ∈ Field
15 14 a1i ⊢ I ∈ V → ℝ fld ∈ Field
16 snex ⊢ subringAlg ⁡ ℝ fld ⁡ ℝ ∈ V
17 xpexg ⊢ I ∈ V ∧ subringAlg ⁡ ℝ fld ⁡ ℝ ∈ V → I × subringAlg ⁡ ℝ fld ⁡ ℝ ∈ V
18 16 17 mpan2 ⊢ I ∈ V → I × subringAlg ⁡ ℝ fld ⁡ ℝ ∈ V
19 eqid ⊢ Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ
20 fvex ⊢ subringAlg ⁡ ℝ fld ⁡ ℝ ∈ V
21 20 snnz ⊢ subringAlg ⁡ ℝ fld ⁡ ℝ ≠ ∅
22 dmxp ⊢ subringAlg ⁡ ℝ fld ⁡ ℝ ≠ ∅ → dom ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ = I
23 21 22 ax-mp ⊢ dom ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ = I
24 23 a1i ⊢ I ∈ V → dom ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ = I
25 13 15 18 19 24 10 prdsip ⊢ I ∈ V → ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = f ∈ Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ , g ∈ Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x g ⁡ x
26 13 15 18 19 24 prdsbas ⊢ I ∈ V → Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = ⨉ x ∈ I Base I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x
27 eqidd ⊢ x ∈ I → subringAlg ⁡ ℝ fld ⁡ ℝ = subringAlg ⁡ ℝ fld ⁡ ℝ
28 rebase ⊢ ℝ = Base ℝ fld
29 28 eqimssi ⊢ ℝ ⊆ Base ℝ fld
30 29 a1i ⊢ x ∈ I → ℝ ⊆ Base ℝ fld
31 27 30 srabase ⊢ x ∈ I → Base ℝ fld = Base subringAlg ⁡ ℝ fld ⁡ ℝ
32 28 a1i ⊢ x ∈ I → ℝ = Base ℝ fld
33 20 fvconst2 ⊢ x ∈ I → I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x = subringAlg ⁡ ℝ fld ⁡ ℝ
34 33 fveq2d ⊢ x ∈ I → Base I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x = Base subringAlg ⁡ ℝ fld ⁡ ℝ
35 31 32 34 3eqtr4rd ⊢ x ∈ I → Base I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x = ℝ
36 35 adantl ⊢ I ∈ V ∧ x ∈ I → Base I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x = ℝ
37 36 ixpeq2dva ⊢ I ∈ V → ⨉ x ∈ I Base I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x = ⨉ x ∈ I ℝ
38 reex ⊢ ℝ ∈ V
39 ixpconstg ⊢ I ∈ V ∧ ℝ ∈ V → ⨉ x ∈ I ℝ = ℝ I
40 38 39 mpan2 ⊢ I ∈ V → ⨉ x ∈ I ℝ = ℝ I
41 26 37 40 3eqtrd ⊢ I ∈ V → Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = ℝ I
42 remulr ⊢ × = ⋅ ℝ fld
43 33 30 sraip ⊢ x ∈ I → ⋅ ℝ fld = ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x
44 42 43 eqtr2id ⊢ x ∈ I → ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x = ×
45 44 oveqd ⊢ x ∈ I → f ⁡ x ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x g ⁡ x = f ⁡ x ⁢ g ⁡ x
46 45 mpteq2ia ⊢ x ∈ I ⟼ f ⁡ x ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x g ⁡ x = x ∈ I ⟼ f ⁡ x ⁢ g ⁡ x
47 46 a1i ⊢ I ∈ V → x ∈ I ⟼ f ⁡ x ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x g ⁡ x = x ∈ I ⟼ f ⁡ x ⁢ g ⁡ x
48 47 oveq2d ⊢ I ∈ V → ∑ ℝ fld x ∈ I f ⁡ x ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x g ⁡ x = ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x
49 41 41 48 mpoeq123dv ⊢ I ∈ V → f ∈ Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ , g ∈ Base ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⋅ 𝑖 ⁡ I × subringAlg ⁡ ℝ fld ⁡ ℝ ⁡ x g ⁡ x = f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x
50 25 49 eqtrd ⊢ I ∈ V → ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ = f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x
51 12 50 eqtr3id ⊢ I ∈ V → ⋅ 𝑖 ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B = f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x
52 7 51 eqtr3id ⊢ I ∈ V → ⋅ 𝑖 ⁡ toCPreHil ⁡ ℝ fld ⨉ 𝑠 I × subringAlg ⁡ ℝ fld ⁡ ℝ ↾ 𝑠 B = f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x
53 4 52 eqtr2d ⊢ I ∈ V → f ∈ ℝ I , g ∈ ℝ I ⟼ ∑ ℝ fld x ∈ I f ⁡ x ⁢ g ⁡ x = ⋅ 𝑖 ⁡ H