Metamath Proof Explorer


Theorem hstrlem3a

Description: Lemma for strong set of CH states theorem: the function S , that maps a closed subspace to the square of the norm of its projection onto a unit vector, is a state. (Contributed by NM, 30-Jun-2006) (New usage is discouraged.)

Ref Expression
Hypothesis hstrlem3a.1 S=xCprojxu
Assertion hstrlem3a unormu=1SCHStates

Proof

Step Hyp Ref Expression
1 hstrlem3a.1 S=xCprojxu
2 pjhcl xCuprojxu
3 2 ancoms uxCprojxu
4 3 adantlr unormu=1xCprojxu
5 4 1 fmptd unormu=1S:C
6 helch C
7 1 hstrlem2 CS=proju
8 6 7 ax-mp S=proju
9 8 fveq2i normS=normproju
10 pjch1 uproju=u
11 10 fveq2d unormproju=normu
12 id normu=1normu=1
13 11 12 sylan9eq unormu=1normproju=1
14 9 13 eqtrid unormu=1normS=1
15 1 hstrlem2 zCSz=projzu
16 1 hstrlem2 wCSw=projwu
17 15 16 oveqan12d zCwCSzihSw=projzuihprojwu
18 17 3adant3 zCwCuSzihSw=projzuihprojwu
19 18 adantr zCwCuzwSzihSw=projzuihprojwu
20 pjoi0 zCwCuzwprojzuihprojwu=0
21 19 20 eqtrd zCwCuzwSzihSw=0
22 pjcjt2 zCwCuzwprojzwu=projzu+projwu
23 22 imp zCwCuzwprojzwu=projzu+projwu
24 chjcl zCwCzwC
25 1 hstrlem2 zwCSzw=projzwu
26 24 25 syl zCwCSzw=projzwu
27 26 3adant3 zCwCuSzw=projzwu
28 27 adantr zCwCuzwSzw=projzwu
29 15 16 oveqan12d zCwCSz+Sw=projzu+projwu
30 29 3adant3 zCwCuSz+Sw=projzu+projwu
31 30 adantr zCwCuzwSz+Sw=projzu+projwu
32 23 28 31 3eqtr4d zCwCuzwSzw=Sz+Sw
33 21 32 jca zCwCuzwSzihSw=0Szw=Sz+Sw
34 33 3exp1 zCwCuzwSzihSw=0Szw=Sz+Sw
35 34 com3r uzCwCzwSzihSw=0Szw=Sz+Sw
36 35 adantr unormu=1zCwCzwSzihSw=0Szw=Sz+Sw
37 36 ralrimdv unormu=1zCwCzwSzihSw=0Szw=Sz+Sw
38 37 ralrimiv unormu=1zCwCzwSzihSw=0Szw=Sz+Sw
39 ishst SCHStatesS:CnormS=1zCwCzwSzihSw=0Szw=Sz+Sw
40 5 14 38 39 syl3anbrc unormu=1SCHStates