Metamath Proof Explorer


Theorem nmblolbi

Description: A lower bound for the norm of a bounded linear operator. (Contributed by NM, 10-Dec-2007) (New usage is discouraged.)

Ref Expression
Hypotheses nmblolbi.1 โŠข ๐‘‹ = ( BaseSet โ€˜ ๐‘ˆ )
nmblolbi.4 โŠข ๐ฟ = ( normCV โ€˜ ๐‘ˆ )
nmblolbi.5 โŠข ๐‘€ = ( normCV โ€˜ ๐‘Š )
nmblolbi.6 โŠข ๐‘ = ( ๐‘ˆ normOpOLD ๐‘Š )
nmblolbi.7 โŠข ๐ต = ( ๐‘ˆ BLnOp ๐‘Š )
nmblolbi.u โŠข ๐‘ˆ โˆˆ NrmCVec
nmblolbi.w โŠข ๐‘Š โˆˆ NrmCVec
Assertion nmblolbi ( ( ๐‘‡ โˆˆ ๐ต โˆง ๐ด โˆˆ ๐‘‹ ) โ†’ ( ๐‘€ โ€˜ ( ๐‘‡ โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ ๐‘‡ ) ยท ( ๐ฟ โ€˜ ๐ด ) ) )

Proof

Step Hyp Ref Expression
1 nmblolbi.1 โŠข ๐‘‹ = ( BaseSet โ€˜ ๐‘ˆ )
2 nmblolbi.4 โŠข ๐ฟ = ( normCV โ€˜ ๐‘ˆ )
3 nmblolbi.5 โŠข ๐‘€ = ( normCV โ€˜ ๐‘Š )
4 nmblolbi.6 โŠข ๐‘ = ( ๐‘ˆ normOpOLD ๐‘Š )
5 nmblolbi.7 โŠข ๐ต = ( ๐‘ˆ BLnOp ๐‘Š )
6 nmblolbi.u โŠข ๐‘ˆ โˆˆ NrmCVec
7 nmblolbi.w โŠข ๐‘Š โˆˆ NrmCVec
8 fveq1 โŠข ( ๐‘‡ = if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ†’ ( ๐‘‡ โ€˜ ๐ด ) = ( if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ€˜ ๐ด ) )
9 8 fveq2d โŠข ( ๐‘‡ = if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ†’ ( ๐‘€ โ€˜ ( ๐‘‡ โ€˜ ๐ด ) ) = ( ๐‘€ โ€˜ ( if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ€˜ ๐ด ) ) )
10 fveq2 โŠข ( ๐‘‡ = if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ†’ ( ๐‘ โ€˜ ๐‘‡ ) = ( ๐‘ โ€˜ if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) ) )
11 10 oveq1d โŠข ( ๐‘‡ = if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ†’ ( ( ๐‘ โ€˜ ๐‘‡ ) ยท ( ๐ฟ โ€˜ ๐ด ) ) = ( ( ๐‘ โ€˜ if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) ) ยท ( ๐ฟ โ€˜ ๐ด ) ) )
12 9 11 breq12d โŠข ( ๐‘‡ = if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ†’ ( ( ๐‘€ โ€˜ ( ๐‘‡ โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ ๐‘‡ ) ยท ( ๐ฟ โ€˜ ๐ด ) ) โ†” ( ๐‘€ โ€˜ ( if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) ) ยท ( ๐ฟ โ€˜ ๐ด ) ) ) )
13 12 imbi2d โŠข ( ๐‘‡ = if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ†’ ( ( ๐ด โˆˆ ๐‘‹ โ†’ ( ๐‘€ โ€˜ ( ๐‘‡ โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ ๐‘‡ ) ยท ( ๐ฟ โ€˜ ๐ด ) ) ) โ†” ( ๐ด โˆˆ ๐‘‹ โ†’ ( ๐‘€ โ€˜ ( if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) ) ยท ( ๐ฟ โ€˜ ๐ด ) ) ) ) )
14 eqid โŠข ( ๐‘ˆ 0op ๐‘Š ) = ( ๐‘ˆ 0op ๐‘Š )
15 14 5 0blo โŠข ( ( ๐‘ˆ โˆˆ NrmCVec โˆง ๐‘Š โˆˆ NrmCVec ) โ†’ ( ๐‘ˆ 0op ๐‘Š ) โˆˆ ๐ต )
16 6 7 15 mp2an โŠข ( ๐‘ˆ 0op ๐‘Š ) โˆˆ ๐ต
17 16 elimel โŠข if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โˆˆ ๐ต
18 1 2 3 4 5 6 7 17 nmblolbii โŠข ( ๐ด โˆˆ ๐‘‹ โ†’ ( ๐‘€ โ€˜ ( if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ if ( ๐‘‡ โˆˆ ๐ต , ๐‘‡ , ( ๐‘ˆ 0op ๐‘Š ) ) ) ยท ( ๐ฟ โ€˜ ๐ด ) ) )
19 13 18 dedth โŠข ( ๐‘‡ โˆˆ ๐ต โ†’ ( ๐ด โˆˆ ๐‘‹ โ†’ ( ๐‘€ โ€˜ ( ๐‘‡ โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ ๐‘‡ ) ยท ( ๐ฟ โ€˜ ๐ด ) ) ) )
20 19 imp โŠข ( ( ๐‘‡ โˆˆ ๐ต โˆง ๐ด โˆˆ ๐‘‹ ) โ†’ ( ๐‘€ โ€˜ ( ๐‘‡ โ€˜ ๐ด ) ) โ‰ค ( ( ๐‘ โ€˜ ๐‘‡ ) ยท ( ๐ฟ โ€˜ ๐ด ) ) )