Metamath Proof Explorer

Theorem nmlnop0iALT

Description: A linear operator with a zero norm is identically zero. (Contributed by NM, 8-Feb-2006) (New usage is discouraged.) (Proof modification is discouraged.)

Ref Expression
Hypothesis nmlnop0.1 
|- T e. LinOp
Assertion nmlnop0iALT 
|- ( ( normop ` T ) = 0 <-> T = 0hop )

Proof

Step Hyp Ref Expression
1 nmlnop0.1 
 |-  T e. LinOp
2 normcl 
 |-  ( x e. ~H -> ( normh ` x ) e. RR )
3 2 recnd 
 |-  ( x e. ~H -> ( normh ` x ) e. CC )
4 3 adantr 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` x ) e. CC )
5 norm-i 
 |-  ( x e. ~H -> ( ( normh ` x ) = 0 <-> x = 0h ) )
6 fveq2 
 |-  ( x = 0h -> ( T ` x ) = ( T ` 0h ) )
7 1 lnop0i 
 |-  ( T ` 0h ) = 0h
8 6 7 eqtrdi 
 |-  ( x = 0h -> ( T ` x ) = 0h )
9 5 8 syl6bi 
 |-  ( x e. ~H -> ( ( normh ` x ) = 0 -> ( T ` x ) = 0h ) )
10 9 necon3d 
 |-  ( x e. ~H -> ( ( T ` x ) =/= 0h -> ( normh ` x ) =/= 0 ) )
11 10 imp 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` x ) =/= 0 )
12 4 11 recne0d 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( 1 / ( normh ` x ) ) =/= 0 )
13 simpr 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( T ` x ) =/= 0h )
14 4 11 reccld 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( 1 / ( normh ` x ) ) e. CC )
15 1 lnopfi 
 |-  T : ~H --> ~H
16 15 ffvelrni 
 |-  ( x e. ~H -> ( T ` x ) e. ~H )
17 16 adantr 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( T ` x ) e. ~H )
18 hvmul0or 
 |-  ( ( ( 1 / ( normh ` x ) ) e. CC /\ ( T ` x ) e. ~H ) -> ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) = 0h <-> ( ( 1 / ( normh ` x ) ) = 0 \/ ( T ` x ) = 0h ) ) )
19 14 17 18 syl2anc 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) = 0h <-> ( ( 1 / ( normh ` x ) ) = 0 \/ ( T ` x ) = 0h ) ) )
20 19 necon3abid 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) =/= 0h <-> -. ( ( 1 / ( normh ` x ) ) = 0 \/ ( T ` x ) = 0h ) ) )
21 neanior 
 |-  ( ( ( 1 / ( normh ` x ) ) =/= 0 /\ ( T ` x ) =/= 0h ) <-> -. ( ( 1 / ( normh ` x ) ) = 0 \/ ( T ` x ) = 0h ) )
22 20 21 bitr4di 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) =/= 0h <-> ( ( 1 / ( normh ` x ) ) =/= 0 /\ ( T ` x ) =/= 0h ) ) )
23 12 13 22 mpbir2and 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) =/= 0h )
24 hvmulcl 
 |-  ( ( ( 1 / ( normh ` x ) ) e. CC /\ ( T ` x ) e. ~H ) -> ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) e. ~H )
25 14 17 24 syl2anc 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) e. ~H )
26 normgt0 
 |-  ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) e. ~H -> ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) =/= 0h <-> 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
27 25 26 syl 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) =/= 0h <-> 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
28 23 27 mpbid 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) )
29 28 ex 
 |-  ( x e. ~H -> ( ( T ` x ) =/= 0h -> 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
