Theorem isobs 22059

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 22044	. . . 4 ⊢ OBasis = (ℎ ∈ PreHil ↦ {𝑏 ∈ 𝒫 (Base‘ℎ) ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)})})
2	1	mptrcl 7029	. . 3 ⊢ (𝐵 ∈ (OBasis‘𝑊) → 𝑊 ∈ PreHil)
3		fveq2 6911	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → (Base‘ℎ) = (Base‘𝑊))
4		isobs.v	. . . . . . . . 9 ⊢ 𝑉 = (Base‘𝑊)
5	3, 4	eqtr4di 2816	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (Base‘ℎ) = 𝑉)
6	5	pweqd 4577	. . . . . . 7 ⊢ (ℎ = 𝑊 → 𝒫 (Base‘ℎ) = 𝒫 𝑉)
7		fveq2 6911	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (·𝑖‘ℎ) = (·𝑖‘𝑊))
8		isobs.h	. . . . . . . . . . . 12 ⊢ , = (·𝑖‘𝑊)
9	7, 8	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (·𝑖‘ℎ) = , )
10	9	oveqd 7463	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (𝑥(·𝑖‘ℎ)𝑦) = (𝑥 , 𝑦))
11		fveq2 6911	. . . . . . . . . . . . . 14 ⊢ (ℎ = 𝑊 → (Scalar‘ℎ) = (Scalar‘𝑊))
12		isobs.f	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (Scalar‘𝑊)
13	11, 12	eqtr4di 2816	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝑊 → (Scalar‘ℎ) = 𝐹)
14	13	fveq2d 6915	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (1r‘(Scalar‘ℎ)) = (1r‘𝐹))
15		isobs.u	. . . . . . . . . . . 12 ⊢ 1 = (1r‘𝐹)
16	14, 15	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (1r‘(Scalar‘ℎ)) = 1 )
17	13	fveq2d 6915	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (0g‘(Scalar‘ℎ)) = (0g‘𝐹))
18		isobs.z	. . . . . . . . . . . 12 ⊢ 0 = (0g‘𝐹)
19	17, 18	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (0g‘(Scalar‘ℎ)) = 0 )
20	16, 19	ifeq12d 4507	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) = if(𝑥 = 𝑦, 1 , 0 ))
21	10, 20	eqeq12d 2779	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → ((𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ↔ (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
22	21	2ralbidv 3230	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ↔ ∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
23		fveq2 6911	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = (ocv‘𝑊))
24		isobs.o	. . . . . . . . . . 11 ⊢ ⊥ = (ocv‘𝑊)
25	23, 24	eqtr4di 2816	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = ⊥ )
26	25	fveq1d 6913	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → ((ocv‘ℎ)‘𝑏) = ( ⊥ ‘𝑏))
27		fveq2 6911	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (0g‘ℎ) = (0g‘𝑊))
28		isobs.y	. . . . . . . . . . 11 ⊢ 𝑌 = (0g‘𝑊)
29	27, 28	eqtr4di 2816	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (0g‘ℎ) = 𝑌)
30	29	sneqd 4596	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → {(0g‘ℎ)} = {𝑌})
31	26, 30	eqeq12d 2779	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)} ↔ ( ⊥ ‘𝑏) = {𝑌}))
32	22, 31	anbi12d 644	. . . . . . 7 ⊢ (ℎ = 𝑊 → ((∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)}) ↔ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})))
33	6, 32	rabeqbidv 3433	. . . . . 6 ⊢ (ℎ = 𝑊 → {𝑏 ∈ 𝒫 (Base‘ℎ) ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)})} = {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})})
34	4	fvexi 6925	. . . . . . . 8 ⊢ 𝑉 ∈ V
35	34	pwex 5347	. . . . . . 7 ⊢ 𝒫 𝑉 ∈ V
36	35	rabex 5305	. . . . . 6 ⊢ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ∈ V
37	33, 1, 36	fvmpt 7019	. . . . 5 ⊢ (𝑊 ∈ PreHil → (OBasis‘𝑊) = {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})})
38	37	eleq2d 2850	. . . 4 ⊢ (𝑊 ∈ PreHil → (𝐵 ∈ (OBasis‘𝑊) ↔ 𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})}))
39		raleq 3320	. . . . . . . 8 ⊢ (𝑏 = 𝐵 → (∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ↔ ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
40	39	raleqbi1dv 3333	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
41		fveqeq2 6920	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (( ⊥ ‘𝑏) = {𝑌} ↔ ( ⊥ ‘𝐵) = {𝑌}))
42	40, 41	anbi12d 644	. . . . . 6 ⊢ (𝑏 = 𝐵 → ((∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌}) ↔ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
43	42	elrab 3648	. . . . 5 ⊢ (𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ↔ (𝐵 ∈ 𝒫 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
44	34	elpw2 5301	. . . . . 6 ⊢ (𝐵 ∈ 𝒫 𝑉 ↔ 𝐵 ⊆ 𝑉)
45	44	anbi1i 636	. . . . 5 ⊢ ((𝐵 ∈ 𝒫 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})) ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
46	43, 45	bitri 278	. . . 4 ⊢ (𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
47	38, 46	bitrdi 290	. . 3 ⊢ (𝑊 ∈ PreHil → (𝐵 ∈ (OBasis‘𝑊) ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
48	2, 47	biadanii 834	. 2 ⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
49		3anass 1111	. 2 ⊢ ((𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})) ↔ (𝑊 ∈ PreHil ∧ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
50	48, 49	bitr4i 281	1 ⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))

This proof depends on syntax axioms:   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147  ∀wral 3080  {crab 3416   ⊆ wss 3900  ifcif 4485  𝒫 cpw 4560  {csn 4588  ‘cfv 6561  (class class class)co 7446  Basecbs 17419  Scalarcsca 17463  ·_𝑖cip 17465  0_gc0g 17642  1_rcur 20440  PreHilcphl 21963  ocvcocv 21999  OBasiscobs 22041

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-sep 5253  ax-nul 5264  ax-pow 5332  ax-pr 5396

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  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-ral 3081  df-rex 3091  df-rab 3417  df-v 3456  df-ss 3901  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-op 4839  df-uni 4871  df-br 5107  df-opab 5172  df-mpt 5191  df-id 5551  df-xp 5662  df-rel 5663  df-cnv 5664  df-co 5665  df-dm 5666  df-rn 5667  df-res 5668  df-ima 5669  df-iota 6515  df-fun 6563  df-fv 6569  df-ov 7449  df-obs 22044

This theorem is used by:  obsip  22060  obsrcl  22062  obsss  22063  obsocv  22065