tcphcph - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > tcphcph		Structured version Visualization version GIF version

Theorem tcphcph 25187

Description: The standard definition of a norm turns any pre-Hilbert space over a subfield of ℂ_fld closed under square roots of nonnegative reals into a subcomplex pre-Hilbert space (which allows access to a norm, metric, and topology). (Contributed by Mario Carneiro, 11-Oct-2015.)

**Hypotheses**
Ref	Expression
tcphval.n	⊢ 𝐺 = (toℂPreHil‘𝑊)
tcphcph.v	⊢ 𝑉 = (Base‘𝑊)
tcphcph.f	⊢ 𝐹 = (Scalar‘𝑊)
tcphcph.1	⊢ (𝜑 → 𝑊 ∈ PreHil)
tcphcph.2	⊢ (𝜑 → 𝐹 = (ℂ_fld ↾_s 𝐾))
tcphcph.h	⊢ , = (·_𝑖‘𝑊)
tcphcph.3	⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ 𝐾)
tcphcph.4	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))

**Assertion**
Ref	Expression
tcphcph	⊢ (𝜑 → 𝐺 ∈ ℂPreHil)

Distinct variable groups: 𝑥, , 𝑥,𝐹 𝑥,𝐺 𝑥,𝑉 𝜑,𝑥 𝑥,𝑊 Allowed substitution hint: 𝐾(𝑥)

