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 25174

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 25164	. . . 4 ⊢ (𝑊 ∈ PreHil ↔ 𝐺 ∈ PreHil)
4	1, 3	sylib 218	. . 3 ⊢ (𝜑 → 𝐺 ∈ PreHil)
5		tcphcph.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
6		tcphcph.h	. . . . . . 7 ⊢ , = (·_𝑖‘𝑊)
7	2, 5, 6	tcphval 25155	. . . . . 6 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
8		eqid 2733	. . . . . 6 ⊢ (-_g‘𝑊) = (-_g‘𝑊)
9		eqid 2733	. . . . . 6 ⊢ (0_g‘𝑊) = (0_g‘𝑊)
10		phllmod 21577	. . . . . . . 8 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
11	1, 10	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ LMod)
12		lmodgrp 20810	. . . . . . 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 25170	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝑥 , 𝑥) ∈ ℝ)
17		tcphcph.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
18	16, 17	resqrtcld 15335	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (√‘(𝑥 , 𝑥)) ∈ ℝ)
19	18	fmpttd 7057	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))):𝑉⟶ℝ)
20		oveq12 7364	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑦 ∧ 𝑥 = 𝑦) → (𝑥 , 𝑥) = (𝑦 , 𝑦))
21	20	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 , 𝑥) = (𝑦 , 𝑦))
22	21	fveq2d 6835	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (√‘(𝑥 , 𝑥)) = (√‘(𝑦 , 𝑦)))
23		eqid 2733	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))) = (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))
24		fvex 6844	. . . . . . . . . 10 ⊢ (√‘(𝑥 , 𝑥)) ∈ V
25	22, 23, 24	fvmpt3i 6943	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
26	25	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
27	26	eqeq1d 2735	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
28		eqid 2733	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐹) = (Base‘𝐹)
29		phllvec 21576	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
30	1, 29	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ LVec)
31	14	lvecdrng 21049	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
32	30, 31	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ∈ DivRing)
33	28, 15, 32	cphsubrglem 25114	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 = (ℂ_fld ↾_s (Base‘𝐹)) ∧ (Base‘𝐹) = (𝐾 ∩ ℂ) ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)))
34	33	simp2d 1143	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐹) = (𝐾 ∩ ℂ))
35		inss2 4189	. . . . . . . . . . . . 13 ⊢ (𝐾 ∩ ℂ) ⊆ ℂ
36	34, 35	eqsstrdi 3976	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝐹) ⊆ ℂ)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (Base‘𝐹) ⊆ ℂ)
38	14, 6, 5, 28	ipcl 21580	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
39	38	3anidm23 1423	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
40	1, 39	sylan 580	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
41	37, 40	sseldd 3932	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ ℂ)
42	41	sqrtcld 15357	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (√‘(𝑦 , 𝑦)) ∈ ℂ)
43		sqeq0 14037	. . . . . . . . 9 ⊢ ((√‘(𝑦 , 𝑦)) ∈ ℂ → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
44	42, 43	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
45	41	sqsqrtd 15359	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦))↑2) = (𝑦 , 𝑦))
46	2, 5, 14, 1, 15	phclm 25169	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂMod)
47	14	clm0 25009	. . . . . . . . . . 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 2749	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
51	44, 50	bitr3d 281	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦)) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
52		eqid 2733	. . . . . . . . 9 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
53	14, 6, 5, 52, 9	ipeq0 21585	. . . . . . . 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 11150	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℂ)
63	62	sqrtcld 15357	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ ℂ)
64	60, 63	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
65	64	ex 412	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
66	34	eleq2d 2819	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ (𝐾 ∩ ℂ)))
67		recn 11106	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
68		elin 3915	. . . . . . . . . . . . . . . . . . 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 2819	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((√‘𝑥) ∈ (Base‘𝐹) ↔ (√‘𝑥) ∈ (𝐾 ∩ ℂ)))
78		elin 3915	. . . . . . . . . . . . 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 25172	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))) ≤ ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
88	5, 8	grpsubcl 18943	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
89	88	3expb 1120	. . . . . . . . 9 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
90	13, 89	sylan 580	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
91		oveq12 7364	. . . . . . . . . . 11 ⊢ ((𝑥 = (𝑦(-_g‘𝑊)𝑧) ∧ 𝑥 = (𝑦(-_g‘𝑊)𝑧)) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
92	91	anidms 566	. . . . . . . . . 10 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
93	92	fveq2d 6835	. . . . . . . . 9 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (√‘(𝑥 , 𝑥)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
94	93, 23, 24	fvmpt3i 6943	. . . . . . . 8 ⊢ ((𝑦(-_g‘𝑊)𝑧) ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
95	90, 94	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
96		oveq12 7364	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑧 ∧ 𝑥 = 𝑧) → (𝑥 , 𝑥) = (𝑧 , 𝑧))
97	96	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (𝑥 , 𝑥) = (𝑧 , 𝑧))
98	97	fveq2d 6835	. . . . . . . . . 10 ⊢ (𝑥 = 𝑧 → (√‘(𝑥 , 𝑥)) = (√‘(𝑧 , 𝑧)))
99	98, 23, 24	fvmpt3i 6943	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧) = (√‘(𝑧 , 𝑧)))
100	25, 99	oveqan12d 7374	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
101	100	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
102	87, 95, 101	3brtr4d 5127	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) ≤ (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)))
103	7, 5, 8, 9, 13, 19, 55, 102	tngngpd 24578	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ NrmGrp)
104		phllmod 21577	. . . . . 6 ⊢ (𝐺 ∈ PreHil → 𝐺 ∈ LMod)
105	4, 104	syl 17	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ LMod)
106		cnnrg 24705	. . . . . . 7 ⊢ ℂ_fld ∈ NrmRing
107	33	simp3d 1144	. . . . . . 7 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubRing‘ℂ_fld))
108		eqid 2733	. . . . . . . 8 ⊢ (ℂ_fld ↾_s (Base‘𝐹)) = (ℂ_fld ↾_s (Base‘𝐹))
109	108	subrgnrg 24598	. . . . . . 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 2833	. . . . 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 2733	. . . . . . 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 25173	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
121	5, 14, 117, 28	lmodvscl 20821	. . . . . . . . 9 ⊢ ((𝑊 ∈ LMod ∧ 𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
122	121	3expb 1120	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
123	11, 122	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
124		eqid 2733	. . . . . . . 8 ⊢ (norm‘𝐺) = (norm‘𝐺)
125	2, 124, 5, 6	tcphnmval 25166	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
126	13, 123, 125	syl2an2r 685	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
127	114	fveq2d 6835	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (norm‘𝐹) = (norm‘(ℂ_fld ↾_s (Base‘𝐹))))
128	127	fveq1d 6833	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦))
129		subrgsubg 20502	. . . . . . . . . 10 ⊢ ((Base‘𝐹) ∈ (SubRing‘ℂ_fld) → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
130	107, 129	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
131		cnfldnm 24703	. . . . . . . . . 10 ⊢ abs = (norm‘ℂ_fld)
132		eqid 2733	. . . . . . . . . 10 ⊢ (norm‘(ℂ_fld ↾_s (Base‘𝐹))) = (norm‘(ℂ_fld ↾_s (Base‘𝐹)))
133	108, 131, 132	subgnm2 24559	. . . . . . . . 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 2768	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = (abs‘𝑦))
136	2, 124, 5, 6	tcphnmval 25166	. . . . . . . 8 ⊢ ((𝑊 ∈ Grp ∧ 𝑧 ∈ 𝑉) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
137	13, 119, 136	syl2an2r 685	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
138	135, 137	oveq12d 7373	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
139	120, 126, 138	3eqtr4d 2778	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
140	139	ralrimivva 3177	. . . 4 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
141	2, 5	tcphbas 25156	. . . . 5 ⊢ 𝑉 = (Base‘𝐺)
142	2, 117	tcphvsca 25161	. . . . 5 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝐺)
143	2, 14	tcphsca 25160	. . . . 5 ⊢ 𝐹 = (Scalar‘𝐺)
144		eqid 2733	. . . . 5 ⊢ (norm‘𝐹) = (norm‘𝐹)
145	141, 124, 142, 143, 28, 144	isnlm 24600	. . . 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 3915	. . . . . 6 ⊢ (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ (0[,)+∞)))
149		elrege0 13364	. . . . . . 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 3125	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹))
154		sqrtf 15281	. . . . 5 ⊢ √:ℂ⟶ℂ
155		ffun 6662	. . . . 5 ⊢ (√:ℂ⟶ℂ → Fun √)
156	154, 155	ax-mp 5	. . . 4 ⊢ Fun √
157		inss1 4188	. . . . . 6 ⊢ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ (Base‘𝐹)
158	157, 36	sstrid 3943	. . . . 5 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ ℂ)
159	154	fdmi 6670	. . . . 5 ⊢ dom √ = ℂ
160	158, 159	sseqtrrdi 3973	. . . 4 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √)
161		funimass4 6895	. . . 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 7057	. . . 4 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ)
165	2, 5, 6	tcphval 25155	. . . . 5 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
166		cnex 11097	. . . . 5 ⊢ ℂ ∈ V
167	165, 5, 166	tngnm 24576	. . . 4 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ) → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
168	13, 164, 167	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
169	168	eqcomd 2739	. 2 ⊢ (𝜑 → (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
170	2, 6	tcphip 25162	. . 3 ⊢ , = (·_𝑖‘𝐺)
171	141, 170, 124, 143, 28	iscph 25107	. 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 2113 ∀wral 3049 ∩ cin 3898 ⊆ wss 3899 class class class wbr 5095 ↦ cmpt 5176 dom cdm 5621 “ cima 5624 Fun wfun 6483 ⟶wf 6485 ‘cfv 6489 (class class class)co 7355 ℂcc 11014 ℝcr 11015 0cc0 11016 + caddc 11019 · cmul 11021 +∞cpnf 11153 ≤ cle 11157 2c2 12190 [,)cico 13257 ↑cexp 13978 √csqrt 15150 abscabs 15151 Basecbs 17130 ↾_s cress 17151 Scalarcsca 17174 ·_𝑠 cvsca 17175 ·_𝑖cip 17176 0_gc0g 17353 Grpcgrp 18856 -_gcsg 18858 SubGrpcsubg 19043 SubRingcsubrg 20494 DivRingcdr 20654 LModclmod 20803 LVecclvec 21046 ℂ_fldccnfld 21301 PreHilcphl 21571 normcnm 24501 NrmGrpcngp 24502 NrmRingcnrg 24504 NrmModcnlm 24505 ℂModcclm 24999 ℂPreHilccph 25103 toℂPreHilctcph 25104

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 2115 ax-9 2123 ax-10 2146 ax-11 2162 ax-12 2182 ax-ext 2705 ax-rep 5221 ax-sep 5238 ax-nul 5248 ax-pow 5307 ax-pr 5374 ax-un 7677 ax-cnex 11072 ax-resscn 11073 ax-1cn 11074 ax-icn 11075 ax-addcl 11076 ax-addrcl 11077 ax-mulcl 11078 ax-mulrcl 11079 ax-mulcom 11080 ax-addass 11081 ax-mulass 11082 ax-distr 11083 ax-i2m1 11084 ax-1ne0 11085 ax-1rid 11086 ax-rnegex 11087 ax-rrecex 11088 ax-cnre 11089 ax-pre-lttri 11090 ax-pre-lttrn 11091 ax-pre-ltadd 11092 ax-pre-mulgt0 11093 ax-pre-sup 11094 ax-addf 11095 ax-mulf 11096

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 2068 df-mo 2537 df-eu 2566 df-clab 2712 df-cleq 2725 df-clel 2808 df-nfc 2883 df-ne 2931 df-nel 3035 df-ral 3050 df-rex 3059 df-rmo 3348 df-reu 3349 df-rab 3398 df-v 3440 df-sbc 3739 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-uni 4861 df-iun 4945 df-br 5096 df-opab 5158 df-mpt 5177 df-tr 5203 df-id 5516 df-eprel 5521 df-po 5529 df-so 5530 df-fr 5574 df-we 5576 df-xp 5627 df-rel 5628 df-cnv 5629 df-co 5630 df-dm 5631 df-rn 5632 df-res 5633 df-ima 5634 df-pred 6256 df-ord 6317 df-on 6318 df-lim 6319 df-suc 6320 df-iota 6445 df-fun 6491 df-fn 6492 df-f 6493 df-f1 6494 df-fo 6495 df-f1o 6496 df-fv 6497 df-riota 7312 df-ov 7358 df-oprab 7359 df-mpo 7360 df-om 7806 df-1st 7930 df-2nd 7931 df-tpos 8165 df-frecs 8220 df-wrecs 8251 df-recs 8300 df-rdg 8338 df-1o 8394 df-er 8631 df-map 8761 df-en 8879 df-dom 8880 df-sdom 8881 df-fin 8882 df-sup 9336 df-inf 9337 df-pnf 11158 df-mnf 11159 df-xr 11160 df-ltxr 11161 df-le 11162 df-sub 11356 df-neg 11357 df-div 11785 df-nn 12136 df-2 12198 df-3 12199 df-4 12200 df-5 12201 df-6 12202 df-7 12203 df-8 12204 df-9 12205 df-n0 12392 df-z 12479 df-dec 12599 df-uz 12743 df-q 12857 df-rp 12901 df-xneg 13021 df-xadd 13022 df-xmul 13023 df-ico 13261 df-fz 13418 df-seq 13919 df-exp 13979 df-cj 15016 df-re 15017 df-im 15018 df-sqrt 15152 df-abs 15153 df-struct 17068 df-sets 17085 df-slot 17103 df-ndx 17115 df-base 17131 df-ress 17152 df-plusg 17184 df-mulr 17185 df-starv 17186 df-sca 17187 df-vsca 17188 df-ip 17189 df-tset 17190 df-ple 17191 df-ds 17193 df-unif 17194 df-rest 17336 df-topn 17337 df-0g 17355 df-topgen 17357 df-mgm 18558 df-sgrp 18637 df-mnd 18653 df-mhm 18701 df-grp 18859 df-minusg 18860 df-sbg 18861 df-subg 19046 df-ghm 19135 df-cmn 19704 df-abl 19705 df-mgp 20069 df-rng 20081 df-ur 20110 df-ring 20163 df-cring 20164 df-oppr 20265 df-dvdsr 20285 df-unit 20286 df-invr 20316 df-dvr 20329 df-rhm 20400 df-subrng 20471 df-subrg 20495 df-drng 20656 df-abv 20734 df-staf 20764 df-srng 20765 df-lmod 20805 df-lmhm 20966 df-lvec 21047 df-sra 21117 df-rgmod 21118 df-psmet 21293 df-xmet 21294 df-met 21295 df-bl 21296 df-mopn 21297 df-cnfld 21302 df-phl 21573 df-top 22819 df-topon 22836 df-topsp 22858 df-bases 22871 df-xms 24245 df-ms 24246 df-nm 24507 df-ngp 24508 df-tng 24509 df-nrg 24510 df-nlm 24511 df-clm 25000 df-cph 25105 df-tcph 25106

This theorem is referenced by: rrxcph 25329

W3C validator