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 25118

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 25108	. . . 4 ⊢ (𝑊 ∈ PreHil ↔ 𝐺 ∈ PreHil)
4	1, 3	sylib 218	. . 3 ⊢ (𝜑 → 𝐺 ∈ PreHil)
5		tcphcph.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
6		tcphcph.h	. . . . . . 7 ⊢ , = (·_𝑖‘𝑊)
7	2, 5, 6	tcphval 25099	. . . . . 6 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
8		eqid 2729	. . . . . 6 ⊢ (-_g‘𝑊) = (-_g‘𝑊)
9		eqid 2729	. . . . . 6 ⊢ (0_g‘𝑊) = (0_g‘𝑊)
10		phllmod 21521	. . . . . . . 8 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
11	1, 10	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ LMod)
12		lmodgrp 20754	. . . . . . 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 25114	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝑥 , 𝑥) ∈ ℝ)
17		tcphcph.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
18	16, 17	resqrtcld 15312	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (√‘(𝑥 , 𝑥)) ∈ ℝ)
19	18	fmpttd 7042	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))):𝑉⟶ℝ)
20		oveq12 7349	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑦 ∧ 𝑥 = 𝑦) → (𝑥 , 𝑥) = (𝑦 , 𝑦))
21	20	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 , 𝑥) = (𝑦 , 𝑦))
22	21	fveq2d 6820	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (√‘(𝑥 , 𝑥)) = (√‘(𝑦 , 𝑦)))
23		eqid 2729	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))) = (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))
24		fvex 6829	. . . . . . . . . 10 ⊢ (√‘(𝑥 , 𝑥)) ∈ V
25	22, 23, 24	fvmpt3i 6928	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
26	25	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
27	26	eqeq1d 2731	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
28		eqid 2729	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐹) = (Base‘𝐹)
29		phllvec 21520	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
30	1, 29	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ LVec)
31	14	lvecdrng 20993	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
32	30, 31	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ∈ DivRing)
33	28, 15, 32	cphsubrglem 25058	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 = (ℂ_fld ↾_s (Base‘𝐹)) ∧ (Base‘𝐹) = (𝐾 ∩ ℂ) ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)))
34	33	simp2d 1143	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐹) = (𝐾 ∩ ℂ))
35		inss2 4185	. . . . . . . . . . . . 13 ⊢ (𝐾 ∩ ℂ) ⊆ ℂ
36	34, 35	eqsstrdi 3976	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝐹) ⊆ ℂ)
37	36	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (Base‘𝐹) ⊆ ℂ)
38	14, 6, 5, 28	ipcl 21524	. . . . . . . . . . . . 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 15334	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (√‘(𝑦 , 𝑦)) ∈ ℂ)
43		sqeq0 14015	. . . . . . . . 9 ⊢ ((√‘(𝑦 , 𝑦)) ∈ ℂ → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
44	42, 43	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
45	41	sqsqrtd 15336	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦))↑2) = (𝑦 , 𝑦))
46	2, 5, 14, 1, 15	phclm 25113	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂMod)
47	14	clm0 24953	. . . . . . . . . . 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 2745	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
51	44, 50	bitr3d 281	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦)) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
52		eqid 2729	. . . . . . . . 9 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
53	14, 6, 5, 52, 9	ipeq0 21529	. . . . . . . 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 11131	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℂ)
63	62	sqrtcld 15334	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ ℂ)
64	60, 63	jca 511	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
65	64	ex 412	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
66	34	eleq2d 2814	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ (𝐾 ∩ ℂ)))
67		recn 11087	. . . . . . . . . . . . . . . . . 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 2814	. . . . . . . . . . . . 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 25116	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))) ≤ ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
88	5, 8	grpsubcl 18886	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
89	88	3expb 1120	. . . . . . . . 9 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
90	13, 89	sylan 580	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
91		oveq12 7349	. . . . . . . . . . 11 ⊢ ((𝑥 = (𝑦(-_g‘𝑊)𝑧) ∧ 𝑥 = (𝑦(-_g‘𝑊)𝑧)) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
92	91	anidms 566	. . . . . . . . . 10 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
93	92	fveq2d 6820	. . . . . . . . 9 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (√‘(𝑥 , 𝑥)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
94	93, 23, 24	fvmpt3i 6928	. . . . . . . 8 ⊢ ((𝑦(-_g‘𝑊)𝑧) ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
95	90, 94	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
96		oveq12 7349	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑧 ∧ 𝑥 = 𝑧) → (𝑥 , 𝑥) = (𝑧 , 𝑧))
97	96	anidms 566	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (𝑥 , 𝑥) = (𝑧 , 𝑧))
98	97	fveq2d 6820	. . . . . . . . . 10 ⊢ (𝑥 = 𝑧 → (√‘(𝑥 , 𝑥)) = (√‘(𝑧 , 𝑧)))
99	98, 23, 24	fvmpt3i 6928	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧) = (√‘(𝑧 , 𝑧)))
100	25, 99	oveqan12d 7359	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
101	100	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
102	87, 95, 101	3brtr4d 5120	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) ≤ (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)))
103	7, 5, 8, 9, 13, 19, 55, 102	tngngpd 24522	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ NrmGrp)
104		phllmod 21521	. . . . . 6 ⊢ (𝐺 ∈ PreHil → 𝐺 ∈ LMod)
105	4, 104	syl 17	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ LMod)
106		cnnrg 24649	. . . . . . 7 ⊢ ℂ_fld ∈ NrmRing
107	33	simp3d 1144	. . . . . . 7 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubRing‘ℂ_fld))
108		eqid 2729	. . . . . . . 8 ⊢ (ℂ_fld ↾_s (Base‘𝐹)) = (ℂ_fld ↾_s (Base‘𝐹))
109	108	subrgnrg 24542	. . . . . . 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 2828	. . . . 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 2729	. . . . . . 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 25117	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
121	5, 14, 117, 28	lmodvscl 20765	. . . . . . . . 9 ⊢ ((𝑊 ∈ LMod ∧ 𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
122	121	3expb 1120	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
123	11, 122	sylan 580	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
124		eqid 2729	. . . . . . . 8 ⊢ (norm‘𝐺) = (norm‘𝐺)
125	2, 124, 5, 6	tcphnmval 25110	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
126	13, 123, 125	syl2an2r 685	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
127	114	fveq2d 6820	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (norm‘𝐹) = (norm‘(ℂ_fld ↾_s (Base‘𝐹))))
128	127	fveq1d 6818	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦))
129		subrgsubg 20446	. . . . . . . . . 10 ⊢ ((Base‘𝐹) ∈ (SubRing‘ℂ_fld) → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
130	107, 129	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
131		cnfldnm 24647	. . . . . . . . . 10 ⊢ abs = (norm‘ℂ_fld)
132		eqid 2729	. . . . . . . . . 10 ⊢ (norm‘(ℂ_fld ↾_s (Base‘𝐹))) = (norm‘(ℂ_fld ↾_s (Base‘𝐹)))
133	108, 131, 132	subgnm2 24503	. . . . . . . . 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 2764	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = (abs‘𝑦))
136	2, 124, 5, 6	tcphnmval 25110	. . . . . . . 8 ⊢ ((𝑊 ∈ Grp ∧ 𝑧 ∈ 𝑉) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
137	13, 119, 136	syl2an2r 685	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
138	135, 137	oveq12d 7358	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
139	120, 126, 138	3eqtr4d 2774	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
140	139	ralrimivva 3172	. . . 4 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
141	2, 5	tcphbas 25100	. . . . 5 ⊢ 𝑉 = (Base‘𝐺)
142	2, 117	tcphvsca 25105	. . . . 5 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝐺)
143	2, 14	tcphsca 25104	. . . . 5 ⊢ 𝐹 = (Scalar‘𝐺)
144		eqid 2729	. . . . 5 ⊢ (norm‘𝐹) = (norm‘𝐹)
145	141, 124, 142, 143, 28, 144	isnlm 24544	. . . 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 13345	. . . . . . 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 3120	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹))
154		sqrtf 15258	. . . . 5 ⊢ √:ℂ⟶ℂ
155		ffun 6649	. . . . 5 ⊢ (√:ℂ⟶ℂ → Fun √)
156	154, 155	ax-mp 5	. . . 4 ⊢ Fun √
157		inss1 4184	. . . . . 6 ⊢ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ (Base‘𝐹)
158	157, 36	sstrid 3943	. . . . 5 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ ℂ)
159	154	fdmi 6657	. . . . 5 ⊢ dom √ = ℂ
160	158, 159	sseqtrrdi 3973	. . . 4 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √)
161		funimass4 6880	. . . 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 7042	. . . 4 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ)
165	2, 5, 6	tcphval 25099	. . . . 5 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
166		cnex 11078	. . . . 5 ⊢ ℂ ∈ V
167	165, 5, 166	tngnm 24520	. . . 4 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ) → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
168	13, 164, 167	syl2anc 584	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
169	168	eqcomd 2735	. 2 ⊢ (𝜑 → (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
170	2, 6	tcphip 25106	. . 3 ⊢ , = (·_𝑖‘𝐺)
171	141, 170, 124, 143, 28	iscph 25051	. 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 2109 ∀wral 3044 ∩ cin 3898 ⊆ wss 3899 class class class wbr 5088 ↦ cmpt 5169 dom cdm 5613 “ cima 5616 Fun wfun 6470 ⟶wf 6472 ‘cfv 6476 (class class class)co 7340 ℂcc 10995 ℝcr 10996 0cc0 10997 + caddc 11000 · cmul 11002 +∞cpnf 11134 ≤ cle 11138 2c2 12171 [,)cico 13238 ↑cexp 13956 √csqrt 15127 abscabs 15128 Basecbs 17107 ↾_s cress 17128 Scalarcsca 17151 ·_𝑠 cvsca 17152 ·_𝑖cip 17153 0_gc0g 17330 Grpcgrp 18799 -_gcsg 18801 SubGrpcsubg 18986 SubRingcsubrg 20438 DivRingcdr 20598 LModclmod 20747 LVecclvec 20990 ℂ_fldccnfld 21245 PreHilcphl 21515 normcnm 24445 NrmGrpcngp 24446 NrmRingcnrg 24448 NrmModcnlm 24449 ℂModcclm 24943 ℂPreHilccph 25047 toℂPreHilctcph 25048

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 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5214 ax-sep 5231 ax-nul 5241 ax-pow 5300 ax-pr 5367 ax-un 7662 ax-cnex 11053 ax-resscn 11054 ax-1cn 11055 ax-icn 11056 ax-addcl 11057 ax-addrcl 11058 ax-mulcl 11059 ax-mulrcl 11060 ax-mulcom 11061 ax-addass 11062 ax-mulass 11063 ax-distr 11064 ax-i2m1 11065 ax-1ne0 11066 ax-1rid 11067 ax-rnegex 11068 ax-rrecex 11069 ax-cnre 11070 ax-pre-lttri 11071 ax-pre-lttrn 11072 ax-pre-ltadd 11073 ax-pre-mulgt0 11074 ax-pre-sup 11075 ax-addf 11076 ax-mulf 11077

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 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3343 df-reu 3344 df-rab 3393 df-v 3435 df-sbc 3739 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4281 df-if 4473 df-pw 4549 df-sn 4574 df-pr 4576 df-tp 4578 df-op 4580 df-uni 4857 df-iun 4940 df-br 5089 df-opab 5151 df-mpt 5170 df-tr 5196 df-id 5508 df-eprel 5513 df-po 5521 df-so 5522 df-fr 5566 df-we 5568 df-xp 5619 df-rel 5620 df-cnv 5621 df-co 5622 df-dm 5623 df-rn 5624 df-res 5625 df-ima 5626 df-pred 6243 df-ord 6304 df-on 6305 df-lim 6306 df-suc 6307 df-iota 6432 df-fun 6478 df-fn 6479 df-f 6480 df-f1 6481 df-fo 6482 df-f1o 6483 df-fv 6484 df-riota 7297 df-ov 7343 df-oprab 7344 df-mpo 7345 df-om 7791 df-1st 7915 df-2nd 7916 df-tpos 8150 df-frecs 8205 df-wrecs 8236 df-recs 8285 df-rdg 8323 df-1o 8379 df-er 8616 df-map 8746 df-en 8864 df-dom 8865 df-sdom 8866 df-fin 8867 df-sup 9320 df-inf 9321 df-pnf 11139 df-mnf 11140 df-xr 11141 df-ltxr 11142 df-le 11143 df-sub 11337 df-neg 11338 df-div 11766 df-nn 12117 df-2 12179 df-3 12180 df-4 12181 df-5 12182 df-6 12183 df-7 12184 df-8 12185 df-9 12186 df-n0 12373 df-z 12460 df-dec 12580 df-uz 12724 df-q 12838 df-rp 12882 df-xneg 13002 df-xadd 13003 df-xmul 13004 df-ico 13242 df-fz 13399 df-seq 13897 df-exp 13957 df-cj 14993 df-re 14994 df-im 14995 df-sqrt 15129 df-abs 15130 df-struct 17045 df-sets 17062 df-slot 17080 df-ndx 17092 df-base 17108 df-ress 17129 df-plusg 17161 df-mulr 17162 df-starv 17163 df-sca 17164 df-vsca 17165 df-ip 17166 df-tset 17167 df-ple 17168 df-ds 17170 df-unif 17171 df-rest 17313 df-topn 17314 df-0g 17332 df-topgen 17334 df-mgm 18501 df-sgrp 18580 df-mnd 18596 df-mhm 18644 df-grp 18802 df-minusg 18803 df-sbg 18804 df-subg 18989 df-ghm 19079 df-cmn 19648 df-abl 19649 df-mgp 20013 df-rng 20025 df-ur 20054 df-ring 20107 df-cring 20108 df-oppr 20209 df-dvdsr 20229 df-unit 20230 df-invr 20260 df-dvr 20273 df-rhm 20344 df-subrng 20415 df-subrg 20439 df-drng 20600 df-abv 20678 df-staf 20708 df-srng 20709 df-lmod 20749 df-lmhm 20910 df-lvec 20991 df-sra 21061 df-rgmod 21062 df-psmet 21237 df-xmet 21238 df-met 21239 df-bl 21240 df-mopn 21241 df-cnfld 21246 df-phl 21517 df-top 22763 df-topon 22780 df-topsp 22802 df-bases 22815 df-xms 24189 df-ms 24190 df-nm 24451 df-ngp 24452 df-tng 24453 df-nrg 24454 df-nlm 24455 df-clm 24944 df-cph 25049 df-tcph 25050

This theorem is referenced by: rrxcph 25273

W3C validator