Proof of Theorem tcphcph Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		tcphcph.1	. . . 4 ⊢ (𝜑 → 𝑊 ∈ PreHil)
2		tcphval.n	. . . . 5 ⊢ 𝐺 = (toℂPreHil‘𝑊)
3	2	tcphphl 25177	. . . 4 ⊢ (𝑊 ∈ PreHil ↔ 𝐺 ∈ PreHil)
4	1, 3	sylib 218	. . 3 ⊢ (𝜑 → 𝐺 ∈ PreHil)
5		tcphcph.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
6		tcphcph.h	. . . . . . 7 ⊢ , = (·_𝑖‘𝑊)
7	2, 5, 6	tcphval 25168	. . . . . 6 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
8		eqid 2735	. . . . . 6 ⊢ (-_g‘𝑊) = (-_g‘𝑊)
9		eqid 2735	. . . . . 6 ⊢ (0_g‘𝑊) = (0_g‘𝑊)
10		phllmod 21588	. . . . . . . 8 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
11	1, 10	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ LMod)
12		lmodgrp 20822	. . . . . . 7 ⊢ (𝑊 ∈ LMod → 𝑊 ∈ Grp)
13	11, 12	syl 17	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ Grp)
14		tcphcph.f	. . . . . . . . 9 ⊢ 𝐹 = (Scalar‘𝑊)
15		tcphcph.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (ℂ_fld ↾_s 𝐾))
16	2, 5, 14, 1, 15, 6	tcphcphlem3 25183	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝑥 , 𝑥) ∈ ℝ)
17		tcphcph.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
18	16, 17	resqrtcld 15434	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (√‘(𝑥 , 𝑥)) ∈ ℝ)
19	18	fmpttd 7104	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))):𝑉⟶ℝ)
20		oveq12 7412	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑦 ∧ 𝑥 = 𝑦) → (𝑥 , 𝑥) = (𝑦 , 𝑦))
21	20	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 , 𝑥) = (𝑦 , 𝑦))
22	21	fveq2d 6879	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (√‘(𝑥 , 𝑥)) = (√‘(𝑦 , 𝑦)))
23		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))) = (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))
24		fvex 6888	. . . . . . . . . 10 ⊢ (√‘(𝑥 , 𝑥)) ∈ V
25	22, 23, 24	fvmpt3i 6990	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
26	25	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
27	26	eqeq1d 2737	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
28		eqid 2735	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐹) = (Base‘𝐹)
29		phllvec 21587	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
30	1, 29	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ LVec)
31	14	lvecdrng 21061	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
32	30, 31	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ∈ DivRing)
33	28, 15, 32	cphsubrglem 25127	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 = (ℂ_fld ↾_s (Base‘𝐹)) ∧ (Base‘𝐹) = (𝐾 ∩ ℂ) ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)))
34	33	simp2d 1143	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐹) = (𝐾 ∩ ℂ))
35		inss2 4213	. . . . . . . . . . . . 13 ⊢ (𝐾 ∩ ℂ) ⊆ ℂ
36	34, 35	eqsstrdi 4003	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝐹) ⊆ ℂ)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (Base‘𝐹) ⊆ ℂ)
38	14, 6, 5, 28	ipcl 21591	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
39	38	3anidm23 1423	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
40	1, 39	sylan 580	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
41	37, 40	sseldd 3959	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ ℂ)
42	41	sqrtcld 15454	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (√‘(𝑦 , 𝑦)) ∈ ℂ)
43		sqeq0 14136	. . . . . . . . 9 ⊢ ((√‘(𝑦 , 𝑦)) ∈ ℂ → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
44	42, 43	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
45	41	sqsqrtd 15456	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦))↑2) = (𝑦 , 𝑦))
46	2, 5, 14, 1, 15	phclm 25182	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂMod)
47	14	clm0 25021	. . . . . . . . . . 11 ⊢ (𝑊 ∈ ℂMod → 0 = (0_g‘𝐹))
48	46, 47	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 0 = (0_g‘𝐹))
49	48	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → 0 = (0_g‘𝐹))
50	45, 49	eqeq12d 2751	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
51	44, 50	bitr3d 281	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦)) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
52		eqid 2735	. . . . . . . . 9 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
53	14, 6, 5, 52, 9	ipeq0 21596	. . . . . . . 8 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉) → ((𝑦 , 𝑦) = (0_g‘𝐹) ↔ 𝑦 = (0_g‘𝑊)))
54	1, 53	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑦 , 𝑦) = (0_g‘𝐹) ↔ 𝑦 = (0_g‘𝑊)))
55	27, 51, 54	3bitrd 305	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ 𝑦 = (0_g‘𝑊)))
56	1	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝑊 ∈ PreHil)
57	33	simp1d 1142	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (ℂ_fld ↾_s (Base‘𝐹)))
58	57	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝐹 = (ℂ_fld ↾_s (Base‘𝐹)))
59		3anass 1094	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) ↔ (𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
60		tcphcph.3	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ 𝐾)
61		simpr2 1196	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℝ)
62	61	recnd 11261	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℂ)
63	62	sqrtcld 15454	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ ℂ)
64	60, 63	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
65	64	ex 412	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
66	34	eleq2d 2820	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ (𝐾 ∩ ℂ)))
67		recn 11217	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
68		elin 3942	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ (𝐾 ∩ ℂ) ↔ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℂ))
69	68	rbaib 538	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → (𝑥 ∈ (𝐾 ∩ ℂ) ↔ 𝑥 ∈ 𝐾))
70	67, 69	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℝ → (𝑥 ∈ (𝐾 ∩ ℂ) ↔ 𝑥 ∈ 𝐾))
71	66, 70	sylan9bb 509	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ 𝐾))
72	71	adantrr 717	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ 𝐾))
73	72	ex 412	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ 𝐾)))
74	73	pm5.32rd 578	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) ↔ (𝑥 ∈ 𝐾 ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))))
75		3anass 1094	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) ↔ (𝑥 ∈ 𝐾 ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
76	74, 75	bitr4di 289	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) ↔ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
77	34	eleq2d 2820	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((√‘𝑥) ∈ (Base‘𝐹) ↔ (√‘𝑥) ∈ (𝐾 ∩ ℂ)))
78		elin 3942	. . . . . . . . . . . . 13 ⊢ ((√‘𝑥) ∈ (𝐾 ∩ ℂ) ↔ ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
79	77, 78	bitrdi 287	. . . . . . . . . . . 12 ⊢ (𝜑 → ((√‘𝑥) ∈ (Base‘𝐹) ↔ ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
80	65, 76, 79	3imtr4d 294	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹)))
81	59, 80	biimtrid 242	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (√‘𝑥) ∈ (Base‘𝐹)))
82	81	imp 406	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹))
83	82	adantlr 715	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) ∧ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹))
84	17	adantlr 715	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
85		simprl 770	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝑦 ∈ 𝑉)
86		simprr 772	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝑧 ∈ 𝑉)
87	2, 5, 14, 56, 58, 6, 83, 84, 28, 8, 85, 86	tcphcphlem1 25185	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))) ≤ ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
88	5, 8	grpsubcl 19001	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
89	88	3expb 1120	. . . . . . . . 9 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
90	13, 89	sylan 580	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
91		oveq12 7412	. . . . . . . . . . 11 ⊢ ((𝑥 = (𝑦(-_g‘𝑊)𝑧) ∧ 𝑥 = (𝑦(-_g‘𝑊)𝑧)) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
92	91	anidms 566	. . . . . . . . . 10 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
93	92	fveq2d 6879	. . . . . . . . 9 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (√‘(𝑥 , 𝑥)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
94	93, 23, 24	fvmpt3i 6990	. . . . . . . 8 ⊢ ((𝑦(-_g‘𝑊)𝑧) ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
95	90, 94	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
96		oveq12 7412	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑧 ∧ 𝑥 = 𝑧) → (𝑥 , 𝑥) = (𝑧 , 𝑧))
97	96	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (𝑥 , 𝑥) = (𝑧 , 𝑧))
98	97	fveq2d 6879	. . . . . . . . . 10 ⊢ (𝑥 = 𝑧 → (√‘(𝑥 , 𝑥)) = (√‘(𝑧 , 𝑧)))
99	98, 23, 24	fvmpt3i 6990	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧) = (√‘(𝑧 , 𝑧)))
100	25, 99	oveqan12d 7422	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
101	100	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
102	87, 95, 101	3brtr4d 5151	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) ≤ (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)))
103	7, 5, 8, 9, 13, 19, 55, 102	tngngpd 24590	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ NrmGrp)
104		phllmod 21588	. . . . . 6 ⊢ (𝐺 ∈ PreHil → 𝐺 ∈ LMod)
105	4, 104	syl 17	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ LMod)
106		cnnrg 24717	. . . . . . 7 ⊢ ℂ_fld ∈ NrmRing
107	33	simp3d 1144	. . . . . . 7 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubRing‘ℂ_fld))
108		eqid 2735	. . . . . . . 8 ⊢ (ℂ_fld ↾_s (Base‘𝐹)) = (ℂ_fld ↾_s (Base‘𝐹))
109	108	subrgnrg 24610	. . . . . . 7 ⊢ ((ℂ_fld ∈ NrmRing ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)) → (ℂ_fld ↾_s (Base‘𝐹)) ∈ NrmRing)
110	106, 107, 109	sylancr 587	. . . . . 6 ⊢ (𝜑 → (ℂ_fld ↾_s (Base‘𝐹)) ∈ NrmRing)
111	57, 110	eqeltrd 2834	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ NrmRing)
112	103, 105, 111	3jca 1128	. . . 4 ⊢ (𝜑 → (𝐺 ∈ NrmGrp ∧ 𝐺 ∈ LMod ∧ 𝐹 ∈ NrmRing))
113	1	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝑊 ∈ PreHil)
114	57	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝐹 = (ℂ_fld ↾_s (Base‘𝐹)))
115	82	adantlr 715	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) ∧ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹))
116	17	adantlr 715	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
117		eqid 2735	. . . . . . 7 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
118		simprl 770	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝑦 ∈ (Base‘𝐹))
119		simprr 772	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝑧 ∈ 𝑉)
120	2, 5, 14, 113, 114, 6, 115, 116, 28, 117, 118, 119	tcphcphlem2 25186	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
121	5, 14, 117, 28	lmodvscl 20833	. . . . . . . . 9 ⊢ ((𝑊 ∈ LMod ∧ 𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
122	121	3expb 1120	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
123	11, 122	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
124		eqid 2735	. . . . . . . 8 ⊢ (norm‘𝐺) = (norm‘𝐺)
125	2, 124, 5, 6	tcphnmval 25179	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
126	13, 123, 125	syl2an2r 685	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
127	114	fveq2d 6879	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (norm‘𝐹) = (norm‘(ℂ_fld ↾_s (Base‘𝐹))))
128	127	fveq1d 6877	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦))
129		subrgsubg 20535	. . . . . . . . . 10 ⊢ ((Base‘𝐹) ∈ (SubRing‘ℂ_fld) → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
130	107, 129	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
131		cnfldnm 24715	. . . . . . . . . 10 ⊢ abs = (norm‘ℂ_fld)
132		eqid 2735	. . . . . . . . . 10 ⊢ (norm‘(ℂ_fld ↾_s (Base‘𝐹))) = (norm‘(ℂ_fld ↾_s (Base‘𝐹)))
133	108, 131, 132	subgnm2 24571	. . . . . . . . 9 ⊢ (((Base‘𝐹) ∈ (SubGrp‘ℂ_fld) ∧ 𝑦 ∈ (Base‘𝐹)) → ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦) = (abs‘𝑦))
134	130, 118, 133	syl2an2r 685	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦) = (abs‘𝑦))
135	128, 134	eqtrd 2770	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = (abs‘𝑦))
136	2, 124, 5, 6	tcphnmval 25179	. . . . . . . 8 ⊢ ((𝑊 ∈ Grp ∧ 𝑧 ∈ 𝑉) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
137	13, 119, 136	syl2an2r 685	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
138	135, 137	oveq12d 7421	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
139	120, 126, 138	3eqtr4d 2780	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
140	139	ralrimivva 3187	. . . 4 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
141	2, 5	tcphbas 25169	. . . . 5 ⊢ 𝑉 = (Base‘𝐺)
142	2, 117	tcphvsca 25174	. . . . 5 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝐺)
143	2, 14	tcphsca 25173	. . . . 5 ⊢ 𝐹 = (Scalar‘𝐺)
144		eqid 2735	. . . . 5 ⊢ (norm‘𝐹) = (norm‘𝐹)
145	141, 124, 142, 143, 28, 144	isnlm 24612	. . . 4 ⊢ (𝐺 ∈ NrmMod ↔ ((𝐺 ∈ NrmGrp ∧ 𝐺 ∈ LMod ∧ 𝐹 ∈ NrmRing) ∧ ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧))))
146	112, 140, 145	sylanbrc 583	. . 3 ⊢ (𝜑 → 𝐺 ∈ NrmMod)
147	4, 146, 57	3jca 1128	. 2 ⊢ (𝜑 → (𝐺 ∈ PreHil ∧ 𝐺 ∈ NrmMod ∧ 𝐹 = (ℂ_fld ↾_s (Base‘𝐹))))
148		elin 3942	. . . . . 6 ⊢ (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ (0[,)+∞)))
149		elrege0 13469	. . . . . . 7 ⊢ (𝑥 ∈ (0[,)+∞) ↔ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))
150	149	anbi2i 623	. . . . . 6 ⊢ ((𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
151	148, 150	bitri 275	. . . . 5 ⊢ (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
152	151, 80	biimtrid 242	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) → (√‘𝑥) ∈ (Base‘𝐹)))
153	152	ralrimiv 3131	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹))
154		sqrtf 15380	. . . . 5 ⊢ √:ℂ⟶ℂ
155		ffun 6708	. . . . 5 ⊢ (√:ℂ⟶ℂ → Fun √)
156	154, 155	ax-mp 5	. . . 4 ⊢ Fun √
157		inss1 4212	. . . . . 6 ⊢ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ (Base‘𝐹)
158	157, 36	sstrid 3970	. . . . 5 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ ℂ)
159	154	fdmi 6716	. . . . 5 ⊢ dom √ = ℂ
160	158, 159	sseqtrrdi 4000	. . . 4 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √)
161		funimass4 6942	. . . 4 ⊢ ((Fun √ ∧ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √) → ((√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹) ↔ ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹)))
162	156, 160, 161	sylancr 587	. . 3 ⊢ (𝜑 → ((√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹) ↔ ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹)))
163	153, 162	mpbird 257	. 2 ⊢ (𝜑 → (√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹))
164	42	fmpttd 7104	. . . 4 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ)
165	2, 5, 6	tcphval 25168	. . . . 5 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
166		cnex 11208	. . . . 5 ⊢ ℂ ∈ V
167	165, 5, 166	tngnm 24588	. . . 4 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ) → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
168	13, 164, 167	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
169	168	eqcomd 2741	. 2 ⊢ (𝜑 → (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
170	2, 6	tcphip 25175	. . 3 ⊢ , = (·_𝑖‘𝐺)
171	141, 170, 124, 143, 28	iscph 25120	. 2 ⊢ (𝐺 ∈ ℂPreHil ↔ ((𝐺 ∈ PreHil ∧ 𝐺 ∈ NrmMod ∧ 𝐹 = (ℂ_fld ↾_s (Base‘𝐹))) ∧ (√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹) ∧ (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦)))))
172	147, 163, 169, 171	syl3anbrc 1344	1 ⊢ (𝜑 → 𝐺 ∈ ℂPreHil)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2108 ∀wral 3051 ∩ cin 3925 ⊆ wss 3926 class class class wbr 5119 ↦ cmpt 5201 dom cdm 5654 “ cima 5657 Fun wfun 6524 ⟶wf 6526 ‘cfv 6530 (class class class)co 7403 ℂcc 11125 ℝcr 11126 0cc0 11127 + caddc 11130 · cmul 11132 +∞cpnf 11264 ≤ cle 11268 2c2 12293 [,)cico 13362 ↑cexp 14077 √csqrt 15250 abscabs 15251 Basecbs 17226 ↾_s cress 17249 Scalarcsca 17272 ·_𝑠 cvsca 17273 ·_𝑖cip 17274 0_gc0g 17451 Grpcgrp 18914 -_gcsg 18916 SubGrpcsubg 19101 SubRingcsubrg 20527 DivRingcdr 20687 LModclmod 20815 LVecclvec 21058 ℂ_fldccnfld 21313 PreHilcphl 21582 normcnm 24513 NrmGrpcngp 24514 NrmRingcnrg 24516 NrmModcnlm 24517 ℂModcclm 25011 ℂPreHilccph 25116 toℂPreHilctcph 25117

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2707 ax-rep 5249 ax-sep 5266 ax-nul 5276 ax-pow 5335 ax-pr 5402 ax-un 7727 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205 ax-addf 11206 ax-mulf 11207

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2539 df-eu 2568 df-clab 2714 df-cleq 2727 df-clel 2809 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3359 df-reu 3360 df-rab 3416 df-v 3461 df-sbc 3766 df-csb 3875 df-dif 3929 df-un 3931 df-in 3933 df-ss 3943 df-pss 3946 df-nul 4309 df-if 4501 df-pw 4577 df-sn 4602 df-pr 4604 df-tp 4606 df-op 4608 df-uni 4884 df-iun 4969 df-br 5120 df-opab 5182 df-mpt 5202 df-tr 5230 df-id 5548 df-eprel 5553 df-po 5561 df-so 5562 df-fr 5606 df-we 5608 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6290 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6483 df-fun 6532 df-fn 6533 df-f 6534 df-f1 6535 df-fo 6536 df-f1o 6537 df-fv 6538 df-riota 7360 df-ov 7406 df-oprab 7407 df-mpo 7408 df-om 7860 df-1st 7986 df-2nd 7987 df-tpos 8223 df-frecs 8278 df-wrecs 8309 df-recs 8383 df-rdg 8422 df-1o 8478 df-er 8717 df-map 8840 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-sup 9452 df-inf 9453 df-pnf 11269 df-mnf 11270 df-xr 11271 df-ltxr 11272 df-le 11273 df-sub 11466 df-neg 11467 df-div 11893 df-nn 12239 df-2 12301 df-3 12302 df-4 12303 df-5 12304 df-6 12305 df-7 12306 df-8 12307 df-9 12308 df-n0 12500 df-z 12587 df-dec 12707 df-uz 12851 df-q 12963 df-rp 13007 df-xneg 13126 df-xadd 13127 df-xmul 13128 df-ico 13366 df-fz 13523 df-seq 14018 df-exp 14078 df-cj 15116 df-re 15117 df-im 15118 df-sqrt 15252 df-abs 15253 df-struct 17164 df-sets 17181 df-slot 17199 df-ndx 17211 df-base 17227 df-ress 17250 df-plusg 17282 df-mulr 17283 df-starv 17284 df-sca 17285 df-vsca 17286 df-ip 17287 df-tset 17288 df-ple 17289 df-ds 17291 df-unif 17292 df-rest 17434 df-topn 17435 df-0g 17453 df-topgen 17455 df-mgm 18616 df-sgrp 18695 df-mnd 18711 df-mhm 18759 df-grp 18917 df-minusg 18918 df-sbg 18919 df-subg 19104 df-ghm 19194 df-cmn 19761 df-abl 19762 df-mgp 20099 df-rng 20111 df-ur 20140 df-ring 20193 df-cring 20194 df-oppr 20295 df-dvdsr 20315 df-unit 20316 df-invr 20346 df-dvr 20359 df-rhm 20430 df-subrng 20504 df-subrg 20528 df-drng 20689 df-abv 20767 df-staf 20797 df-srng 20798 df-lmod 20817 df-lmhm 20978 df-lvec 21059 df-sra 21129 df-rgmod 21130 df-psmet 21305 df-xmet 21306 df-met 21307 df-bl 21308 df-mopn 21309 df-cnfld 21314 df-phl 21584 df-top 22830 df-topon 22847 df-topsp 22869 df-bases 22882 df-xms 24257 df-ms 24258 df-nm 24519 df-ngp 24520 df-tng 24521 df-nrg 24522 df-nlm 24523 df-clm 25012 df-cph 25118 df-tcph 25119

This theorem is referenced by: rrxcph 25342

W3C validator