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 25157

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 25147	. . . 4 ⊢ (𝑊 ∈ PreHil ↔ 𝐺 ∈ PreHil)
4	1, 3	sylib 218	. . 3 ⊢ (𝜑 → 𝐺 ∈ PreHil)
5		tcphcph.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
6		tcphcph.h	. . . . . . 7 ⊢ , = (·_𝑖‘𝑊)
7	2, 5, 6	tcphval 25138	. . . . . 6 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
8		eqid 2730	. . . . . 6 ⊢ (-_g‘𝑊) = (-_g‘𝑊)
9		eqid 2730	. . . . . 6 ⊢ (0_g‘𝑊) = (0_g‘𝑊)
10		phllmod 21560	. . . . . . . 8 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
11	1, 10	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ LMod)
12		lmodgrp 20793	. . . . . . 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 25153	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝑥 , 𝑥) ∈ ℝ)
17		tcphcph.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
18	16, 17	resqrtcld 15317	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (√‘(𝑥 , 𝑥)) ∈ ℝ)
19	18	fmpttd 7043	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))):𝑉⟶ℝ)
20		oveq12 7350	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑦 ∧ 𝑥 = 𝑦) → (𝑥 , 𝑥) = (𝑦 , 𝑦))
21	20	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 , 𝑥) = (𝑦 , 𝑦))
22	21	fveq2d 6821	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (√‘(𝑥 , 𝑥)) = (√‘(𝑦 , 𝑦)))
23		eqid 2730	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))) = (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))
24		fvex 6830	. . . . . . . . . 10 ⊢ (√‘(𝑥 , 𝑥)) ∈ V
25	22, 23, 24	fvmpt3i 6929	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
26	25	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
27	26	eqeq1d 2732	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
28		eqid 2730	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐹) = (Base‘𝐹)
29		phllvec 21559	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
30	1, 29	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ LVec)
31	14	lvecdrng 21032	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
32	30, 31	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ∈ DivRing)
33	28, 15, 32	cphsubrglem 25097	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 = (ℂ_fld ↾_s (Base‘𝐹)) ∧ (Base‘𝐹) = (𝐾 ∩ ℂ) ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)))
34	33	simp2d 1143	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐹) = (𝐾 ∩ ℂ))
35		inss2 4186	. . . . . . . . . . . . 13 ⊢ (𝐾 ∩ ℂ) ⊆ ℂ
36	34, 35	eqsstrdi 3977	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝐹) ⊆ ℂ)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (Base‘𝐹) ⊆ ℂ)
38	14, 6, 5, 28	ipcl 21563	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
39	38	3anidm23 1423	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
40	1, 39	sylan 580	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
41	37, 40	sseldd 3933	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ ℂ)
42	41	sqrtcld 15339	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (√‘(𝑦 , 𝑦)) ∈ ℂ)
43		sqeq0 14019	. . . . . . . . 9 ⊢ ((√‘(𝑦 , 𝑦)) ∈ ℂ → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
44	42, 43	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
45	41	sqsqrtd 15341	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦))↑2) = (𝑦 , 𝑦))
46	2, 5, 14, 1, 15	phclm 25152	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂMod)
47	14	clm0 24992	. . . . . . . . . . 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 2746	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
51	44, 50	bitr3d 281	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦)) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
52		eqid 2730	. . . . . . . . 9 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
53	14, 6, 5, 52, 9	ipeq0 21568	. . . . . . . 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 11132	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℂ)
63	62	sqrtcld 15339	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ ℂ)
64	60, 63	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
65	64	ex 412	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
66	34	eleq2d 2815	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ (𝐾 ∩ ℂ)))
67		recn 11088	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
68		elin 3916	. . . . . . . . . . . . . . . . . . 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 2815	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((√‘𝑥) ∈ (Base‘𝐹) ↔ (√‘𝑥) ∈ (𝐾 ∩ ℂ)))
78		elin 3916	. . . . . . . . . . . . 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 25155	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))) ≤ ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
88	5, 8	grpsubcl 18925	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
89	88	3expb 1120	. . . . . . . . 9 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
90	13, 89	sylan 580	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
91		oveq12 7350	. . . . . . . . . . 11 ⊢ ((𝑥 = (𝑦(-_g‘𝑊)𝑧) ∧ 𝑥 = (𝑦(-_g‘𝑊)𝑧)) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
92	91	anidms 566	. . . . . . . . . 10 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
93	92	fveq2d 6821	. . . . . . . . 9 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (√‘(𝑥 , 𝑥)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
94	93, 23, 24	fvmpt3i 6929	. . . . . . . 8 ⊢ ((𝑦(-_g‘𝑊)𝑧) ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
95	90, 94	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
96		oveq12 7350	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑧 ∧ 𝑥 = 𝑧) → (𝑥 , 𝑥) = (𝑧 , 𝑧))
97	96	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (𝑥 , 𝑥) = (𝑧 , 𝑧))
98	97	fveq2d 6821	. . . . . . . . . 10 ⊢ (𝑥 = 𝑧 → (√‘(𝑥 , 𝑥)) = (√‘(𝑧 , 𝑧)))
99	98, 23, 24	fvmpt3i 6929	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧) = (√‘(𝑧 , 𝑧)))
100	25, 99	oveqan12d 7360	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
101	100	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
102	87, 95, 101	3brtr4d 5121	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) ≤ (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)))
103	7, 5, 8, 9, 13, 19, 55, 102	tngngpd 24561	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ NrmGrp)
104		phllmod 21560	. . . . . 6 ⊢ (𝐺 ∈ PreHil → 𝐺 ∈ LMod)
105	4, 104	syl 17	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ LMod)
106		cnnrg 24688	. . . . . . 7 ⊢ ℂ_fld ∈ NrmRing
107	33	simp3d 1144	. . . . . . 7 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubRing‘ℂ_fld))
108		eqid 2730	. . . . . . . 8 ⊢ (ℂ_fld ↾_s (Base‘𝐹)) = (ℂ_fld ↾_s (Base‘𝐹))
109	108	subrgnrg 24581	. . . . . . 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 2829	. . . . 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 2730	. . . . . . 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 25156	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
121	5, 14, 117, 28	lmodvscl 20804	. . . . . . . . 9 ⊢ ((𝑊 ∈ LMod ∧ 𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
122	121	3expb 1120	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
123	11, 122	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
124		eqid 2730	. . . . . . . 8 ⊢ (norm‘𝐺) = (norm‘𝐺)
125	2, 124, 5, 6	tcphnmval 25149	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
126	13, 123, 125	syl2an2r 685	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
127	114	fveq2d 6821	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (norm‘𝐹) = (norm‘(ℂ_fld ↾_s (Base‘𝐹))))
128	127	fveq1d 6819	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦))
129		subrgsubg 20485	. . . . . . . . . 10 ⊢ ((Base‘𝐹) ∈ (SubRing‘ℂ_fld) → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
130	107, 129	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
131		cnfldnm 24686	. . . . . . . . . 10 ⊢ abs = (norm‘ℂ_fld)
132		eqid 2730	. . . . . . . . . 10 ⊢ (norm‘(ℂ_fld ↾_s (Base‘𝐹))) = (norm‘(ℂ_fld ↾_s (Base‘𝐹)))
133	108, 131, 132	subgnm2 24542	. . . . . . . . 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 2765	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = (abs‘𝑦))
136	2, 124, 5, 6	tcphnmval 25149	. . . . . . . 8 ⊢ ((𝑊 ∈ Grp ∧ 𝑧 ∈ 𝑉) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
137	13, 119, 136	syl2an2r 685	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
138	135, 137	oveq12d 7359	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
139	120, 126, 138	3eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
140	139	ralrimivva 3173	. . . 4 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
141	2, 5	tcphbas 25139	. . . . 5 ⊢ 𝑉 = (Base‘𝐺)
142	2, 117	tcphvsca 25144	. . . . 5 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝐺)
143	2, 14	tcphsca 25143	. . . . 5 ⊢ 𝐹 = (Scalar‘𝐺)
144		eqid 2730	. . . . 5 ⊢ (norm‘𝐹) = (norm‘𝐹)
145	141, 124, 142, 143, 28, 144	isnlm 24583	. . . 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 3916	. . . . . 6 ⊢ (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ (0[,)+∞)))
149		elrege0 13346	. . . . . . 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 3121	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹))
154		sqrtf 15263	. . . . 5 ⊢ √:ℂ⟶ℂ
155		ffun 6650	. . . . 5 ⊢ (√:ℂ⟶ℂ → Fun √)
156	154, 155	ax-mp 5	. . . 4 ⊢ Fun √
157		inss1 4185	. . . . . 6 ⊢ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ (Base‘𝐹)
158	157, 36	sstrid 3944	. . . . 5 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ ℂ)
159	154	fdmi 6658	. . . . 5 ⊢ dom √ = ℂ
160	158, 159	sseqtrrdi 3974	. . . 4 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √)
161		funimass4 6881	. . . 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 7043	. . . 4 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ)
165	2, 5, 6	tcphval 25138	. . . . 5 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
166		cnex 11079	. . . . 5 ⊢ ℂ ∈ V
167	165, 5, 166	tngnm 24559	. . . 4 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ) → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
168	13, 164, 167	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
169	168	eqcomd 2736	. 2 ⊢ (𝜑 → (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
170	2, 6	tcphip 25145	. . 3 ⊢ , = (·_𝑖‘𝐺)
171	141, 170, 124, 143, 28	iscph 25090	. 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 1541 ∈ wcel 2110 ∀wral 3045 ∩ cin 3899 ⊆ wss 3900 class class class wbr 5089 ↦ cmpt 5170 dom cdm 5614 “ cima 5617 Fun wfun 6471 ⟶wf 6473 ‘cfv 6477 (class class class)co 7341 ℂcc 10996 ℝcr 10997 0cc0 10998 + caddc 11001 · cmul 11003 +∞cpnf 11135 ≤ cle 11139 2c2 12172 [,)cico 13239 ↑cexp 13960 √csqrt 15132 abscabs 15133 Basecbs 17112 ↾_s cress 17133 Scalarcsca 17156 ·_𝑠 cvsca 17157 ·_𝑖cip 17158 0_gc0g 17335 Grpcgrp 18838 -_gcsg 18840 SubGrpcsubg 19025 SubRingcsubrg 20477 DivRingcdr 20637 LModclmod 20786 LVecclvec 21029 ℂ_fldccnfld 21284 PreHilcphl 21554 normcnm 24484 NrmGrpcngp 24485 NrmRingcnrg 24487 NrmModcnlm 24488 ℂModcclm 24982 ℂPreHilccph 25086 toℂPreHilctcph 25087

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2112 ax-9 2120 ax-10 2143 ax-11 2159 ax-12 2179 ax-ext 2702 ax-rep 5215 ax-sep 5232 ax-nul 5242 ax-pow 5301 ax-pr 5368 ax-un 7663 ax-cnex 11054 ax-resscn 11055 ax-1cn 11056 ax-icn 11057 ax-addcl 11058 ax-addrcl 11059 ax-mulcl 11060 ax-mulrcl 11061 ax-mulcom 11062 ax-addass 11063 ax-mulass 11064 ax-distr 11065 ax-i2m1 11066 ax-1ne0 11067 ax-1rid 11068 ax-rnegex 11069 ax-rrecex 11070 ax-cnre 11071 ax-pre-lttri 11072 ax-pre-lttrn 11073 ax-pre-ltadd 11074 ax-pre-mulgt0 11075 ax-pre-sup 11076 ax-addf 11077 ax-mulf 11078

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2067 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3344 df-reu 3345 df-rab 3394 df-v 3436 df-sbc 3740 df-csb 3849 df-dif 3903 df-un 3905 df-in 3907 df-ss 3917 df-pss 3920 df-nul 4282 df-if 4474 df-pw 4550 df-sn 4575 df-pr 4577 df-tp 4579 df-op 4581 df-uni 4858 df-iun 4941 df-br 5090 df-opab 5152 df-mpt 5171 df-tr 5197 df-id 5509 df-eprel 5514 df-po 5522 df-so 5523 df-fr 5567 df-we 5569 df-xp 5620 df-rel 5621 df-cnv 5622 df-co 5623 df-dm 5624 df-rn 5625 df-res 5626 df-ima 5627 df-pred 6244 df-ord 6305 df-on 6306 df-lim 6307 df-suc 6308 df-iota 6433 df-fun 6479 df-fn 6480 df-f 6481 df-f1 6482 df-fo 6483 df-f1o 6484 df-fv 6485 df-riota 7298 df-ov 7344 df-oprab 7345 df-mpo 7346 df-om 7792 df-1st 7916 df-2nd 7917 df-tpos 8151 df-frecs 8206 df-wrecs 8237 df-recs 8286 df-rdg 8324 df-1o 8380 df-er 8617 df-map 8747 df-en 8865 df-dom 8866 df-sdom 8867 df-fin 8868 df-sup 9321 df-inf 9322 df-pnf 11140 df-mnf 11141 df-xr 11142 df-ltxr 11143 df-le 11144 df-sub 11338 df-neg 11339 df-div 11767 df-nn 12118 df-2 12180 df-3 12181 df-4 12182 df-5 12183 df-6 12184 df-7 12185 df-8 12186 df-9 12187 df-n0 12374 df-z 12461 df-dec 12581 df-uz 12725 df-q 12839 df-rp 12883 df-xneg 13003 df-xadd 13004 df-xmul 13005 df-ico 13243 df-fz 13400 df-seq 13901 df-exp 13961 df-cj 14998 df-re 14999 df-im 15000 df-sqrt 15134 df-abs 15135 df-struct 17050 df-sets 17067 df-slot 17085 df-ndx 17097 df-base 17113 df-ress 17134 df-plusg 17166 df-mulr 17167 df-starv 17168 df-sca 17169 df-vsca 17170 df-ip 17171 df-tset 17172 df-ple 17173 df-ds 17175 df-unif 17176 df-rest 17318 df-topn 17319 df-0g 17337 df-topgen 17339 df-mgm 18540 df-sgrp 18619 df-mnd 18635 df-mhm 18683 df-grp 18841 df-minusg 18842 df-sbg 18843 df-subg 19028 df-ghm 19118 df-cmn 19687 df-abl 19688 df-mgp 20052 df-rng 20064 df-ur 20093 df-ring 20146 df-cring 20147 df-oppr 20248 df-dvdsr 20268 df-unit 20269 df-invr 20299 df-dvr 20312 df-rhm 20383 df-subrng 20454 df-subrg 20478 df-drng 20639 df-abv 20717 df-staf 20747 df-srng 20748 df-lmod 20788 df-lmhm 20949 df-lvec 21030 df-sra 21100 df-rgmod 21101 df-psmet 21276 df-xmet 21277 df-met 21278 df-bl 21279 df-mopn 21280 df-cnfld 21285 df-phl 21556 df-top 22802 df-topon 22819 df-topsp 22841 df-bases 22854 df-xms 24228 df-ms 24229 df-nm 24490 df-ngp 24491 df-tng 24492 df-nrg 24493 df-nlm 24494 df-clm 24983 df-cph 25088 df-tcph 25089

This theorem is referenced by: rrxcph 25312

W3C validator