Metamath Proof Explorer


Theorem htth

Description: Hellinger-Toeplitz Theorem: any self-adjoint linear operator defined on all of Hilbert space is bounded. Theorem 10.1-1 of Kreyszig p. 525. Discovered by E. Hellinger and O. Toeplitz in 1910, "it aroused both admiration and puzzlement since the theorem establishes a relation between properties of two different kinds, namely, the properties of being defined everywhere and being bounded." (Contributed by NM, 11-Jan-2008) (Revised by Mario Carneiro, 23-Aug-2014) (New usage is discouraged.)

Ref Expression
Hypotheses htth.1 X = BaseSet U
htth.2 P = 𝑖OLD U
htth.3 L = U LnOp U
htth.4 B = U BLnOp U
Assertion htth U CHil OLD T L x X y X x P T y = T x P y T B

Proof

Step Hyp Ref Expression
1 htth.1 X = BaseSet U
2 htth.2 P = 𝑖OLD U
3 htth.3 L = U LnOp U
4 htth.4 B = U BLnOp U
5 oveq12 U = if U CHil OLD U + × abs U = if U CHil OLD U + × abs U LnOp U = if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs
6 5 anidms U = if U CHil OLD U + × abs U LnOp U = if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs
7 3 6 eqtrid U = if U CHil OLD U + × abs L = if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs
8 7 eleq2d U = if U CHil OLD U + × abs T L T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs
9 fveq2 U = if U CHil OLD U + × abs BaseSet U = BaseSet if U CHil OLD U + × abs
10 1 9 eqtrid U = if U CHil OLD U + × abs X = BaseSet if U CHil OLD U + × abs
11 fveq2 U = if U CHil OLD U + × abs 𝑖OLD U = 𝑖OLD if U CHil OLD U + × abs
12 2 11 eqtrid U = if U CHil OLD U + × abs P = 𝑖OLD if U CHil OLD U + × abs
13 12 oveqd U = if U CHil OLD U + × abs x P T y = x 𝑖OLD if U CHil OLD U + × abs T y
14 12 oveqd U = if U CHil OLD U + × abs T x P y = T x 𝑖OLD if U CHil OLD U + × abs y
15 13 14 eqeq12d U = if U CHil OLD U + × abs x P T y = T x P y x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y
16 10 15 raleqbidv U = if U CHil OLD U + × abs y X x P T y = T x P y y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y
17 10 16 raleqbidv U = if U CHil OLD U + × abs x X y X x P T y = T x P y x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y
18 8 17 anbi12d U = if U CHil OLD U + × abs T L x X y X x P T y = T x P y T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y
19 oveq12 U = if U CHil OLD U + × abs U = if U CHil OLD U + × abs U BLnOp U = if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
20 19 anidms U = if U CHil OLD U + × abs U BLnOp U = if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
21 4 20 eqtrid U = if U CHil OLD U + × abs B = if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
22 21 eleq2d U = if U CHil OLD U + × abs T B T if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
23 18 22 imbi12d U = if U CHil OLD U + × abs T L x X y X x P T y = T x P y T B T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y T if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
24 eqid BaseSet if U CHil OLD U + × abs = BaseSet if U CHil OLD U + × abs
25 eqid 𝑖OLD if U CHil OLD U + × abs = 𝑖OLD if U CHil OLD U + × abs
26 eqid if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs = if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs
27 eqid if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs = if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
28 eqid norm CV if U CHil OLD U + × abs = norm CV if U CHil OLD U + × abs
29 eqid + × abs = + × abs
30 29 cnchl + × abs CHil OLD
31 30 elimel if U CHil OLD U + × abs CHil OLD
32 simpl T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs
33 simpr T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y
34 oveq1 x = u x 𝑖OLD if U CHil OLD U + × abs T y = u 𝑖OLD if U CHil OLD U + × abs T y
35 fveq2 x = u T x = T u
36 35 oveq1d x = u T x 𝑖OLD if U CHil OLD U + × abs y = T u 𝑖OLD if U CHil OLD U + × abs y
37 34 36 eqeq12d x = u x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y u 𝑖OLD if U CHil OLD U + × abs T y = T u 𝑖OLD if U CHil OLD U + × abs y
38 fveq2 y = v T y = T v
39 38 oveq2d y = v u 𝑖OLD if U CHil OLD U + × abs T y = u 𝑖OLD if U CHil OLD U + × abs T v
40 oveq2 y = v T u 𝑖OLD if U CHil OLD U + × abs y = T u 𝑖OLD if U CHil OLD U + × abs v
41 39 40 eqeq12d y = v u 𝑖OLD if U CHil OLD U + × abs T y = T u 𝑖OLD if U CHil OLD U + × abs y u 𝑖OLD if U CHil OLD U + × abs T v = T u 𝑖OLD if U CHil OLD U + × abs v
42 37 41 cbvral2vw x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y u BaseSet if U CHil OLD U + × abs v BaseSet if U CHil OLD U + × abs u 𝑖OLD if U CHil OLD U + × abs T v = T u 𝑖OLD if U CHil OLD U + × abs v
43 33 42 sylib T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y u BaseSet if U CHil OLD U + × abs v BaseSet if U CHil OLD U + × abs u 𝑖OLD if U CHil OLD U + × abs T v = T u 𝑖OLD if U CHil OLD U + × abs v
44 oveq1 y = w y 𝑖OLD if U CHil OLD U + × abs T x = w 𝑖OLD if U CHil OLD U + × abs T x
45 44 cbvmptv y BaseSet if U CHil OLD U + × abs y 𝑖OLD if U CHil OLD U + × abs T x = w BaseSet if U CHil OLD U + × abs w 𝑖OLD if U CHil OLD U + × abs T x
46 fveq2 x = z T x = T z
47 46 oveq2d x = z w 𝑖OLD if U CHil OLD U + × abs T x = w 𝑖OLD if U CHil OLD U + × abs T z
48 47 mpteq2dv x = z w BaseSet if U CHil OLD U + × abs w 𝑖OLD if U CHil OLD U + × abs T x = w BaseSet if U CHil OLD U + × abs w 𝑖OLD if U CHil OLD U + × abs T z
49 45 48 eqtrid x = z y BaseSet if U CHil OLD U + × abs y 𝑖OLD if U CHil OLD U + × abs T x = w BaseSet if U CHil OLD U + × abs w 𝑖OLD if U CHil OLD U + × abs T z
50 49 cbvmptv x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs y 𝑖OLD if U CHil OLD U + × abs T x = z BaseSet if U CHil OLD U + × abs w BaseSet if U CHil OLD U + × abs w 𝑖OLD if U CHil OLD U + × abs T z
51 fveq2 x = z norm CV if U CHil OLD U + × abs x = norm CV if U CHil OLD U + × abs z
52 51 breq1d x = z norm CV if U CHil OLD U + × abs x 1 norm CV if U CHil OLD U + × abs z 1
53 52 cbvrabv x BaseSet if U CHil OLD U + × abs | norm CV if U CHil OLD U + × abs x 1 = z BaseSet if U CHil OLD U + × abs | norm CV if U CHil OLD U + × abs z 1
54 53 imaeq2i x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs y 𝑖OLD if U CHil OLD U + × abs T x x BaseSet if U CHil OLD U + × abs | norm CV if U CHil OLD U + × abs x 1 = x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs y 𝑖OLD if U CHil OLD U + × abs T x z BaseSet if U CHil OLD U + × abs | norm CV if U CHil OLD U + × abs z 1
55 24 25 26 27 28 31 29 32 43 50 54 htthlem T if U CHil OLD U + × abs LnOp if U CHil OLD U + × abs x BaseSet if U CHil OLD U + × abs y BaseSet if U CHil OLD U + × abs x 𝑖OLD if U CHil OLD U + × abs T y = T x 𝑖OLD if U CHil OLD U + × abs y T if U CHil OLD U + × abs BLnOp if U CHil OLD U + × abs
56 23 55 dedth U CHil OLD T L x X y X x P T y = T x P y T B
57 56 3impib U CHil OLD T L x X y X x P T y = T x P y T B