Theorem isobs 20864

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 20849	. . . 4 ⊢ OBasis = (ℎ ∈ PreHil ↦ {𝑏 ∈ 𝒫 (Base‘ℎ) ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)})})
2	1	mptrcl 6777	. . 3 ⊢ (𝐵 ∈ (OBasis‘𝑊) → 𝑊 ∈ PreHil)
3		fveq2 6670	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → (Base‘ℎ) = (Base‘𝑊))
4		isobs.v	. . . . . . . . 9 ⊢ 𝑉 = (Base‘𝑊)
5	3, 4	syl6eqr 2874	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (Base‘ℎ) = 𝑉)
6	5	pweqd 4558	. . . . . . 7 ⊢ (ℎ = 𝑊 → 𝒫 (Base‘ℎ) = 𝒫 𝑉)
7		fveq2 6670	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (·𝑖‘ℎ) = (·𝑖‘𝑊))
8		isobs.h	. . . . . . . . . . . 12 ⊢ , = (·𝑖‘𝑊)
9	7, 8	syl6eqr 2874	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (·𝑖‘ℎ) = , )
10	9	oveqd 7173	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (𝑥(·𝑖‘ℎ)𝑦) = (𝑥 , 𝑦))
11		fveq2 6670	. . . . . . . . . . . . . 14 ⊢ (ℎ = 𝑊 → (Scalar‘ℎ) = (Scalar‘𝑊))
12		isobs.f	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (Scalar‘𝑊)
13	11, 12	syl6eqr 2874	. . . . . . . . . . . . 13 ⊢ (ℎ = 𝑊 → (Scalar‘ℎ) = 𝐹)
14	13	fveq2d 6674	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (1r‘(Scalar‘ℎ)) = (1r‘𝐹))
15		isobs.u	. . . . . . . . . . . 12 ⊢ 1 = (1r‘𝐹)
16	14, 15	syl6eqr 2874	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (1r‘(Scalar‘ℎ)) = 1 )
17	13	fveq2d 6674	. . . . . . . . . . . 12 ⊢ (ℎ = 𝑊 → (0g‘(Scalar‘ℎ)) = (0g‘𝐹))
18		isobs.z	. . . . . . . . . . . 12 ⊢ 0 = (0g‘𝐹)
19	17, 18	syl6eqr 2874	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (0g‘(Scalar‘ℎ)) = 0 )
20	16, 19	ifeq12d 4487	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) = if(𝑥 = 𝑦, 1 , 0 ))
21	10, 20	eqeq12d 2837	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → ((𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ↔ (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
22	21	2ralbidv 3199	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ↔ ∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
23		fveq2 6670	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = (ocv‘𝑊))
24		isobs.o	. . . . . . . . . . 11 ⊢ ⊥ = (ocv‘𝑊)
25	23, 24	syl6eqr 2874	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (ocv‘ℎ) = ⊥ )
26	25	fveq1d 6672	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → ((ocv‘ℎ)‘𝑏) = ( ⊥ ‘𝑏))
27		fveq2 6670	. . . . . . . . . . 11 ⊢ (ℎ = 𝑊 → (0g‘ℎ) = (0g‘𝑊))
28		isobs.y	. . . . . . . . . . 11 ⊢ 𝑌 = (0g‘𝑊)
29	27, 28	syl6eqr 2874	. . . . . . . . . 10 ⊢ (ℎ = 𝑊 → (0g‘ℎ) = 𝑌)
30	29	sneqd 4579	. . . . . . . . 9 ⊢ (ℎ = 𝑊 → {(0g‘ℎ)} = {𝑌})
31	26, 30	eqeq12d 2837	. . . . . . . 8 ⊢ (ℎ = 𝑊 → (((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)} ↔ ( ⊥ ‘𝑏) = {𝑌}))
32	22, 31	anbi12d 632	. . . . . . 7 ⊢ (ℎ = 𝑊 → ((∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)}) ↔ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})))
33	6, 32	rabeqbidv 3485	. . . . . 6 ⊢ (ℎ = 𝑊 → {𝑏 ∈ 𝒫 (Base‘ℎ) ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥(·𝑖‘ℎ)𝑦) = if(𝑥 = 𝑦, (1r‘(Scalar‘ℎ)), (0g‘(Scalar‘ℎ))) ∧ ((ocv‘ℎ)‘𝑏) = {(0g‘ℎ)})} = {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})})
34	4	fvexi 6684	. . . . . . . 8 ⊢ 𝑉 ∈ V
35	34	pwex 5281	. . . . . . 7 ⊢ 𝒫 𝑉 ∈ V
36	35	rabex 5235	. . . . . 6 ⊢ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ∈ V
37	33, 1, 36	fvmpt 6768	. . . . 5 ⊢ (𝑊 ∈ PreHil → (OBasis‘𝑊) = {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})})
38	37	eleq2d 2898	. . . 4 ⊢ (𝑊 ∈ PreHil → (𝐵 ∈ (OBasis‘𝑊) ↔ 𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})}))
39		raleq 3405	. . . . . . . 8 ⊢ (𝑏 = 𝐵 → (∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ↔ ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
40	39	raleqbi1dv 3403	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 )))
41		fveqeq2 6679	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (( ⊥ ‘𝑏) = {𝑌} ↔ ( ⊥ ‘𝐵) = {𝑌}))
42	40, 41	anbi12d 632	. . . . . 6 ⊢ (𝑏 = 𝐵 → ((∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌}) ↔ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
43	42	elrab 3680	. . . . 5 ⊢ (𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ↔ (𝐵 ∈ 𝒫 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
44	34	elpw2 5248	. . . . . 6 ⊢ (𝐵 ∈ 𝒫 𝑉 ↔ 𝐵 ⊆ 𝑉)
45	44	anbi1i 625	. . . . 5 ⊢ ((𝐵 ∈ 𝒫 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})) ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
46	43, 45	bitri 277	. . . 4 ⊢ (𝐵 ∈ {𝑏 ∈ 𝒫 𝑉 ∣ (∀𝑥 ∈ 𝑏 ∀𝑦 ∈ 𝑏 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝑏) = {𝑌})} ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))
47	38, 46	syl6bb 289	. . 3 ⊢ (𝑊 ∈ PreHil → (𝐵 ∈ (OBasis‘𝑊) ↔ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
48	2, 47	biadanii 820	. 2 ⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
49		3anass 1091	. 2 ⊢ ((𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})) ↔ (𝑊 ∈ PreHil ∧ (𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌}))))
50	48, 49	bitr4i 280	1 ⊢ (𝐵 ∈ (OBasis‘𝑊) ↔ (𝑊 ∈ PreHil ∧ 𝐵 ⊆ 𝑉 ∧ (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 , 𝑦) = if(𝑥 = 𝑦, 1 , 0 ) ∧ ( ⊥ ‘𝐵) = {𝑌})))

Syntax hints:   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114  ∀wral 3138  {crab 3142   ⊆ wss 3936  ifcif 4467  𝒫 cpw 4539  {csn 4567  ‘cfv 6355  (class class class)co 7156  Basecbs 16483  Scalarcsca 16568  ·_𝑖cip 16570  0_gc0g 16713  1_rcur 19251  PreHilcphl 20768  ocvcocv 20804  OBasiscobs 20846

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 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ral 3143  df-rex 3144  df-rab 3147  df-v 3496  df-sbc 3773  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4839  df-br 5067  df-opab 5129  df-mpt 5147  df-id 5460  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-iota 6314  df-fun 6357  df-fv 6363  df-ov 7159  df-obs 20849

This theorem is referenced by:  obsip  20865  obsrcl  20867  obsss  20868  obsocv  20870