30 29 adantl 
 |-  ( ( ( normop ` T ) = 0 /\ x e. ~H ) -> ( ( T ` x ) =/= 0h -> 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
31 nmopsetretHIL 
 |-  ( T : ~H --> ~H -> { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } C_ RR )
32 15 31 ax-mp 
 |-  { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } C_ RR
33 ressxr 
 |-  RR C_ RR*
34 32 33 sstri 
 |-  { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } C_ RR*
35 simpl 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> x e. ~H )
36 hvmulcl 
 |-  ( ( ( 1 / ( normh ` x ) ) e. CC /\ x e. ~H ) -> ( ( 1 / ( normh ` x ) ) .h x ) e. ~H )
37 14 35 36 syl2anc 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( 1 / ( normh ` x ) ) .h x ) e. ~H )
38 8 necon3i 
 |-  ( ( T ` x ) =/= 0h -> x =/= 0h )
39 norm1 
 |-  ( ( x e. ~H /\ x =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) = 1 )
40 38 39 sylan2 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) = 1 )
41 1re 
 |-  1 e. RR
42 40 41 eqeltrdi 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) e. RR )
43 eqle 
 |-  ( ( ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) e. RR /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) = 1 ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) <_ 1 )
44 42 40 43 syl2anc 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) <_ 1 )
45 1 lnopmuli 
 |-  ( ( ( 1 / ( normh ` x ) ) e. CC /\ x e. ~H ) -> ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) = ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) )
46 14 35 45 syl2anc 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) = ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) )
47 46 eqcomd 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) = ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) )
48 47 fveq2d 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) ) )
49 fveq2 
 |-  ( z = ( ( 1 / ( normh ` x ) ) .h x ) -> ( normh ` z ) = ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) )
50 49 breq1d 
 |-  ( z = ( ( 1 / ( normh ` x ) ) .h x ) -> ( ( normh ` z ) <_ 1 <-> ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) <_ 1 ) )
51 fveq2 
 |-  ( z = ( ( 1 / ( normh ` x ) ) .h x ) -> ( T ` z ) = ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) )
52 51 fveq2d 
 |-  ( z = ( ( 1 / ( normh ` x ) ) .h x ) -> ( normh ` ( T ` z ) ) = ( normh ` ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) ) )
53 52 eqeq2d 
 |-  ( z = ( ( 1 / ( normh ` x ) ) .h x ) -> ( ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) <-> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) ) ) )
54 50 53 anbi12d 
 |-  ( z = ( ( 1 / ( normh ` x ) ) .h x ) -> ( ( ( normh ` z ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) <-> ( ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) ) ) ) )
55 54 rspcev 
 |-  ( ( ( ( 1 / ( normh ` x ) ) .h x ) e. ~H /\ ( ( normh ` ( ( 1 / ( normh ` x ) ) .h x ) ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` ( ( 1 / ( normh ` x ) ) .h x ) ) ) ) ) -> E. z e. ~H ( ( normh ` z ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) )
56 37 44 48 55 syl12anc 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> E. z e. ~H ( ( normh ` z ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) )
57 fvex 
 |-  ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. _V
58 eqeq1 
 |-  ( y = ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) -> ( y = ( normh ` ( T ` z ) ) <-> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) )
59 58 anbi2d 
 |-  ( y = ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) -> ( ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) <-> ( ( normh ` z ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) ) )
60 59 rexbidv 
 |-  ( y = ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) -> ( E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) <-> E. z e. ~H ( ( normh ` z ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) ) )
61 57 60 elab 
 |-  ( ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } <-> E. z e. ~H ( ( normh ` z ) <_ 1 /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) = ( normh ` ( T ` z ) ) ) )
62 56 61 sylibr 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } )
63 supxrub 
 |-  ( ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } C_ RR* /\ ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) )
64 34 62 63 sylancr 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) )
65 64 adantll 
 |-  ( ( ( ( normop ` T ) = 0 /\ x e. ~H ) /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) )
66 nmopval 
 |-  ( T : ~H --> ~H -> ( normop ` T ) = sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) )
67 15 66 ax-mp 
 |-  ( normop ` T ) = sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < )
68 67 eqeq1i 
 |-  ( ( normop ` T ) = 0 <-> sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) = 0 )
