Theorem isobs 20976

Description: The predicate "is an orthonormal basis" (over a pre-Hilbert space). (Contributed by Mario Carneiro, 23-Oct-2015.)

Hypotheses

Ref	Expression
isobs.v	⊢ 𝑉 = (Base‘𝑊)
isobs.h	⊢ , = (·𝑖‘𝑊)
isobs.f	⊢ 𝐹 = (Scalar‘𝑊)
isobs.u	⊢ 1 = (1r‘𝐹)
isobs.z	⊢ 0 = (0g‘𝐹)
isobs.o	⊢ ⊥ = (ocv‘𝑊)
isobs.y	⊢ 𝑌 = (0g‘𝑊)

Assertion

Ref	Expression
isobs	⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))

Distinct variable groups:   𝑥,𝑦, ,   𝑥, 0 ,𝑦   𝑥, 1 ,𝑦   𝑥,𝐵,𝑦   𝑥,𝑊,𝑦

Allowed substitution hints:   𝐹(𝑥,𝑦)   ⊥ (𝑥,𝑦)   𝑉(𝑥,𝑦)   𝑌(𝑥,𝑦)

Proof of Theorem isobs

Dummy variables ℎ 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-obs 20961	. . . 4 ⊢ OBasis = (ℎ ∈ PreHil ↦ {𝑏 ∈ 𝒫 (Base‘ℎ) ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)})})
2	1	mptrcl 6916	. . 3 ⊢ (𝐵 ∈ (OBasis‘𝑊) → 𝑊 ∈ PreHil)
3		fveq2 6804	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → (Base‘ℎ) = (Base‘𝑊))
4		isobs.v	. . . . . . . . 9 ⊢ 𝑉 = (Base‘𝑊)
5	3, 4	eqtr4di 2794	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (Base‘ℎ) = 𝑉)
6	5	pweqd 4556	. . . . . . 7 ⊢ (ℎ = 𝑊 → 𝒫 (Base‘ℎ) = 𝒫 𝑉)
7		fveq2 6804	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (·𝑖‘ℎ) = (·𝑖‘𝑊))
8		isobs.h	. . . . . . . . . . . 12 ⊢ , = (·𝑖‘𝑊)
9	7, 8	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (·𝑖‘ℎ) = , )
10	9	oveqd 7324	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (𝑥(·𝑖‘ℎ)𝑦) = (𝑥 , 𝑦))
11		fveq2 6804	. . . . . . . . . . . . . 14 ⊢ (ℎ = 𝑊 → (Scalar‘ℎ) = (Scalar‘𝑊))
12		isobs.f	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (Scalar‘𝑊)
13	11, 12	eqtr4di 2794	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝑊 → (Scalar‘ℎ) = 𝐹)
14	13	fveq2d 6808	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (1r‘(Scalar‘ℎ)) = (1r‘𝐹))
15		isobs.u	. . . . . . . . . . . 12 ⊢ 1 = (1r‘𝐹)
16	14, 15	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (1r‘(Scalar‘ℎ)) = 1 )
17	13	fveq2d 6808	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (0g‘(Scalar‘ℎ)) = (0g‘𝐹))
18		isobs.z	. . . . . . . . . . . 12 ⊢ 0 = (0g‘𝐹)
19	17, 18	eqtr4di 2794	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (0g‘(Scalar‘ℎ)) = 0 )
20	16, 19	ifeq12d 4486	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) = if(𝑥 = 𝑦, 1 , 0 ))
21	10, 20	eqeq12d 2752	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → ((𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ↔ (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
22	21	2ralbidv 3209	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ↔ ∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
23		fveq2 6804	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = (ocv‘𝑊))
24		isobs.o	. . . . . . . . . . 11 ⊢ ⊥ = (ocv‘𝑊)
25	23, 24	eqtr4di 2794	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = ⊥ )
26	25	fveq1d 6806	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → ((ocv‘ℎ)‘𝑏) = ( ⊥ ‘𝑏))
27		fveq2 6804	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (0g‘ℎ) = (0g‘𝑊))
28		isobs.y	. . . . . . . . . . 11 ⊢ 𝑌 = (0g‘𝑊)
29	27, 28	eqtr4di 2794	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (0g‘ℎ) = 𝑌)
30	29	sneqd 4577	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → {(0g‘ℎ)} = {𝑌})
31	26, 30	eqeq12d 2752	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)} ↔ ( ⊥ ‘𝑏) = {𝑌}))
32	22, 31	anbi12d 632	. . . . . . 7 ⊢ (ℎ = 𝑊 → ((∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)}) ↔ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})))
33	6, 32	rabeqbidv 3427	. . . . . 6 ⊢ (ℎ = 𝑊 → {𝑏 ∈ 𝒫 (Base‘ℎ) ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)})} = {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})})
34	4	fvexi 6818	. . . . . . . 8 ⊢ 𝑉 ∈ V
35	34	pwex 5312	. . . . . . 7 ⊢ 𝒫 𝑉 ∈ V
36	35	rabex 5265	. . . . . 6 ⊢ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ∈ V
37	33, 1, 36	fvmpt 6907	. . . . 5 ⊢ (𝑊 ∈ PreHil → (OBasis‘𝑊) = {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})})
38	37	eleq2d 2822	. . . 4 ⊢ (𝑊 ∈ PreHil → (𝐵 ∈ (OBasis‘𝑊) ↔ 𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})}))
39		raleq 3361	. . . . . . . 8 ⊢ (𝑏 = 𝐵 → (∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ↔ ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
40	39	raleqbi1dv 3359	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
41		fveqeq2 6813	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (( ⊥ ‘𝑏) = {𝑌} ↔ ( ⊥ ‘𝐵) = {𝑌}))
42	40, 41	anbi12d 632	. . . . . 6 ⊢ (𝑏 = 𝐵 → ((∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌}) ↔ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
43	42	elrab 3629	. . . . 5 ⊢ (𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ↔ (𝐵 ∈ 𝒫 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
44	34	elpw2 5278	. . . . . 6 ⊢ (𝐵 ∈ 𝒫 𝑉 ↔ 𝐵 ⊆ 𝑉)
45	44	anbi1i 625	. . . . 5 ⊢ ((𝐵 ∈ 𝒫 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})) ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
46	43, 45	bitri 275	. . . 4 ⊢ (𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
47	38, 46	bitrdi 287	. . 3 ⊢ (𝑊 ∈ PreHil → (𝐵 ∈ (OBasis‘𝑊) ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
48	2, 47	biadanii 820	. 2 ⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
49		3anass 1095	. 2 ⊢ ((𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})) ↔ (𝑊 ∈ PreHil ∧ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
50	48, 49	bitr4i 278	1 ⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))

Syntax hints:   ↔ wb 205   ∧ wa 397   ∧ w3a 1087   = wceq 1539   ∈ wcel 2104  ∀wral 3062  {crab 3303   ⊆ wss 3892  ifcif 4465  𝒫 cpw 4539  {csn 4565  ‘cfv 6458  (class class class)co 7307  Basecbs 16961  Scalarcsca 17014  ·_𝑖cip 17016  0_gc0g 17199  1_rcur 19786  PreHilcphl 20878  ocvcocv 20914  OBasiscobs 20958

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 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2707  ax-sep 5232  ax-nul 5239  ax-pow 5297  ax-pr 5361

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 846  df-3an 1089  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3306  df-v 3439  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4566  df-pr 4568  df-op 4572  df-uni 4845  df-br 5082  df-opab 5144  df-mpt 5165  df-id 5500  df-xp 5606  df-rel 5607  df-cnv 5608  df-co 5609  df-dm 5610  df-rn 5611  df-res 5612  df-ima 5613  df-iota 6410  df-fun 6460  df-fv 6466  df-ov 7310  df-obs 20961

This theorem is referenced by:  obsip  20977  obsrcl  20979  obsss  20980  obsocv  20982