Metamath Proof Explorer


Theorem nmcfnlbi

Description: A lower bound for the norm of a continuous linear functional. Theorem 3.5(ii) of Beran p. 99. (Contributed by NM, 14-Feb-2006) (New usage is discouraged.)

Ref Expression
Hypotheses nmcfnex.1 T LinFn
nmcfnex.2 T ContFn
Assertion nmcfnlbi A T A norm fn T norm A

Proof

Step Hyp Ref Expression
1 nmcfnex.1 T LinFn
2 nmcfnex.2 T ContFn
3 fveq2 A = 0 T A = T 0
4 1 lnfn0i T 0 = 0
5 3 4 eqtrdi A = 0 T A = 0
6 5 abs00bd A = 0 T A = 0
7 0le0 0 0
8 fveq2 A = 0 norm A = norm 0
9 norm0 norm 0 = 0
10 8 9 eqtrdi A = 0 norm A = 0
11 10 oveq2d A = 0 norm fn T norm A = norm fn T 0
12 1 2 nmcfnexi norm fn T
13 12 recni norm fn T
14 13 mul01i norm fn T 0 = 0
15 11 14 eqtr2di A = 0 0 = norm fn T norm A
16 7 15 breqtrid A = 0 0 norm fn T norm A
17 6 16 eqbrtrd A = 0 T A norm fn T norm A
18 17 adantl A A = 0 T A norm fn T norm A
19 1 lnfnfi T :
20 19 ffvelrni A T A
21 20 abscld A T A
22 21 adantr A ¬ A = 0 T A
23 22 recnd A ¬ A = 0 T A
24 normcl A norm A
25 24 adantr A ¬ A = 0 norm A
26 25 recnd A ¬ A = 0 norm A
27 norm-i A norm A = 0 A = 0
28 27 notbid A ¬ norm A = 0 ¬ A = 0
29 28 biimpar A ¬ A = 0 ¬ norm A = 0
30 29 neqned A ¬ A = 0 norm A 0
31 23 26 30 divrec2d A ¬ A = 0 T A norm A = 1 norm A T A
32 25 30 rereccld A ¬ A = 0 1 norm A
33 32 recnd A ¬ A = 0 1 norm A
34 simpl A ¬ A = 0 A
35 1 lnfnmuli 1 norm A A T 1 norm A A = 1 norm A T A
36 33 34 35 syl2anc A ¬ A = 0 T 1 norm A A = 1 norm A T A
37 36 fveq2d A ¬ A = 0 T 1 norm A A = 1 norm A T A
38 20 adantr A ¬ A = 0 T A
39 33 38 absmuld A ¬ A = 0 1 norm A T A = 1 norm A T A
40 df-ne A 0 ¬ A = 0
41 normgt0 A A 0 0 < norm A
42 40 41 bitr3id A ¬ A = 0 0 < norm A
43 42 biimpa A ¬ A = 0 0 < norm A
44 25 43 recgt0d A ¬ A = 0 0 < 1 norm A
45 0re 0
46 ltle 0 1 norm A 0 < 1 norm A 0 1 norm A
47 45 46 mpan 1 norm A 0 < 1 norm A 0 1 norm A
48 32 44 47 sylc A ¬ A = 0 0 1 norm A
49 32 48 absidd A ¬ A = 0 1 norm A = 1 norm A
50 49 oveq1d A ¬ A = 0 1 norm A T A = 1 norm A T A
51 37 39 50 3eqtrrd A ¬ A = 0 1 norm A T A = T 1 norm A A
52 31 51 eqtrd A ¬ A = 0 T A norm A = T 1 norm A A
53 hvmulcl 1 norm A A 1 norm A A
54 33 34 53 syl2anc A ¬ A = 0 1 norm A A
55 normcl 1 norm A A norm 1 norm A A
56 54 55 syl A ¬ A = 0 norm 1 norm A A
57 norm1 A A 0 norm 1 norm A A = 1
58 40 57 sylan2br A ¬ A = 0 norm 1 norm A A = 1
59 eqle norm 1 norm A A norm 1 norm A A = 1 norm 1 norm A A 1
60 56 58 59 syl2anc A ¬ A = 0 norm 1 norm A A 1
61 nmfnlb T : 1 norm A A norm 1 norm A A 1 T 1 norm A A norm fn T
62 19 61 mp3an1 1 norm A A norm 1 norm A A 1 T 1 norm A A norm fn T
63 54 60 62 syl2anc A ¬ A = 0 T 1 norm A A norm fn T
64 52 63 eqbrtrd A ¬ A = 0 T A norm A norm fn T
65 12 a1i A ¬ A = 0 norm fn T
66 ledivmul2 T A norm fn T norm A 0 < norm A T A norm A norm fn T T A norm fn T norm A
67 22 65 25 43 66 syl112anc A ¬ A = 0 T A norm A norm fn T T A norm fn T norm A
68 64 67 mpbid A ¬ A = 0 T A norm fn T norm A
69 18 68 pm2.61dan A T A norm fn T norm A