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 25588

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 25578	. . . 4 ⊢ (𝑊 ∈ PreHil ↔ 𝐺 ∈ PreHil)
4	1, 3	sylib 221	. . 3 ⊢ (𝜑 → 𝐺 ∈ PreHil)
5		tcphcph.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
6		tcphcph.h	. . . . . . 7 ⊢ , = (·_𝑖‘𝑊)
7	2, 5, 6	tcphval 25569	. . . . . 6 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))))
8		eqid 2763	. . . . . 6 ⊢ (-_g‘𝑊) = (-_g‘𝑊)
9		eqid 2763	. . . . . 6 ⊢ (0_g‘𝑊) = (0_g‘𝑊)
10		phllmod 21966	. . . . . . . 8 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LMod)
11	1, 10	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑊 ∈ LMod)
12		lmodgrp 21172	. . . . . . 7 ⊢ (𝑊 ∈ LMod → 𝑊 ∈ Grp)
13	11, 12	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑊 ∈ Grp)
14		tcphcph.f	. . . . . . . . 9 ⊢ 𝐹 = (Scalar‘𝑊)
15		tcphcph.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (ℂ_fld ↾_s 𝐾))
16	2, 5, 14, 1, 15, 6	tcphcphlem3 25584	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (𝑥 , 𝑥) ∈ ℝ)
17		tcphcph.4	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
18	16, 17	resqrtcld 15614	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑉) → (√‘(𝑥 , 𝑥)) ∈ ℝ)
19	18	fmpttd 7139	. . . . . 6 ⊢ (𝜑 → (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))):𝑉⟶ℝ)
20		oveq12 7452	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑦 ∧ 𝑥 = 𝑦) → (𝑥 , 𝑥) = (𝑦 , 𝑦))
21	20	anidms 577	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝑥 , 𝑥) = (𝑦 , 𝑦))
22	21	fveq2d 6912	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → (√‘(𝑥 , 𝑥)) = (√‘(𝑦 , 𝑦)))
23		eqid 2763	. . . . . . . . . 10 ⊢ (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥))) = (𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))
24		fvex 6921	. . . . . . . . . 10 ⊢ (√‘(𝑥 , 𝑥)) ∈ V
25	22, 23, 24	fvmpt3i 7022	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
26	25	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = (√‘(𝑦 , 𝑦)))
27	26	eqeq1d 2765	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
28		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐹) = (Base‘𝐹)
29		phllvec 21965	. . . . . . . . . . . . . . . . 17 ⊢ (𝑊 ∈ PreHil → 𝑊 ∈ LVec)
30	1, 29	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑊 ∈ LVec)
31	14	lvecdrng 21410	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ LVec → 𝐹 ∈ DivRing)
32	30, 31	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ∈ DivRing)
33	28, 15, 32	cphsubrglem 25528	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 = (ℂ_fld ↾_s (Base‘𝐹)) ∧ (Base‘𝐹) = (𝐾 ∩ ℂ) ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)))
34	33	simp2d 1161	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐹) = (𝐾 ∩ ℂ))
35		inss2 4137	. . . . . . . . . . . . 13 ⊢ (𝐾 ∩ ℂ) ⊆ ℂ
36	34, 35	eqsstrdi 3957	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝐹) ⊆ ℂ)
37	36	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (Base‘𝐹) ⊆ ℂ)
38	14, 6, 5, 28	ipcl 21969	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
39	38	3anidm23 1449	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
40	1, 39	sylan 592	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ (Base‘𝐹))
41	37, 40	sseldd 3914	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (𝑦 , 𝑦) ∈ ℂ)
42	41	sqrtcld 15636	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (√‘(𝑦 , 𝑦)) ∈ ℂ)
43		sqeq0 14290	. . . . . . . . 9 ⊢ ((√‘(𝑦 , 𝑦)) ∈ ℂ → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
44	42, 43	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (√‘(𝑦 , 𝑦)) = 0))
45	41	sqsqrtd 15638	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦))↑2) = (𝑦 , 𝑦))
46	2, 5, 14, 1, 15	phclm 25583	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂMod)
47	14	clm0 25423	. . . . . . . . . . 11 ⊢ (𝑊 ∈ ℂMod → 0 = (0_g‘𝐹))
48	46, 47	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 0 = (0_g‘𝐹))
49	48	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → 0 = (0_g‘𝐹))
50	45, 49	eqeq12d 2779	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((√‘(𝑦 , 𝑦))↑2) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
51	44, 50	bitr3d 284	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((√‘(𝑦 , 𝑦)) = 0 ↔ (𝑦 , 𝑦) = (0_g‘𝐹)))
52		eqid 2763	. . . . . . . . 9 ⊢ (0_g‘𝐹) = (0_g‘𝐹)
53	14, 6, 5, 52, 9	ipeq0 21974	. . . . . . . 8 ⊢ ((𝑊 ∈ PreHil ∧ 𝑦 ∈ 𝑉) → ((𝑦 , 𝑦) = (0_g‘𝐹) ↔ 𝑦 = (0_g‘𝑊)))
54	1, 53	sylan 592	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → ((𝑦 , 𝑦) = (0_g‘𝐹) ↔ 𝑦 = (0_g‘𝑊)))
55	27, 51, 54	3bitrd 308	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) = 0 ↔ 𝑦 = (0_g‘𝑊)))
56	1	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝑊 ∈ PreHil)
57	33	simp1d 1160	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 = (ℂ_fld ↾_s (Base‘𝐹)))
58	57	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝐹 = (ℂ_fld ↾_s (Base‘𝐹)))
59		3anass 1111	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) ↔ (𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
60		tcphcph.3	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ 𝐾)
61		simpr2 1214	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℝ)
62	61	recnd 11364	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → 𝑥 ∈ ℂ)
63	62	sqrtcld 15636	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ ℂ)
64	60, 63	jca 521	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
65	64	ex 418	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
66	34	eleq2d 2850	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ (𝐾 ∩ ℂ)))
67		recn 11317	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
68		elin 4096	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ (𝐾 ∩ ℂ) ↔ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℂ))
69	68	rbaib 548	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → (𝑥 ∈ (𝐾 ∩ ℂ) ↔ 𝑥 ∈ 𝐾))
70	67, 69	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℝ → (𝑥 ∈ (𝐾 ∩ ℂ) ↔ 𝑥 ∈ 𝐾))
71	66, 70	sylan9bb 519	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ) → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ 𝐾))
72	71	adantrr 730	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ 𝐾))
73	72	ex 418	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (𝑥 ∈ (Base‘𝐹) ↔ 𝑥 ∈ 𝐾)))
74	73	pm5.32rd 589	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) ↔ (𝑥 ∈ 𝐾 ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))))
75		3anass 1111	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) ↔ (𝑥 ∈ 𝐾 ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
76	74, 75	bitr4di 292	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) ↔ (𝑥 ∈ 𝐾 ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
77	34	eleq2d 2850	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((√‘𝑥) ∈ (Base‘𝐹) ↔ (√‘𝑥) ∈ (𝐾 ∩ ℂ)))
78		elin 4096	. . . . . . . . . . . . 13 ⊢ ((√‘𝑥) ∈ (𝐾 ∩ ℂ) ↔ ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ))
79	77, 78	bitrdi 290	. . . . . . . . . . . 12 ⊢ (𝜑 → ((√‘𝑥) ∈ (Base‘𝐹) ↔ ((√‘𝑥) ∈ 𝐾 ∧ (√‘𝑥) ∈ ℂ)))
80	65, 76, 79	3imtr4d 297	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹)))
81	59, 80	biimtrid 245	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (√‘𝑥) ∈ (Base‘𝐹)))
82	81	imp 412	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹))
83	82	adantlr 728	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) ∧ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹))
84	17	adantlr 728	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
85		simprl 783	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝑦 ∈ 𝑉)
86		simprr 785	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → 𝑧 ∈ 𝑉)
87	2, 5, 14, 56, 58, 6, 83, 84, 28, 8, 85, 86	tcphcphlem1 25586	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))) ≤ ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
88	5, 8	grpsubcl 19259	. . . . . . . . . 10 ⊢ ((𝑊 ∈ Grp ∧ 𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
89	88	3expb 1138	. . . . . . . . 9 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
90	13, 89	sylan 592	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (𝑦(-_g‘𝑊)𝑧) ∈ 𝑉)
91		oveq12 7452	. . . . . . . . . . 11 ⊢ ((𝑥 = (𝑦(-_g‘𝑊)𝑧) ∧ 𝑥 = (𝑦(-_g‘𝑊)𝑧)) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
92	91	anidms 577	. . . . . . . . . 10 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (𝑥 , 𝑥) = ((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧)))
93	92	fveq2d 6912	. . . . . . . . 9 ⊢ (𝑥 = (𝑦(-_g‘𝑊)𝑧) → (√‘(𝑥 , 𝑥)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
94	93, 23, 24	fvmpt3i 7022	. . . . . . . 8 ⊢ ((𝑦(-_g‘𝑊)𝑧) ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
95	90, 94	syl 18	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) = (√‘((𝑦(-_g‘𝑊)𝑧) , (𝑦(-_g‘𝑊)𝑧))))
96		oveq12 7452	. . . . . . . . . . . 12 ⊢ ((𝑥 = 𝑧 ∧ 𝑥 = 𝑧) → (𝑥 , 𝑥) = (𝑧 , 𝑧))
97	96	anidms 577	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (𝑥 , 𝑥) = (𝑧 , 𝑧))
98	97	fveq2d 6912	. . . . . . . . . 10 ⊢ (𝑥 = 𝑧 → (√‘(𝑥 , 𝑥)) = (√‘(𝑧 , 𝑧)))
99	98, 23, 24	fvmpt3i 7022	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝑉 → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧) = (√‘(𝑧 , 𝑧)))
100	25, 99	oveqan12d 7462	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
101	100	adantl 487	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)) = ((√‘(𝑦 , 𝑦)) + (√‘(𝑧 , 𝑧))))
102	87, 95, 101	3brtr4d 5140	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ 𝑉 ∧ 𝑧 ∈ 𝑉)) → ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘(𝑦(-_g‘𝑊)𝑧)) ≤ (((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑦) + ((𝑥 ∈ 𝑉 ↦ (√‘(𝑥 , 𝑥)))‘𝑧)))
103	7, 5, 8, 9, 13, 19, 55, 102	tngngpd 25002	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ NrmGrp)
104		phllmod 21966	. . . . . 6 ⊢ (𝐺 ∈ PreHil → 𝐺 ∈ LMod)
105	4, 104	syl 18	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ LMod)
106		cnnrg 25129	. . . . . . 7 ⊢ ℂ_fld ∈ NrmRing
107	33	simp3d 1162	. . . . . . 7 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubRing‘ℂ_fld))
108		eqid 2763	. . . . . . . 8 ⊢ (ℂ_fld ↾_s (Base‘𝐹)) = (ℂ_fld ↾_s (Base‘𝐹))
109	108	subrgnrg 25022	. . . . . . 7 ⊢ ((ℂ_fld ∈ NrmRing ∧ (Base‘𝐹) ∈ (SubRing‘ℂ_fld)) → (ℂ_fld ↾_s (Base‘𝐹)) ∈ NrmRing)
110	106, 107, 109	sylancr 599	. . . . . 6 ⊢ (𝜑 → (ℂ_fld ↾_s (Base‘𝐹)) ∈ NrmRing)
111	57, 110	eqeltrd 2864	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ NrmRing)
112	103, 105, 111	3jca 1146	. . . 4 ⊢ (𝜑 → (𝐺 ∈ NrmGrp ∧ 𝐺 ∈ LMod ∧ 𝐹 ∈ NrmRing))
113	1	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝑊 ∈ PreHil)
114	57	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝐹 = (ℂ_fld ↾_s (Base‘𝐹)))
115	82	adantlr 728	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) ∧ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)) → (√‘𝑥) ∈ (Base‘𝐹))
116	17	adantlr 728	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) ∧ 𝑥 ∈ 𝑉) → 0 ≤ (𝑥 , 𝑥))
117		eqid 2763	. . . . . . 7 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
118		simprl 783	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝑦 ∈ (Base‘𝐹))
119		simprr 785	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → 𝑧 ∈ 𝑉)
120	2, 5, 14, 113, 114, 6, 115, 116, 28, 117, 118, 119	tcphcphlem2 25587	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
121	5, 14, 117, 28	lmodvscl 21183	. . . . . . . . 9 ⊢ ((𝑊 ∈ LMod ∧ 𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
122	121	3expb 1138	. . . . . . . 8 ⊢ ((𝑊 ∈ LMod ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
123	11, 122	sylan 592	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉)
124		eqid 2763	. . . . . . . 8 ⊢ (norm‘𝐺) = (norm‘𝐺)
125	2, 124, 5, 6	tcphnmval 25580	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ (𝑦( ·_𝑠 ‘𝑊)𝑧) ∈ 𝑉) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
126	13, 123, 125	syl2an2r 698	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (√‘((𝑦( ·_𝑠 ‘𝑊)𝑧) , (𝑦( ·_𝑠 ‘𝑊)𝑧))))
127	114	fveq2d 6912	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (norm‘𝐹) = (norm‘(ℂ_fld ↾_s (Base‘𝐹))))
128	127	fveq1d 6910	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦))
129		subrgsubg 20859	. . . . . . . . . 10 ⊢ ((Base‘𝐹) ∈ (SubRing‘ℂ_fld) → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
130	107, 129	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐹) ∈ (SubGrp‘ℂ_fld))
131		cnfldnm 25127	. . . . . . . . . 10 ⊢ abs = (norm‘ℂ_fld)
132		eqid 2763	. . . . . . . . . 10 ⊢ (norm‘(ℂ_fld ↾_s (Base‘𝐹))) = (norm‘(ℂ_fld ↾_s (Base‘𝐹)))
133	108, 131, 132	subgnm2 24983	. . . . . . . . 9 ⊢ (((Base‘𝐹) ∈ (SubGrp‘ℂ_fld) ∧ 𝑦 ∈ (Base‘𝐹)) → ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦) = (abs‘𝑦))
134	130, 118, 133	syl2an2r 698	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘(ℂ_fld ↾_s (Base‘𝐹)))‘𝑦) = (abs‘𝑦))
135	128, 134	eqtrd 2798	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐹)‘𝑦) = (abs‘𝑦))
136	2, 124, 5, 6	tcphnmval 25580	. . . . . . . 8 ⊢ ((𝑊 ∈ Grp ∧ 𝑧 ∈ 𝑉) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
137	13, 119, 136	syl2an2r 698	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘𝑧) = (√‘(𝑧 , 𝑧)))
138	135, 137	oveq12d 7461	. . . . . 6 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)) = ((abs‘𝑦) · (√‘(𝑧 , 𝑧))))
139	120, 126, 138	3eqtr4d 2808	. . . . 5 ⊢ ((𝜑 ∧ (𝑦 ∈ (Base‘𝐹) ∧ 𝑧 ∈ 𝑉)) → ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
140	139	ralrimivva 3209	. . . 4 ⊢ (𝜑 → ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧)))
141	2, 5	tcphbas 25570	. . . . 5 ⊢ 𝑉 = (Base‘𝐺)
142	2, 117	tcphvsca 25575	. . . . 5 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝐺)
143	2, 14	tcphsca 25574	. . . . 5 ⊢ 𝐹 = (Scalar‘𝐺)
144		eqid 2763	. . . . 5 ⊢ (norm‘𝐹) = (norm‘𝐹)
145	141, 124, 142, 143, 28, 144	isnlm 25024	. . . 4 ⊢ (𝐺 ∈ NrmMod ↔ ((𝐺 ∈ NrmGrp ∧ 𝐺 ∈ LMod ∧ 𝐹 ∈ NrmRing) ∧ ∀𝑦 ∈ (Base‘𝐹)∀𝑧 ∈ 𝑉 ((norm‘𝐺)‘(𝑦( ·_𝑠 ‘𝑊)𝑧)) = (((norm‘𝐹)‘𝑦) · ((norm‘𝐺)‘𝑧))))
146	112, 140, 145	sylanbrc 595	. . 3 ⊢ (𝜑 → 𝐺 ∈ NrmMod)
147	4, 146, 57	3jca 1146	. 2 ⊢ (𝜑 → (𝐺 ∈ PreHil ∧ 𝐺 ∈ NrmMod ∧ 𝐹 = (ℂ_fld ↾_s (Base‘𝐹))))
148		elin 4096	. . . . . 6 ⊢ (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ (0[,)+∞)))
149		elrege0 13612	. . . . . . 7 ⊢ (𝑥 ∈ (0[,)+∞) ↔ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))
150	149	anbi2i 635	. . . . . 6 ⊢ ((𝑥 ∈ (Base‘𝐹) ∧ 𝑥 ∈ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
151	148, 150	bitri 278	. . . . 5 ⊢ (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) ↔ (𝑥 ∈ (Base‘𝐹) ∧ (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥)))
152	151, 80	biimtrid 245	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞)) → (√‘𝑥) ∈ (Base‘𝐹)))
153	152	ralrimiv 3157	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹))
154		sqrtf 15560	. . . . 5 ⊢ √:ℂ⟶ℂ
155		ffun 6734	. . . . 5 ⊢ (√:ℂ⟶ℂ → Fun √)
156	154, 155	ax-mp 5	. . . 4 ⊢ Fun √
157		inss1 4136	. . . . . 6 ⊢ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ (Base‘𝐹)
158	157, 36	sstrid 3924	. . . . 5 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ ℂ)
159	154	fdmi 6743	. . . . 5 ⊢ dom √ = ℂ
160	158, 159	sseqtrrdi 3954	. . . 4 ⊢ (𝜑 → ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √)
161		funimass4 6972	. . . 4 ⊢ ((Fun √ ∧ ((Base‘𝐹) ∩ (0[,)+∞)) ⊆ dom √) → ((√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹) ↔ ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹)))
162	156, 160, 161	sylancr 599	. . 3 ⊢ (𝜑 → ((√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹) ↔ ∀𝑥 ∈ ((Base‘𝐹) ∩ (0[,)+∞))(√‘𝑥) ∈ (Base‘𝐹)))
163	153, 162	mpbird 260	. 2 ⊢ (𝜑 → (√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹))
164	42	fmpttd 7139	. . . 4 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ)
165	2, 5, 6	tcphval 25569	. . . . 5 ⊢ 𝐺 = (𝑊 toNrmGrp (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
166		cnex 11308	. . . . 5 ⊢ ℂ ∈ V
167	165, 5, 166	tngnm 25000	. . . 4 ⊢ ((𝑊 ∈ Grp ∧ (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))):𝑉⟶ℂ) → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
168	13, 164, 167	syl2anc 596	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))) = (norm‘𝐺))
169	168	eqcomd 2769	. 2 ⊢ (𝜑 → (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦))))
170	2, 6	tcphip 25576	. . 3 ⊢ , = (·_𝑖‘𝐺)
171	141, 170, 124, 143, 28	iscph 25521	. 2 ⊢ (𝐺 ∈ ℂPreHil ↔ ((𝐺 ∈ PreHil ∧ 𝐺 ∈ NrmMod ∧ 𝐹 = (ℂ_fld ↾_s (Base‘𝐹))) ∧ (√ “ ((Base‘𝐹) ∩ (0[,)+∞))) ⊆ (Base‘𝐹) ∧ (norm‘𝐺) = (𝑦 ∈ 𝑉 ↦ (√‘(𝑦 , 𝑦)))))
172	147, 163, 169, 171	syl3anbrc 1362	1 ⊢ (𝜑 → 𝐺 ∈ ℂPreHil)

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2147 ∀wral 3080 ⊆ wss 3900 ∩ cin 4092 class class class wbr 5106 ↦ cmpt 5189 dom cdm 5655 “ cima 5658 Fun wfun 6552 ⟶wf 6554 ‘cfv 6558 (class class class)co 7443 ℂcc 11225 ℝcr 11226 0cc0 11227 + caddc 11230 · cmul 11232 +∞cpnf 11367 ≤ cle 11371 2c2 12424 [,)cico 13505 ↑cexp 14231 √csqrt 15429 abscabs 15430 Basecbs 17416 ↾_s cress 17437 Scalarcsca 17460 ·_𝑠 cvsca 17461 ·_𝑖cip 17462 0_gc0g 17639 Grpcgrp 19173 -_gcsg 19175 SubGrpcsubg 19359 SubRingcsubrg 20851 DivRingcdr 21010 LModclmod 21165 LVecclvec 21407 ℂ_fldccnfld 21708 PreHilcphl 21960 normcnm 24925 NrmGrpcngp 24926 NrmRingcnrg 24928 NrmModcnlm 24929 ℂModcclm 25413 ℂPreHilccph 25517 toℂPreHilctcph 25518

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 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-11 2197 ax-12 2216 ax-ext 2735 ax-rep 5235 ax-sep 5252 ax-nul 5263 ax-pow 5331 ax-pr 5395 ax-un 7775 ax-cnex 11283 ax-resscn 11284 ax-1cn 11285 ax-icn 11286 ax-addcl 11287 ax-addrcl 11288 ax-mulcl 11289 ax-mulrcl 11290 ax-mulcom 11291 ax-addass 11292 ax-mulass 11293 ax-distr 11294 ax-i2m1 11295 ax-1ne0 11296 ax-1rid 11297 ax-rnegex 11298 ax-rrecex 11299 ax-cnre 11300 ax-pre-lttri 11301 ax-pre-lttrn 11302 ax-pre-ltadd 11303 ax-pre-mulgt0 11304 ax-pre-sup 11305 ax-addf 11306 ax-mulf 11307

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-tp 4593 df-op 4839 df-uni 4871 df-iun 4956 df-br 5107 df-opab 5171 df-mpt 5190 df-tr 5216 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6322 df-ord 6383 df-on 6384 df-lim 6385 df-suc 6386 df-iota 6512 df-fun 6560 df-fn 6561 df-f 6562 df-f1 6563 df-fo 6564 df-f1o 6565 df-fv 6566 df-riota 7400 df-ov 7446 df-oprab 7447 df-mpo 7448 df-om 7902 df-1st 8025 df-2nd 8026 df-tpos 8271 df-frecs 8327 df-wrecs 8358 df-recs 8407 df-rdg 8446 df-1o 8504 df-er 8745 df-map 8877 df-en 9002 df-dom 9003 df-sdom 9004 df-fin 9005 df-sup 9461 df-inf 9462 df-pnf 11372 df-mnf 11373 df-xr 11374 df-ltxr 11375 df-le 11376 df-sub 11570 df-neg 11571 df-div 12001 df-nn 12363 df-2 12432 df-3 12433 df-4 12434 df-5 12435 df-6 12436 df-7 12437 df-8 12438 df-9 12439 df-n0 12634 df-z 12721 df-dec 12842 df-uz 12993 df-q 13103 df-rp 13148 df-xneg 13268 df-xadd 13269 df-xmul 13270 df-ico 13509 df-fz 13667 df-seq 14172 df-exp 14232 df-cj 15295 df-re 15296 df-im 15297 df-sqrt 15431 df-abs 15432 df-struct 17354 df-sets 17371 df-slot 17389 df-ndx 17401 df-base 17417 df-ress 17438 df-plusg 17470 df-mulr 17471 df-starv 17472 df-sca 17473 df-vsca 17474 df-ip 17475 df-tset 17476 df-ple 17477 df-ds 17479 df-unif 17480 df-rest 17622 df-topn 17623 df-0g 17641 df-topgen 17643 df-mgm 18845 df-sgrp 18937 df-mnd 18953 df-mhm 19007 df-grp 19176 df-minusg 19177 df-sbg 19178 df-subg 19362 df-ghm 19457 df-cmn 20026 df-abl 20027 df-mgp 20391 df-rng 20405 df-ur 20438 df-ring 20491 df-cring 20492 df-oppr 20597 df-dvdsr 20617 df-unit 20618 df-invr 20648 df-dvr 20661 df-rhm 20732 df-subrng 20828 df-subrg 20852 df-drng 21012 df-abv 21096 df-staf 21126 df-srng 21127 df-lmod 21167 df-lmhm 21327 df-lvec 21408 df-sra 21478 df-rgmod 21479 df-psmet 21700 df-xmet 21701 df-met 21702 df-bl 21703 df-mopn 21704 df-cnfld 21709 df-phl 21962 df-top 23242 df-topon 23259 df-topsp 23281 df-bases 23294 df-xms 24669 df-ms 24670 df-nm 24931 df-ngp 24932 df-tng 24933 df-nrg 24934 df-nlm 24935 df-clm 25414 df-cph 25519 df-tcph 25520

This theorem is used by: rrxcph 25743

W3C validator