rrxcph - Metamath Proof Explorer

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

Theorem rrxcph 25320

Description: Generalized Euclidean real spaces are subcomplex pre-Hilbert spaces. (Contributed by Thierry Arnoux, 23-Jun-2019.) (Proof shortened by AV, 22-Jul-2019.)

**Hypotheses**
Ref	Expression
rrxval.r	⊢ 𝐻 = (ℝ^‘𝐼)
rrxbase.b	⊢ 𝐵 = (Base‘𝐻)

**Assertion**
Ref	Expression
rrxcph	⊢ (𝐼 ∈ 𝑉 → 𝐻 ∈ ℂPreHil)

Proof of Theorem rrxcph Dummy variables 𝑓 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		rrxval.r	. . 3 ⊢ 𝐻 = (ℝ^‘𝐼)
2	1	rrxval 25315	. 2 ⊢ (𝐼 ∈ 𝑉 → 𝐻 = (toℂPreHil‘(ℝ_fld freeLMod 𝐼)))
3		eqid 2733	. . 3 ⊢ (toℂPreHil‘(ℝ_fld freeLMod 𝐼)) = (toℂPreHil‘(ℝ_fld freeLMod 𝐼))
4		eqid 2733	. . 3 ⊢ (Base‘(ℝ_fld freeLMod 𝐼)) = (Base‘(ℝ_fld freeLMod 𝐼))
5		eqid 2733	. . 3 ⊢ (Scalar‘(ℝ_fld freeLMod 𝐼)) = (Scalar‘(ℝ_fld freeLMod 𝐼))
6		eqid 2733	. . . 4 ⊢ (ℝ_fld freeLMod 𝐼) = (ℝ_fld freeLMod 𝐼)
7		rebase 21545	. . . 4 ⊢ ℝ = (Base‘ℝ_fld)
8		remulr 21550	. . . 4 ⊢ · = (._r‘ℝ_fld)
9		eqid 2733	. . . 4 ⊢ (·_𝑖‘(ℝ_fld freeLMod 𝐼)) = (·_𝑖‘(ℝ_fld freeLMod 𝐼))
10		eqid 2733	. . . 4 ⊢ (0_g‘(ℝ_fld freeLMod 𝐼)) = (0_g‘(ℝ_fld freeLMod 𝐼))
11		re0g 21551	. . . 4 ⊢ 0 = (0_g‘ℝ_fld)
12		refldcj 21559	. . . 4 ⊢ ∗ = (*_𝑟‘ℝ_fld)
13		refld 21558	. . . . 5 ⊢ ℝ_fld ∈ Field
14	13	a1i 11	. . . 4 ⊢ (𝐼 ∈ 𝑉 → ℝ_fld ∈ Field)
15		fconstmpt 5681	. . . . 5 ⊢ (𝐼 × {0}) = (𝑥 ∈ 𝐼 ↦ 0)
16	6, 7, 4	frlmbasf 21699	. . . . . . . 8 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 𝑓:𝐼⟶ℝ)
17	16	ffnd 6657	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 𝑓 Fn 𝐼)
18	17	3adant3 1132	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → 𝑓 Fn 𝐼)
19		simpl 482	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 𝐼 ∈ 𝑉)
20	13	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → ℝ_fld ∈ Field)
21		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)))
22	6, 7, 8, 4, 9	frlmipval 21718	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐼 ∈ 𝑉 ∧ ℝ_fld ∈ Field) ∧ (𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)))) → (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = (ℝ_fld Σ_g (𝑓 ∘_f · 𝑓)))
23	19, 20, 21, 21, 22	syl22anc 838	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = (ℝ_fld Σ_g (𝑓 ∘_f · 𝑓)))
24		inidm 4176	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐼 ∩ 𝐼) = 𝐼
25		eqidd 2734	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) = (𝑓‘𝑥))
26	17, 17, 19, 19, 24, 25, 25	offval 7625	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓 ∘_f · 𝑓) = (𝑥 ∈ 𝐼 ↦ ((𝑓‘𝑥) · (𝑓‘𝑥))))
27	16	ffvelcdmda 7023	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ ℝ)
28	27, 27	remulcld 11149	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ 𝐼) → ((𝑓‘𝑥) · (𝑓‘𝑥)) ∈ ℝ)
29	26, 28	fmpt3d 7055	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓 ∘_f · 𝑓):𝐼⟶ℝ)
30		ovexd 7387	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓 ∘_f · 𝑓) ∈ V)
31	29	ffund 6660	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → Fun (𝑓 ∘_f · 𝑓))
32	6, 11, 4	frlmbasfsupp 21697	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 𝑓 finSupp 0)
33		0red 11122	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 0 ∈ ℝ)
34		simpr 484	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ℝ) → 𝑥 ∈ ℝ)
35	34	recnd 11147	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ℝ) → 𝑥 ∈ ℂ)
36	35	mul02d 11318	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ℝ) → (0 · 𝑥) = 0)
37	19, 33, 16, 16, 36	suppofss1d 8140	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → ((𝑓 ∘_f · 𝑓) supp 0) ⊆ (𝑓 supp 0))
38		fsuppsssupp 9272	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝑓 ∘_f · 𝑓) ∈ V ∧ Fun (𝑓 ∘_f · 𝑓)) ∧ (𝑓 finSupp 0 ∧ ((𝑓 ∘_f · 𝑓) supp 0) ⊆ (𝑓 supp 0))) → (𝑓 ∘_f · 𝑓) finSupp 0)
39	30, 31, 32, 37, 38	syl22anc 838	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓 ∘_f · 𝑓) finSupp 0)
40		regsumsupp 21561	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑓 ∘_f · 𝑓):𝐼⟶ℝ ∧ (𝑓 ∘_f · 𝑓) finSupp 0 ∧ 𝐼 ∈ 𝑉) → (ℝ_fld Σ_g (𝑓 ∘_f · 𝑓)) = Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓 ∘_f · 𝑓)‘𝑥))
41	29, 39, 19, 40	syl3anc 1373	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (ℝ_fld Σ_g (𝑓 ∘_f · 𝑓)) = Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓 ∘_f · 𝑓)‘𝑥))
42		suppssdm 8113	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑓 supp 0) ⊆ dom 𝑓
43	42, 16	fssdm 6675	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓 supp 0) ⊆ 𝐼)
44	37, 43	sstrd 3941	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → ((𝑓 ∘_f · 𝑓) supp 0) ⊆ 𝐼)
45	44	sselda 3930	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → 𝑥 ∈ 𝐼)
46	17, 17, 19, 19, 24, 25, 25	ofval 7627	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ 𝐼) → ((𝑓 ∘_f · 𝑓)‘𝑥) = ((𝑓‘𝑥) · (𝑓‘𝑥)))
47	45, 46	syldan 591	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → ((𝑓 ∘_f · 𝑓)‘𝑥) = ((𝑓‘𝑥) · (𝑓‘𝑥)))
48	47	sumeq2dv 15611	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓 ∘_f · 𝑓)‘𝑥) = Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)))
49	41, 48	eqtrd 2768	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (ℝ_fld Σ_g (𝑓 ∘_f · 𝑓)) = Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)))
50	23, 49	eqtrd 2768	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)))
51	50	3adant3 1132	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)))
52		simp3 1138	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0)
53	51, 52	eqtr3d 2770	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)) = 0)
54	32	fsuppimpd 9260	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑓 supp 0) ∈ Fin)
55	54, 37	ssfid 9160	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → ((𝑓 ∘_f · 𝑓) supp 0) ∈ Fin)
56	45, 28	syldan 591	. . . . . . . . . . . . . . 15 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → ((𝑓‘𝑥) · (𝑓‘𝑥)) ∈ ℝ)
57	27	msqge0d 11692	. . . . . . . . . . . . . . . 16 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ 𝐼) → 0 ≤ ((𝑓‘𝑥) · (𝑓‘𝑥)))
58	45, 57	syldan 591	. . . . . . . . . . . . . . 15 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → 0 ≤ ((𝑓‘𝑥) · (𝑓‘𝑥)))
59	55, 56, 58	fsum00 15707	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)) = 0 ↔ ∀𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)) = 0))
60	59	3adant3 1132	. . . . . . . . . . . . 13 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → (Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)) = 0 ↔ ∀𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)) = 0))
61	53, 60	mpbid 232	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → ∀𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)) = 0)
62	61	r19.21bi 3225	. . . . . . . . . . 11 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → ((𝑓‘𝑥) · (𝑓‘𝑥)) = 0)
63	62	adantlr 715	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → ((𝑓‘𝑥) · (𝑓‘𝑥)) = 0)
64	27	3adantl3 1169	. . . . . . . . . . . . 13 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ ℝ)
65	64	recnd 11147	. . . . . . . . . . . 12 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) ∈ ℂ)
66	65, 65	mul0ord 11772	. . . . . . . . . . 11 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝑓‘𝑥) · (𝑓‘𝑥)) = 0 ↔ ((𝑓‘𝑥) = 0 ∨ (𝑓‘𝑥) = 0)))
67	66	adantr 480	. . . . . . . . . 10 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → (((𝑓‘𝑥) · (𝑓‘𝑥)) = 0 ↔ ((𝑓‘𝑥) = 0 ∨ (𝑓‘𝑥) = 0)))
68	63, 67	mpbid 232	. . . . . . . . 9 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → ((𝑓‘𝑥) = 0 ∨ (𝑓‘𝑥) = 0))
69		oridm 904	. . . . . . . . 9 ⊢ (((𝑓‘𝑥) = 0 ∨ (𝑓‘𝑥) = 0) ↔ (𝑓‘𝑥) = 0)
70	68, 69	sylib 218	. . . . . . . 8 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)) → (𝑓‘𝑥) = 0)
71	29	3adant3 1132	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → (𝑓 ∘_f · 𝑓):𝐼⟶ℝ)
72	71	adantr 480	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓 ∘_f · 𝑓):𝐼⟶ℝ)
73		ssidd 3954	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → ((𝑓 ∘_f · 𝑓) supp 0) ⊆ ((𝑓 ∘_f · 𝑓) supp 0))
74		simpl1 1192	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → 𝐼 ∈ 𝑉)
75		0red 11122	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → 0 ∈ ℝ)
76	72, 73, 74, 75	suppssr 8131	. . . . . . . . 9 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ∈ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) → ((𝑓 ∘_f · 𝑓)‘𝑥) = 0)
77	46	3adantl3 1169	. . . . . . . . . . . . 13 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → ((𝑓 ∘_f · 𝑓)‘𝑥) = ((𝑓‘𝑥) · (𝑓‘𝑥)))
78	77	eqeq1d 2735	. . . . . . . . . . . 12 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝑓 ∘_f · 𝑓)‘𝑥) = 0 ↔ ((𝑓‘𝑥) · (𝑓‘𝑥)) = 0))
79	78, 66	bitrd 279	. . . . . . . . . . 11 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝑓 ∘_f · 𝑓)‘𝑥) = 0 ↔ ((𝑓‘𝑥) = 0 ∨ (𝑓‘𝑥) = 0)))
80	79, 69	bitrdi 287	. . . . . . . . . 10 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (((𝑓 ∘_f · 𝑓)‘𝑥) = 0 ↔ (𝑓‘𝑥) = 0))
81	80	biimpa 476	. . . . . . . . 9 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ ((𝑓 ∘_f · 𝑓)‘𝑥) = 0) → (𝑓‘𝑥) = 0)
82	76, 81	syldan 591	. . . . . . . 8 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) ∧ 𝑥 ∈ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) → (𝑓‘𝑥) = 0)
83		undif 4431	. . . . . . . . . . . . 13 ⊢ (((𝑓 ∘_f · 𝑓) supp 0) ⊆ 𝐼 ↔ (((𝑓 ∘_f · 𝑓) supp 0) ∪ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) = 𝐼)
84	44, 83	sylib 218	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (((𝑓 ∘_f · 𝑓) supp 0) ∪ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) = 𝐼)
85	84	eleq2d 2819	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → (𝑥 ∈ (((𝑓 ∘_f · 𝑓) supp 0) ∪ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) ↔ 𝑥 ∈ 𝐼))
86	85	3adant3 1132	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → (𝑥 ∈ (((𝑓 ∘_f · 𝑓) supp 0) ∪ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) ↔ 𝑥 ∈ 𝐼))
87	86	biimpar 477	. . . . . . . . 9 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → 𝑥 ∈ (((𝑓 ∘_f · 𝑓) supp 0) ∪ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))))
88		elun 4102	. . . . . . . . 9 ⊢ (𝑥 ∈ (((𝑓 ∘_f · 𝑓) supp 0) ∪ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))) ↔ (𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0) ∨ 𝑥 ∈ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))))
89	87, 88	sylib 218	. . . . . . . 8 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0) ∨ 𝑥 ∈ (𝐼 ∖ ((𝑓 ∘_f · 𝑓) supp 0))))
90	70, 82, 89	mpjaodan 960	. . . . . . 7 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) ∧ 𝑥 ∈ 𝐼) → (𝑓‘𝑥) = 0)
91	90	ralrimiva 3125	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → ∀𝑥 ∈ 𝐼 (𝑓‘𝑥) = 0)
92		fconstfv 7152	. . . . . . 7 ⊢ (𝑓:𝐼⟶{0} ↔ (𝑓 Fn 𝐼 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥) = 0))
93		c0ex 11113	. . . . . . . 8 ⊢ 0 ∈ V
94	93	fconst2 7145	. . . . . . 7 ⊢ (𝑓:𝐼⟶{0} ↔ 𝑓 = (𝐼 × {0}))
95	92, 94	sylbb1 237	. . . . . 6 ⊢ ((𝑓 Fn 𝐼 ∧ ∀𝑥 ∈ 𝐼 (𝑓‘𝑥) = 0) → 𝑓 = (𝐼 × {0}))
96	18, 91, 95	syl2anc 584	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → 𝑓 = (𝐼 × {0}))
97		isfld 20657	. . . . . . . . . . 11 ⊢ (ℝ_fld ∈ Field ↔ (ℝ_fld ∈ DivRing ∧ ℝ_fld ∈ CRing))
98	13, 97	mpbi 230	. . . . . . . . . 10 ⊢ (ℝ_fld ∈ DivRing ∧ ℝ_fld ∈ CRing)
99	98	simpli 483	. . . . . . . . 9 ⊢ ℝ_fld ∈ DivRing
100		drngring 20653	. . . . . . . . 9 ⊢ (ℝ_fld ∈ DivRing → ℝ_fld ∈ Ring)
101	99, 100	ax-mp 5	. . . . . . . 8 ⊢ ℝ_fld ∈ Ring
102	6, 11	frlm0 21693	. . . . . . . 8 ⊢ ((ℝ_fld ∈ Ring ∧ 𝐼 ∈ 𝑉) → (𝐼 × {0}) = (0_g‘(ℝ_fld freeLMod 𝐼)))
103	101, 102	mpan 690	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → (𝐼 × {0}) = (0_g‘(ℝ_fld freeLMod 𝐼)))
104	103, 15	eqtr3di 2783	. . . . . 6 ⊢ (𝐼 ∈ 𝑉 → (0_g‘(ℝ_fld freeLMod 𝐼)) = (𝑥 ∈ 𝐼 ↦ 0))
105	104	3ad2ant1 1133	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → (0_g‘(ℝ_fld freeLMod 𝐼)) = (𝑥 ∈ 𝐼 ↦ 0))
106	15, 96, 105	3eqtr4a 2794	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼)) ∧ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓) = 0) → 𝑓 = (0_g‘(ℝ_fld freeLMod 𝐼)))
107		cjre 15048	. . . . 5 ⊢ (𝑥 ∈ ℝ → (∗‘𝑥) = 𝑥)
108	107	adantl 481	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑥 ∈ ℝ) → (∗‘𝑥) = 𝑥)
109		id 22	. . . 4 ⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ 𝑉)
110	6, 7, 8, 4, 9, 10, 11, 12, 14, 106, 108, 109	frlmphl 21720	. . 3 ⊢ (𝐼 ∈ 𝑉 → (ℝ_fld freeLMod 𝐼) ∈ PreHil)
111	6	frlmsca 21692	. . . . 5 ⊢ ((ℝ_fld ∈ Field ∧ 𝐼 ∈ 𝑉) → ℝ_fld = (Scalar‘(ℝ_fld freeLMod 𝐼)))
112	13, 111	mpan 690	. . . 4 ⊢ (𝐼 ∈ 𝑉 → ℝ_fld = (Scalar‘(ℝ_fld freeLMod 𝐼)))
113		df-refld 21544	. . . 4 ⊢ ℝ_fld = (ℂ_fld ↾_s ℝ)
114	112, 113	eqtr3di 2783	. . 3 ⊢ (𝐼 ∈ 𝑉 → (Scalar‘(ℝ_fld freeLMod 𝐼)) = (ℂ_fld ↾_s ℝ))
115		simpr1 1195	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑓 ∈ ℝ ∧ 𝑓 ∈ ℝ ∧ 0 ≤ 𝑓)) → 𝑓 ∈ ℝ)
116		simpr3 1197	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑓 ∈ ℝ ∧ 𝑓 ∈ ℝ ∧ 0 ≤ 𝑓)) → 0 ≤ 𝑓)
117	115, 116	resqrtcld 15327	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ (𝑓 ∈ ℝ ∧ 𝑓 ∈ ℝ ∧ 0 ≤ 𝑓)) → (√‘𝑓) ∈ ℝ)
118	55, 56, 58	fsumge0 15704	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 0 ≤ Σ𝑥 ∈ ((𝑓 ∘_f · 𝑓) supp 0)((𝑓‘𝑥) · (𝑓‘𝑥)))
119	118, 49	breqtrrd 5121	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 0 ≤ (ℝ_fld Σ_g (𝑓 ∘_f · 𝑓)))
120	119, 23	breqtrrd 5121	. . 3 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝑓 ∈ (Base‘(ℝ_fld freeLMod 𝐼))) → 0 ≤ (𝑓(·_𝑖‘(ℝ_fld freeLMod 𝐼))𝑓))
121	3, 4, 5, 110, 114, 9, 117, 120	tcphcph 25165	. 2 ⊢ (𝐼 ∈ 𝑉 → (toℂPreHil‘(ℝ_fld freeLMod 𝐼)) ∈ ℂPreHil)
122	2, 121	eqeltrd 2833	1 ⊢ (𝐼 ∈ 𝑉 → 𝐻 ∈ ℂPreHil)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∨ wo 847 ∧ w3a 1086 = wceq 1541 ∈ wcel 2113 ∀wral 3048 Vcvv 3437 ∖ cdif 3895 ∪ cun 3896 ⊆ wss 3898 {csn 4575 class class class wbr 5093 ↦ cmpt 5174 × cxp 5617 Fun wfun 6480 Fn wfn 6481 ⟶wf 6482 ‘cfv 6486 (class class class)co 7352 ∘_f cof 7614 supp csupp 8096 finSupp cfsupp 9252 ℝcr 11012 0cc0 11013 · cmul 11018 ≤ cle 11154 ∗ccj 15005 Σcsu 15595 Basecbs 17122 ↾_s cress 17143 Scalarcsca 17166 ·_𝑖cip 17168 0_gc0g 17345 Σ_g cgsu 17346 Ringcrg 20153 CRingccrg 20154 DivRingcdr 20646 Fieldcfield 20647 ℂ_fldccnfld 21293 ℝ_fldcrefld 21543 freeLMod cfrlm 21685 ℂPreHilccph 25094 toℂPreHilctcph 25095 ℝ^crrx 25311

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 5219 ax-sep 5236 ax-nul 5246 ax-pow 5305 ax-pr 5372 ax-un 7674 ax-inf2 9538 ax-cnex 11069 ax-resscn 11070 ax-1cn 11071 ax-icn 11072 ax-addcl 11073 ax-addrcl 11074 ax-mulcl 11075 ax-mulrcl 11076 ax-mulcom 11077 ax-addass 11078 ax-mulass 11079 ax-distr 11080 ax-i2m1 11081 ax-1ne0 11082 ax-1rid 11083 ax-rnegex 11084 ax-rrecex 11085 ax-cnre 11086 ax-pre-lttri 11087 ax-pre-lttrn 11088 ax-pre-ltadd 11089 ax-pre-mulgt0 11090 ax-pre-sup 11091 ax-addf 11092 ax-mulf 11093

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 2882 df-ne 2930 df-nel 3034 df-ral 3049 df-rex 3058 df-rmo 3347 df-reu 3348 df-rab 3397 df-v 3439 df-sbc 3738 df-csb 3847 df-dif 3901 df-un 3903 df-in 3905 df-ss 3915 df-pss 3918 df-nul 4283 df-if 4475 df-pw 4551 df-sn 4576 df-pr 4578 df-tp 4580 df-op 4582 df-uni 4859 df-int 4898 df-iun 4943 df-br 5094 df-opab 5156 df-mpt 5175 df-tr 5201 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6253 df-ord 6314 df-on 6315 df-lim 6316 df-suc 6317 df-iota 6442 df-fun 6488 df-fn 6489 df-f 6490 df-f1 6491 df-fo 6492 df-f1o 6493 df-fv 6494 df-isom 6495 df-riota 7309 df-ov 7355 df-oprab 7356 df-mpo 7357 df-of 7616 df-om 7803 df-1st 7927 df-2nd 7928 df-supp 8097 df-tpos 8162 df-frecs 8217 df-wrecs 8248 df-recs 8297 df-rdg 8335 df-1o 8391 df-er 8628 df-map 8758 df-ixp 8828 df-en 8876 df-dom 8877 df-sdom 8878 df-fin 8879 df-fsupp 9253 df-sup 9333 df-inf 9334 df-oi 9403 df-card 9839 df-pnf 11155 df-mnf 11156 df-xr 11157 df-ltxr 11158 df-le 11159 df-sub 11353 df-neg 11354 df-div 11782 df-nn 12133 df-2 12195 df-3 12196 df-4 12197 df-5 12198 df-6 12199 df-7 12200 df-8 12201 df-9 12202 df-n0 12389 df-z 12476 df-dec 12595 df-uz 12739 df-q 12849 df-rp 12893 df-xneg 13013 df-xadd 13014 df-xmul 13015 df-ico 13253 df-fz 13410 df-fzo 13557 df-seq 13911 df-exp 13971 df-hash 14240 df-cj 15008 df-re 15009 df-im 15010 df-sqrt 15144 df-abs 15145 df-clim 15397 df-sum 15596 df-struct 17060 df-sets 17077 df-slot 17095 df-ndx 17107 df-base 17123 df-ress 17144 df-plusg 17176 df-mulr 17177 df-starv 17178 df-sca 17179 df-vsca 17180 df-ip 17181 df-tset 17182 df-ple 17183 df-ds 17185 df-unif 17186 df-hom 17187 df-cco 17188 df-rest 17328 df-topn 17329 df-0g 17347 df-gsum 17348 df-topgen 17349 df-prds 17353 df-pws 17355 df-mgm 18550 df-sgrp 18629 df-mnd 18645 df-mhm 18693 df-submnd 18694 df-grp 18851 df-minusg 18852 df-sbg 18853 df-subg 19038 df-ghm 19127 df-cntz 19231 df-cmn 19696 df-abl 19697 df-mgp 20061 df-rng 20073 df-ur 20102 df-ring 20155 df-cring 20156 df-oppr 20257 df-dvdsr 20277 df-unit 20278 df-invr 20308 df-dvr 20321 df-rhm 20392 df-subrng 20463 df-subrg 20487 df-drng 20648 df-field 20649 df-abv 20726 df-staf 20756 df-srng 20757 df-lmod 20797 df-lss 20867 df-lmhm 20958 df-lvec 21039 df-sra 21109 df-rgmod 21110 df-psmet 21285 df-xmet 21286 df-met 21287 df-bl 21288 df-mopn 21289 df-cnfld 21294 df-refld 21544 df-phl 21565 df-dsmm 21671 df-frlm 21686 df-top 22810 df-topon 22827 df-topsp 22849 df-bases 22862 df-xms 24236 df-ms 24237 df-nm 24498 df-ngp 24499 df-tng 24500 df-nrg 24501 df-nlm 24502 df-clm 24991 df-cph 25096 df-tcph 25097 df-rrx 25313

This theorem is referenced by: rrxngp 46407

W3C validator