Theorem tcphval 25532

Description: Define a function to augment a subcomplex pre-Hilbert space with norm. (Contributed by Mario Carneiro, 7-Oct-2015.)

Hypotheses

Ref	Expression
tcphval.n	⊢ 𝐺 = (toℂPreHil‘𝑊)
tcphval.v	⊢ 𝑉 = (Base‘𝑊)
tcphval.h	⊢ , = (·𝑖‘𝑊)

Assertion

Ref	Expression
tcphval	⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))

Distinct variable groups:   𝑥, ,   𝑥,𝐺   𝑥,𝑉   𝑥,𝑊

Proof of Theorem tcphval

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		tcphval.n	. 2 ⊢ 𝐺 = (toℂPreHil‘𝑊)
2		id 23	. . . . 5 ⊢ (𝑤 = 𝑊 → 𝑤 = 𝑊)
3		fveq2 6883	. . . . . . 7 ⊢ (𝑤 = 𝑊 → (Base‘𝑤) = (Base‘𝑊))
4		tcphval.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
5	3, 4	eqtr4di 2814	. . . . . 6 ⊢ (𝑤 = 𝑊 → (Base‘𝑤) = 𝑉)
6		fveq2 6883	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → (·𝑖‘𝑤) = (·𝑖‘𝑊))
7		tcphval.h	. . . . . . . . 9 ⊢ , = (·𝑖‘𝑊)
8	6, 7	eqtr4di 2814	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → (·𝑖‘𝑤) = , )
9	8	oveqd 7435	. . . . . . 7 ⊢ (𝑤 = 𝑊 → (𝑥(·𝑖‘𝑤)𝑥) = (𝑥 , 𝑥))
10	9	fveq2d 6887	. . . . . 6 ⊢ (𝑤 = 𝑊 → (√‘(𝑥(·𝑖‘𝑤)𝑥)) = (√‘(𝑥 , 𝑥)))
11	5, 10	mpteq12dv 5192	. . . . 5 ⊢ (𝑤 = 𝑊 → (𝑥 ∈ (Base‘𝑤) ↦ (√‘(𝑥(·𝑖‘𝑤)𝑥))) = (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
12	2, 11	oveq12d 7436	. . . 4 ⊢ (𝑤 = 𝑊 → (𝑤 toNrmGrp (𝑥 ∈ (Base‘𝑤) ↦ (√‘(𝑥(·𝑖‘𝑤)𝑥)))) = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))))
13		df-tcph 25483	. . . 4 ⊢ toℂPreHil = (𝑤 ∈ V ↦ (𝑤 toNrmGrp (𝑥 ∈ (Base‘𝑤) ↦ (√‘(𝑥(·𝑖‘𝑤)𝑥)))))
14		ovex 7451	. . . 4 ⊢ (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))) ∈ V
15	12, 13, 14	fvmpt 6991	. . 3 ⊢ (𝑊 ∈ V → (toℂPreHil‘𝑊) = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))))
16		fvprc 6875	. . . 4 ⊢ (¬ 𝑊 ∈ V → (toℂPreHil‘𝑊) = ∅)
17		reldmtng 24950	. . . . 5 ⊢ Rel dom toNrmGrp
18	17	ovprc1 7457	. . . 4 ⊢ (¬ 𝑊 ∈ V → (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))) = ∅)
19	16, 18	eqtr4d 2799	. . 3 ⊢ (¬ 𝑊 ∈ V → (toℂPreHil‘𝑊) = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))))
20	15, 19	pm2.61i 184	. 2 ⊢ (toℂPreHil‘𝑊) = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
21	1, 20	eqtri 2784	1 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))

This proof depends on syntax axioms:  ¬ wn 3   = wceq 1570   ∈ wcel 2145  Vcvv 3451  ∅c0 4279   ↦ cmpt 5186  ‘cfv 6537  (class class class)co 7418  √csqrt 15393  Basecbs 17380  ·_𝑖cip 17426   toNrmGrp ctng 24890  toℂPreHilctcph 25481

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-sep 5249  ax-nul 5260  ax-pr 5391

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-rab 3414  df-v 3453  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5546  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-iota 6493  df-fun 6539  df-fv 6545  df-ov 7421  df-oprab 7422  df-mpo 7423  df-tng 24896  df-tcph 25483

This theorem is used by:  tcphbas  25533  tchplusg  25534  tcphmulr  25536  tcphsca  25537  tcphvsca  25538  tcphip  25539  tcphtopn  25540  tchnmfval  25542  tcphds  25545  tcphcph  25551  rrxsca  25710  rrx0  25711  rrxdim  34239