69 68 biimpi 
 |-  ( ( normop ` T ) = 0 -> sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) = 0 )
70 69 ad2antrr 
 |-  ( ( ( ( normop ` T ) = 0 /\ x e. ~H ) /\ ( T ` x ) =/= 0h ) -> sup ( { y | E. z e. ~H ( ( normh ` z ) <_ 1 /\ y = ( normh ` ( T ` z ) ) ) } , RR* , < ) = 0 )
71 65 70 breqtrd 
 |-  ( ( ( ( normop ` T ) = 0 /\ x e. ~H ) /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ 0 )
72 normcl 
 |-  ( ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) e. ~H -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. RR )
73 25 72 syl 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. RR )
74 0re 
 |-  0 e. RR
75 lenlt 
 |-  ( ( ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) e. RR /\ 0 e. RR ) -> ( ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ 0 <-> -. 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
76 73 74 75 sylancl 
 |-  ( ( x e. ~H /\ ( T ` x ) =/= 0h ) -> ( ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ 0 <-> -. 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
77 76 adantll 
 |-  ( ( ( ( normop ` T ) = 0 /\ x e. ~H ) /\ ( T ` x ) =/= 0h ) -> ( ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) <_ 0 <-> -. 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
78 71 77 mpbid 
 |-  ( ( ( ( normop ` T ) = 0 /\ x e. ~H ) /\ ( T ` x ) =/= 0h ) -> -. 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) )
79 78 ex 
 |-  ( ( ( normop ` T ) = 0 /\ x e. ~H ) -> ( ( T ` x ) =/= 0h -> -. 0 < ( normh ` ( ( 1 / ( normh ` x ) ) .h ( T ` x ) ) ) ) )
80 30 79 pm2.65d 
 |-  ( ( ( normop ` T ) = 0 /\ x e. ~H ) -> -. ( T ` x ) =/= 0h )
81 nne 
 |-  ( -. ( T ` x ) =/= 0h <-> ( T ` x ) = 0h )
82 80 81 sylib 
 |-  ( ( ( normop ` T ) = 0 /\ x e. ~H ) -> ( T ` x ) = 0h )
83 ho0val 
 |-  ( x e. ~H -> ( 0hop ` x ) = 0h )
84 83 adantl 
 |-  ( ( ( normop ` T ) = 0 /\ x e. ~H ) -> ( 0hop ` x ) = 0h )
85 82 84 eqtr4d 
 |-  ( ( ( normop ` T ) = 0 /\ x e. ~H ) -> ( T ` x ) = ( 0hop ` x ) )
86 85 ralrimiva 
 |-  ( ( normop ` T ) = 0 -> A. x e. ~H ( T ` x ) = ( 0hop ` x ) )
87 ffn 
 |-  ( T : ~H --> ~H -> T Fn ~H )
88 15 87 ax-mp 
 |-  T Fn ~H
89 ho0f 
 |-  0hop : ~H --> ~H
90 ffn 
 |-  ( 0hop : ~H --> ~H -> 0hop Fn ~H )
91 89 90 ax-mp 
 |-  0hop Fn ~H
92 eqfnfv 
 |-  ( ( T Fn ~H /\ 0hop Fn ~H ) -> ( T = 0hop <-> A. x e. ~H ( T ` x ) = ( 0hop ` x ) ) )
93 88 91 92 mp2an 
 |-  ( T = 0hop <-> A. x e. ~H ( T ` x ) = ( 0hop ` x ) )
94 86 93 sylibr 
 |-  ( ( normop ` T ) = 0 -> T = 0hop )
95 fveq2 
 |-  ( T = 0hop -> ( normop ` T ) = ( normop ` 0hop ) )
96 nmop0 
 |-  ( normop ` 0hop ) = 0
97 95 96 eqtrdi 
 |-  ( T = 0hop -> ( normop ` T ) = 0 )
98 94 97 impbii 
 |-  ( ( normop ` T ) = 0 <-> T = 0hop )