ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  dveflem Unicode version

Theorem dveflem 15876
Description: Derivative of the exponential function at 0. The key step in the proof is eftlub 12473, to show that  abs ( exp ( x )  - 
1  -  x )  <_  abs ( x ) ^ 2  x.  (
3  /  4 ). (Contributed by Mario Carneiro, 9-Aug-2014.) (Revised by Mario Carneiro, 28-Dec-2016.)
Assertion
Ref Expression
dveflem  |-  0
( CC  _D  exp ) 1

Proof of Theorem dveflem
Dummy variables  k  n  w  u  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 0cn 8318 . . 3  |-  0  e.  CC
2 eqid 2238 . . . . 5  |-  ( MetOpen `  ( abs  o.  -  )
)  =  ( MetOpen `  ( abs  o.  -  )
)
32cntoptop 15683 . . . 4  |-  ( MetOpen `  ( abs  o.  -  )
)  e.  Top
4 unicntopcntop 15692 . . . . 5  |-  CC  =  U. ( MetOpen `  ( abs  o. 
-  ) )
54ntrtop 15278 . . . 4  |-  ( (
MetOpen `  ( abs  o.  -  ) )  e. 
Top  ->  ( ( int `  ( MetOpen `  ( abs  o. 
-  ) ) ) `
 CC )  =  CC )
63, 5ax-mp 5 . . 3  |-  ( ( int `  ( MetOpen `  ( abs  o.  -  )
) ) `  CC )  =  CC
71, 6eleqtrri 2314 . 2  |-  0  e.  ( ( int `  ( MetOpen
`  ( abs  o.  -  ) ) ) `
 CC )
8 ax-1cn 8272 . . 3  |-  1  e.  CC
9 1rp 10068 . . . . . 6  |-  1  e.  RR+
10 rpmincl 12019 . . . . . 6  |-  ( ( x  e.  RR+  /\  1  e.  RR+ )  -> inf ( { x ,  1 } ,  RR ,  <  )  e.  RR+ )
119, 10mpan2 429 . . . . 5  |-  ( x  e.  RR+  -> inf ( { x ,  1 } ,  RR ,  <  )  e.  RR+ )
12 breq1 4133 . . . . . . . 8  |-  ( u  =  w  ->  (
u #  0  <->  w #  0
) )
1312elrab 2982 . . . . . . 7  |-  ( w  e.  { u  e.  CC  |  u #  0 }  <->  ( w  e.  CC  /\  w #  0 ) )
14 simprl 535 . . . . . . . . . . . . 13  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  ->  w  e.  CC )
1514subid1d 8627 . . . . . . . . . . . 12  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( w  -  0 )  =  w )
1615fveq2d 5699 . . . . . . . . . . 11  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( abs `  (
w  -  0 ) )  =  ( abs `  w ) )
1716breq1d 4140 . . . . . . . . . 10  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( abs `  (
w  -  0 ) )  < inf ( {
x ,  1 } ,  RR ,  <  )  <-> 
( abs `  w
)  < inf ( {
x ,  1 } ,  RR ,  <  ) ) )
1814abscld 11962 . . . . . . . . . . 11  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( abs `  w
)  e.  RR )
19 rpre 10071 . . . . . . . . . . . 12  |-  ( x  e.  RR+  ->  x  e.  RR )
2019adantr 276 . . . . . . . . . . 11  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  ->  x  e.  RR )
21 1red 8341 . . . . . . . . . . 11  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
1  e.  RR )
22 ltmininf 12016 . . . . . . . . . . 11  |-  ( ( ( abs `  w
)  e.  RR  /\  x  e.  RR  /\  1  e.  RR )  ->  (
( abs `  w
)  < inf ( {
x ,  1 } ,  RR ,  <  )  <-> 
( ( abs `  w
)  <  x  /\  ( abs `  w )  <  1 ) ) )
2318, 20, 21, 22syl3anc 1278 . . . . . . . . . 10  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( abs `  w
)  < inf ( {
x ,  1 } ,  RR ,  <  )  <-> 
( ( abs `  w
)  <  x  /\  ( abs `  w )  <  1 ) ) )
2417, 23bitrd 188 . . . . . . . . 9  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( abs `  (
w  -  0 ) )  < inf ( {
x ,  1 } ,  RR ,  <  )  <-> 
( ( abs `  w
)  <  x  /\  ( abs `  w )  <  1 ) ) )
25 eqid 2238 . . . . . . . . . . . . 13  |-  ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) )  =  ( z  e.  {
u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z
)  -  1 )  /  z ) )
26 fveq2 5695 . . . . . . . . . . . . . . 15  |-  ( z  =  w  ->  ( exp `  z )  =  ( exp `  w
) )
2726oveq1d 6100 . . . . . . . . . . . . . 14  |-  ( z  =  w  ->  (
( exp `  z
)  -  1 )  =  ( ( exp `  w )  -  1 ) )
28 id 19 . . . . . . . . . . . . . 14  |-  ( z  =  w  ->  z  =  w )
2927, 28oveq12d 6103 . . . . . . . . . . . . 13  |-  ( z  =  w  ->  (
( ( exp `  z
)  -  1 )  /  z )  =  ( ( ( exp `  w )  -  1 )  /  w ) )
30 simplr 533 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( w  e.  CC  /\  w #  0 ) )
3130, 13sylibr 134 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  w  e.  { u  e.  CC  |  u #  0 } )
32 efcl 12447 . . . . . . . . . . . . . . . 16  |-  ( w  e.  CC  ->  ( exp `  w )  e.  CC )
33 peano2cnm 8593 . . . . . . . . . . . . . . . 16  |-  ( ( exp `  w )  e.  CC  ->  (
( exp `  w
)  -  1 )  e.  CC )
3414, 32, 333syl 17 . . . . . . . . . . . . . . 15  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( exp `  w
)  -  1 )  e.  CC )
35 simprr 537 . . . . . . . . . . . . . . 15  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  ->  w #  0 )
3634, 14, 35divclapd 9122 . . . . . . . . . . . . . 14  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( ( exp `  w )  -  1 )  /  w )  e.  CC )
3736adantr 276 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( (
( exp `  w
)  -  1 )  /  w )  e.  CC )
3825, 29, 31, 37fvmptd3 5799 . . . . . . . . . . . 12  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( (
z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  =  ( ( ( exp `  w
)  -  1 )  /  w ) )
3938fvoveq1d 6107 . . . . . . . . . . 11  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  =  ( abs `  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) ) )
40 1cnd 8342 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  1  e.  CC )
4137, 40subcld 8638 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( (
( ( exp `  w
)  -  1 )  /  w )  - 
1 )  e.  CC )
4241abscld 11962 . . . . . . . . . . . 12  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  e.  RR )
43 simplrl 541 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  w  e.  CC )
4443abscld 11962 . . . . . . . . . . . 12  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  w )  e.  RR )
45 simpll 531 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  x  e.  RR+ )
4645rpred 10107 . . . . . . . . . . . 12  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  x  e.  RR )
47 abscl 11831 . . . . . . . . . . . . . . . . . 18  |-  ( w  e.  CC  ->  ( abs `  w )  e.  RR )
4847ad2antrr 492 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  w
)  e.  RR )
4932ad2antrr 492 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( exp `  w
)  e.  CC )
50 subcl 8526 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( exp `  w
)  e.  CC  /\  1  e.  CC )  ->  ( ( exp `  w
)  -  1 )  e.  CC )
5149, 8, 50sylancl 417 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( exp `  w
)  -  1 )  e.  CC )
52 simpll 531 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  ->  w  e.  CC )
53 simplr 533 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  ->  w #  0 )
5451, 52, 53divclapd 9122 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( exp `  w )  -  1 )  /  w )  e.  CC )
55 1cnd 8342 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
1  e.  CC )
5654, 55subcld 8638 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( ( exp `  w )  -  1 )  /  w )  -  1 )  e.  CC )
5756abscld 11962 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  (
( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  e.  RR )
5848, 57remulcld 8356 . . . . . . . . . . . . . . . 16  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
)  x.  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) ) )  e.  RR )
5948resqcld 11150 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
) ^ 2 )  e.  RR )
60 3re 9380 . . . . . . . . . . . . . . . . . 18  |-  3  e.  RR
61 4nn 9472 . . . . . . . . . . . . . . . . . 18  |-  4  e.  NN
62 nndivre 9342 . . . . . . . . . . . . . . . . . 18  |-  ( ( 3  e.  RR  /\  4  e.  NN )  ->  ( 3  /  4
)  e.  RR )
6360, 61, 62mp2an 430 . . . . . . . . . . . . . . . . 17  |-  ( 3  /  4 )  e.  RR
64 remulcl 8307 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( abs `  w
) ^ 2 )  e.  RR  /\  (
3  /  4 )  e.  RR )  -> 
( ( ( abs `  w ) ^ 2 )  x.  ( 3  /  4 ) )  e.  RR )
6559, 63, 64sylancl 417 . . . . . . . . . . . . . . . 16  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( abs `  w ) ^ 2 )  x.  ( 3  /  4 ) )  e.  RR )
6651, 52subcld 8638 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( exp `  w )  -  1 )  -  w )  e.  CC )
6766, 52, 53divcanap2d 9124 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w  x.  (
( ( ( exp `  w )  -  1 )  -  w )  /  w ) )  =  ( ( ( exp `  w )  -  1 )  -  w ) )
6851, 52, 52, 53divsubdirapd 9162 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( ( exp `  w )  -  1 )  -  w )  /  w
)  =  ( ( ( ( exp `  w
)  -  1 )  /  w )  -  ( w  /  w
) ) )
6952, 53dividapd 9118 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w  /  w
)  =  1 )
7069oveq2d 6101 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( ( exp `  w )  -  1 )  /  w )  -  (
w  /  w ) )  =  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) )
7168, 70eqtrd 2271 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( ( exp `  w )  -  1 )  -  w )  /  w
)  =  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) )
7271oveq2d 6101 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w  x.  (
( ( ( exp `  w )  -  1 )  -  w )  /  w ) )  =  ( w  x.  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) ) )
7349, 55, 52subsub4d 8669 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( exp `  w )  -  1 )  -  w )  =  ( ( exp `  w )  -  (
1  +  w ) ) )
74 addcl 8304 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( 1  e.  CC  /\  w  e.  CC )  ->  ( 1  +  w
)  e.  CC )
758, 52, 74sylancr 418 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 1  +  w
)  e.  CC )
76 2nn0 9584 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  2  e.  NN0
77 eqid 2238 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) )  =  ( n  e. 
NN0  |->  ( ( w ^ n )  / 
( ! `  n
) ) )
7877eftlcl 12471 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( w  e.  CC  /\  2  e.  NN0 )  ->  sum_ k  e.  ( ZZ>= ` 
2 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k )  e.  CC )
7952, 76, 78sylancl 417 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  ->  sum_ k  e.  ( ZZ>= ` 
2 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k )  e.  CC )
80 df-2 9365 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  2  =  ( 1  +  1 )
81 1nn0 9583 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  1  e.  NN0
82 1e0p1 9827 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  1  =  ( 0  +  1 )
83 0nn0 9582 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  0  e.  NN0
84 0cnd 8319 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
0  e.  CC )
8577efval2 12448 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( w  e.  CC  ->  ( exp `  w )  = 
sum_ k  e.  NN0  ( ( n  e. 
NN0  |->  ( ( w ^ n )  / 
( ! `  n
) ) ) `  k ) )
8685ad2antrr 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( exp `  w
)  =  sum_ k  e.  NN0  ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k ) )
87 nn0uz 9966 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  NN0  =  ( ZZ>= `  0 )
8887sumeq1i 12145 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  sum_ k  e.  NN0  ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k )  = 
sum_ k  e.  (
ZZ>= `  0 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
)
8986, 88eqtr2di 2288 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  ->  sum_ k  e.  ( ZZ>= ` 
0 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k )  =  ( exp `  w
) )
9089oveq2d 6101 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 0  +  sum_ k  e.  ( ZZ>= ` 
0 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k ) )  =  ( 0  +  ( exp `  w
) ) )
9149addlidd 8477 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 0  +  ( exp `  w ) )  =  ( exp `  w ) )
9290, 91eqtr2d 2272 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( exp `  w
)  =  ( 0  +  sum_ k  e.  (
ZZ>= `  0 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
) ) )
93 eft0val 12476 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( w  e.  CC  ->  (
( w ^ 0 )  /  ( ! `
 0 ) )  =  1 )
9493ad2antrr 492 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( w ^
0 )  /  ( ! `  0 )
)  =  1 )
9594oveq2d 6101 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 0  +  ( ( w ^ 0 )  /  ( ! `
 0 ) ) )  =  ( 0  +  1 ) )
9695, 82eqtr4di 2289 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 0  +  ( ( w ^ 0 )  /  ( ! `
 0 ) ) )  =  1 )
9777, 82, 83, 52, 84, 92, 96efsep 12474 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( exp `  w
)  =  ( 1  +  sum_ k  e.  (
ZZ>= `  1 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
) ) )
98 exp1 10995 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( w  e.  CC  ->  (
w ^ 1 )  =  w )
9998ad2antrr 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w ^ 1 )  =  w )
10099oveq1d 6100 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( w ^
1 )  /  ( ! `  1 )
)  =  ( w  /  ( ! ` 
1 ) ) )
101 fac1 11181 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ! `
 1 )  =  1
102101oveq2i 6096 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( w  /  ( ! ` 
1 ) )  =  ( w  /  1
)
103100, 102eqtrdi 2287 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( w ^
1 )  /  ( ! `  1 )
)  =  ( w  /  1 ) )
104 div1 9035 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( w  e.  CC  ->  (
w  /  1 )  =  w )
105104ad2antrr 492 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w  /  1
)  =  w )
106103, 105eqtrd 2271 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( w ^
1 )  /  ( ! `  1 )
)  =  w )
107106oveq2d 6101 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 1  +  ( ( w ^ 1 )  /  ( ! `
 1 ) ) )  =  ( 1  +  w ) )
10877, 80, 81, 52, 55, 97, 107efsep 12474 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( exp `  w
)  =  ( ( 1  +  w )  +  sum_ k  e.  (
ZZ>= `  2 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
) ) )
10975, 79, 108mvrladdd 8694 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( exp `  w
)  -  ( 1  +  w ) )  =  sum_ k  e.  (
ZZ>= `  2 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
) )
11073, 109eqtrd 2271 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( exp `  w )  -  1 )  -  w )  =  sum_ k  e.  (
ZZ>= `  2 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
) )
11167, 72, 1103eqtr3d 2279 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w  x.  (
( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  =  sum_ k  e.  (
ZZ>= `  2 ) ( ( n  e.  NN0  |->  ( ( w ^
n )  /  ( ! `  n )
) ) `  k
) )
112111fveq2d 5699 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  (
w  x.  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) ) )  =  ( abs `  sum_ k  e.  ( ZZ>= ` 
2 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k ) ) )
11352, 56absmuld 11975 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  (
w  x.  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) ) )  =  ( ( abs `  w )  x.  ( abs `  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) ) ) )
114112, 113eqtr3d 2273 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  sum_ k  e.  ( ZZ>= ` 
2 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k ) )  =  ( ( abs `  w )  x.  ( abs `  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) ) ) )
115 eqid 2238 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  NN0  |->  ( ( ( abs `  w
) ^ n )  /  ( ! `  n ) ) )  =  ( n  e. 
NN0  |->  ( ( ( abs `  w ) ^ n )  / 
( ! `  n
) ) )
116 eqid 2238 . . . . . . . . . . . . . . . . . . 19  |-  ( n  e.  NN0  |->  ( ( ( ( abs `  w
) ^ 2 )  /  ( ! ` 
2 ) )  x.  ( ( 1  / 
( 2  +  1 ) ) ^ n
) ) )  =  ( n  e.  NN0  |->  ( ( ( ( abs `  w ) ^ 2 )  / 
( ! `  2
) )  x.  (
( 1  /  (
2  +  1 ) ) ^ n ) ) )
117 2nn 9470 . . . . . . . . . . . . . . . . . . . 20  |-  2  e.  NN
118117a1i 9 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
2  e.  NN )
119 1red 8341 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
1  e.  RR )
120 simpr 110 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  w
)  <  1 )
12148, 119, 120ltled 8446 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  w
)  <_  1 )
12277, 115, 116, 118, 52, 121eftlub 12473 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  sum_ k  e.  ( ZZ>= ` 
2 ) ( ( n  e.  NN0  |->  ( ( w ^ n )  /  ( ! `  n ) ) ) `
 k ) )  <_  ( ( ( abs `  w ) ^ 2 )  x.  ( ( 2  +  1 )  /  (
( ! `  2
)  x.  2 ) ) ) )
123114, 122eqbrtrrd 4154 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
)  x.  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) ) )  <_ 
( ( ( abs `  w ) ^ 2 )  x.  ( ( 2  +  1 )  /  ( ( ! `
 2 )  x.  2 ) ) ) )
124 df-3 9366 . . . . . . . . . . . . . . . . . . 19  |-  3  =  ( 2  +  1 )
125 fac2 11183 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ! `
 2 )  =  2
126125oveq1i 6095 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ! `  2 )  x.  2 )  =  ( 2  x.  2 )
127 2t2e4 9461 . . . . . . . . . . . . . . . . . . . 20  |-  ( 2  x.  2 )  =  4
128126, 127eqtr2i 2260 . . . . . . . . . . . . . . . . . . 19  |-  4  =  ( ( ! `
 2 )  x.  2 )
129124, 128oveq12i 6097 . . . . . . . . . . . . . . . . . 18  |-  ( 3  /  4 )  =  ( ( 2  +  1 )  /  (
( ! `  2
)  x.  2 ) )
130129oveq2i 6096 . . . . . . . . . . . . . . . . 17  |-  ( ( ( abs `  w
) ^ 2 )  x.  ( 3  / 
4 ) )  =  ( ( ( abs `  w ) ^ 2 )  x.  ( ( 2  +  1 )  /  ( ( ! `
 2 )  x.  2 ) ) )
131123, 130breqtrrdi 4172 . . . . . . . . . . . . . . . 16  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
)  x.  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) ) )  <_ 
( ( ( abs `  w ) ^ 2 )  x.  ( 3  /  4 ) ) )
13263a1i 9 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 3  /  4
)  e.  RR )
13348sqge0d 11151 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
0  <_  ( ( abs `  w ) ^
2 ) )
134 1re 8325 . . . . . . . . . . . . . . . . . . . 20  |-  1  e.  RR
135 3lt4 9481 . . . . . . . . . . . . . . . . . . . . . 22  |-  3  <  4
136 4cn 9384 . . . . . . . . . . . . . . . . . . . . . . 23  |-  4  e.  CC
137136mulridi 8328 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 4  x.  1 )  =  4
138135, 137breqtrri 4157 . . . . . . . . . . . . . . . . . . . . 21  |-  3  <  ( 4  x.  1 )
139 4re 9383 . . . . . . . . . . . . . . . . . . . . . . 23  |-  4  e.  RR
140 4pos 9403 . . . . . . . . . . . . . . . . . . . . . . 23  |-  0  <  4
141139, 140pm3.2i 272 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 4  e.  RR  /\  0  <  4 )
142 ltdivmul 9208 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( 3  e.  RR  /\  1  e.  RR  /\  (
4  e.  RR  /\  0  <  4 ) )  ->  ( ( 3  /  4 )  <  1  <->  3  <  (
4  x.  1 ) ) )
14360, 134, 141, 142mp3an 1378 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( 3  /  4 )  <  1  <->  3  <  ( 4  x.  1 ) )
144138, 143mpbir 146 . . . . . . . . . . . . . . . . . . . 20  |-  ( 3  /  4 )  <  1
14563, 134, 144ltleii 8429 . . . . . . . . . . . . . . . . . . 19  |-  ( 3  /  4 )  <_ 
1
146145a1i 9 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( 3  /  4
)  <_  1 )
147132, 119, 59, 133, 146lemul2ad 9272 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( abs `  w ) ^ 2 )  x.  ( 3  /  4 ) )  <_  ( ( ( abs `  w ) ^ 2 )  x.  1 ) )
14848recnd 8354 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  w
)  e.  CC )
149148sqcld 11122 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
) ^ 2 )  e.  CC )
150149mulridd 8343 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( abs `  w ) ^ 2 )  x.  1 )  =  ( ( abs `  w ) ^ 2 ) )
151147, 150breqtrd 4156 . . . . . . . . . . . . . . . 16  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( ( abs `  w ) ^ 2 )  x.  ( 3  /  4 ) )  <_  ( ( abs `  w ) ^ 2 ) )
15258, 65, 59, 131, 151letrd 8451 . . . . . . . . . . . . . . 15  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
)  x.  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) ) )  <_ 
( ( abs `  w
) ^ 2 ) )
153148sqvald 11121 . . . . . . . . . . . . . . 15  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
) ^ 2 )  =  ( ( abs `  w )  x.  ( abs `  w ) ) )
154152, 153breqtrd 4156 . . . . . . . . . . . . . 14  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  w
)  x.  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) ) )  <_ 
( ( abs `  w
)  x.  ( abs `  w ) ) )
155 absgt0ap 11880 . . . . . . . . . . . . . . . . . 18  |-  ( w  e.  CC  ->  (
w #  0  <->  0  <  ( abs `  w ) ) )
156155ad2antrr 492 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( w #  0  <->  0  <  ( abs `  w
) ) )
15753, 156mpbid 147 . . . . . . . . . . . . . . . 16  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
0  <  ( abs `  w ) )
15848, 157elrpd 10104 . . . . . . . . . . . . . . 15  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  w
)  e.  RR+ )
15957, 48, 158lemul2d 10152 . . . . . . . . . . . . . 14  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( ( abs `  (
( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  <_  ( abs `  w
)  <->  ( ( abs `  w )  x.  ( abs `  ( ( ( ( exp `  w
)  -  1 )  /  w )  - 
1 ) ) )  <_  ( ( abs `  w )  x.  ( abs `  w ) ) ) )
160154, 159mpbird 167 . . . . . . . . . . . . 13  |-  ( ( ( w  e.  CC  /\  w #  0 )  /\  ( abs `  w )  <  1 )  -> 
( abs `  (
( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  <_  ( abs `  w
) )
161160ad2ant2l 512 . . . . . . . . . . . 12  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  <_  ( abs `  w ) )
162 simprl 535 . . . . . . . . . . . 12  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  w )  <  x
)
16342, 44, 46, 161, 162lelttrd 8452 . . . . . . . . . . 11  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  ( ( ( ( exp `  w )  -  1 )  /  w )  -  1 ) )  <  x
)
16439, 163eqbrtrd 4152 . . . . . . . . . 10  |-  ( ( ( x  e.  RR+  /\  ( w  e.  CC  /\  w #  0 ) )  /\  ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 ) )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  <  x
)
165164ex 115 . . . . . . . . 9  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( ( abs `  w )  <  x  /\  ( abs `  w
)  <  1 )  ->  ( abs `  (
( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) `  w )  -  1 ) )  <  x ) )
16624, 165sylbid 150 . . . . . . . 8  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( abs `  (
w  -  0 ) )  < inf ( {
x ,  1 } ,  RR ,  <  )  ->  ( abs `  (
( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) `  w )  -  1 ) )  <  x ) )
167166adantld 278 . . . . . . 7  |-  ( ( x  e.  RR+  /\  (
w  e.  CC  /\  w #  0 ) )  -> 
( ( w #  0  /\  ( abs `  (
w  -  0 ) )  < inf ( {
x ,  1 } ,  RR ,  <  ) )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  <  x
) )
16813, 167sylan2b 287 . . . . . 6  |-  ( ( x  e.  RR+  /\  w  e.  { u  e.  CC  |  u #  0 }
)  ->  ( (
w #  0  /\  ( abs `  ( w  - 
0 ) )  < inf ( { x ,  1 } ,  RR ,  <  ) )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  <  x
) )
169168ralrimiva 2623 . . . . 5  |-  ( x  e.  RR+  ->  A. w  e.  { u  e.  CC  |  u #  0 } 
( ( w #  0  /\  ( abs `  (
w  -  0 ) )  < inf ( {
x ,  1 } ,  RR ,  <  ) )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  <  x
) )
170 brimralrspcev 4190 . . . . 5  |-  ( (inf ( { x ,  1 } ,  RR ,  <  )  e.  RR+  /\ 
A. w  e.  {
u  e.  CC  |  u #  0 }  ( ( w #  0  /\  ( abs `  ( w  - 
0 ) )  < inf ( { x ,  1 } ,  RR ,  <  ) )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  <  x
) )  ->  E. y  e.  RR+  A. w  e. 
{ u  e.  CC  |  u #  0 } 
( ( w #  0  /\  ( abs `  (
w  -  0 ) )  <  y )  ->  ( abs `  (
( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) `  w )  -  1 ) )  <  x ) )
17111, 169, 170syl2anc 415 . . . 4  |-  ( x  e.  RR+  ->  E. y  e.  RR+  A. w  e. 
{ u  e.  CC  |  u #  0 } 
( ( w #  0  /\  ( abs `  (
w  -  0 ) )  <  y )  ->  ( abs `  (
( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) `  w )  -  1 ) )  <  x ) )
172171rgen 2603 . . 3  |-  A. x  e.  RR+  E. y  e.  RR+  A. w  e.  {
u  e.  CC  |  u #  0 }  ( ( w #  0  /\  ( abs `  ( w  - 
0 ) )  < 
y )  ->  ( abs `  ( ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) `  w )  -  1 ) )  <  x
)
173 elrabi 2979 . . . . . . . . . 10  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  z  e.  CC )
174 efcl 12447 . . . . . . . . . 10  |-  ( z  e.  CC  ->  ( exp `  z )  e.  CC )
175173, 174syl 14 . . . . . . . . 9  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  ( exp `  z )  e.  CC )
176 1cnd 8342 . . . . . . . . 9  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  1  e.  CC )
177175, 176subcld 8638 . . . . . . . 8  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  ( ( exp `  z )  - 
1 )  e.  CC )
178 breq1 4133 . . . . . . . . . 10  |-  ( u  =  z  ->  (
u #  0  <->  z #  0
) )
179178elrab 2982 . . . . . . . . 9  |-  ( z  e.  { u  e.  CC  |  u #  0 }  <->  ( z  e.  CC  /\  z #  0 ) )
180179simprbi 275 . . . . . . . 8  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  z #  0
)
181177, 173, 180divclapd 9122 . . . . . . 7  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  ( (
( exp `  z
)  -  1 )  /  z )  e.  CC )
18225, 181fmpti 5860 . . . . . 6  |-  ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) : { u  e.  CC  |  u #  0 } --> CC
183182a1i 9 . . . . 5  |-  ( T. 
->  ( z  e.  {
u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z
)  -  1 )  /  z ) ) : { u  e.  CC  |  u #  0 } --> CC )
184 apsscn 8977 . . . . . 6  |-  { u  e.  CC  |  u #  0 }  C_  CC
185184a1i 9 . . . . 5  |-  ( T. 
->  { u  e.  CC  |  u #  0 }  C_  CC )
186 0cnd 8319 . . . . 5  |-  ( T. 
->  0  e.  CC )
187183, 185, 186ellimc3ap 15811 . . . 4  |-  ( T. 
->  ( 1  e.  ( ( z  e.  {
u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z
)  -  1 )  /  z ) ) lim
CC  0 )  <->  ( 1  e.  CC  /\  A. x  e.  RR+  E. y  e.  RR+  A. w  e. 
{ u  e.  CC  |  u #  0 } 
( ( w #  0  /\  ( abs `  (
w  -  0 ) )  <  y )  ->  ( abs `  (
( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) `  w )  -  1 ) )  <  x ) ) ) )
188187mptru 1411 . . 3  |-  ( 1  e.  ( ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) lim CC  0 )  <->  ( 1  e.  CC  /\  A. x  e.  RR+  E. y  e.  RR+  A. w  e. 
{ u  e.  CC  |  u #  0 } 
( ( w #  0  /\  ( abs `  (
w  -  0 ) )  <  y )  ->  ( abs `  (
( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) `  w )  -  1 ) )  <  x ) ) )
1898, 172, 188mpbir2an 955 . 2  |-  1  e.  ( ( z  e. 
{ u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  /  z ) ) lim CC  0 )
1902cntoptopon 15682 . . . . 5  |-  ( MetOpen `  ( abs  o.  -  )
)  e.  (TopOn `  CC )
191190toponrestid 15171 . . . 4  |-  ( MetOpen `  ( abs  o.  -  )
)  =  ( (
MetOpen `  ( abs  o.  -  ) )t  CC )
192173subid1d 8627 . . . . . . 7  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  ( z  -  0 )  =  z )
193192oveq2d 6101 . . . . . 6  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  ( (
( exp `  z
)  -  ( exp `  0 ) )  /  ( z  - 
0 ) )  =  ( ( ( exp `  z )  -  ( exp `  0 ) )  /  z ) )
194 ef0 12455 . . . . . . . 8  |-  ( exp `  0 )  =  1
195194oveq2i 6096 . . . . . . 7  |-  ( ( exp `  z )  -  ( exp `  0
) )  =  ( ( exp `  z
)  -  1 )
196195oveq1i 6095 . . . . . 6  |-  ( ( ( exp `  z
)  -  ( exp `  0 ) )  /  z )  =  ( ( ( exp `  z )  -  1 )  /  z )
197193, 196eqtr2di 2288 . . . . 5  |-  ( z  e.  { u  e.  CC  |  u #  0 }  ->  ( (
( exp `  z
)  -  1 )  /  z )  =  ( ( ( exp `  z )  -  ( exp `  0 ) )  /  ( z  - 
0 ) ) )
198197mpteq2ia 4217 . . . 4  |-  ( z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) )  =  ( z  e.  {
u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z
)  -  ( exp `  0 ) )  /  ( z  - 
0 ) ) )
199 ssidd 3269 . . . 4  |-  ( T. 
->  CC  C_  CC )
200 eff 12446 . . . . 5  |-  exp : CC
--> CC
201200a1i 9 . . . 4  |-  ( T. 
->  exp : CC --> CC )
202191, 2, 198, 199, 201, 199eldvap 15832 . . 3  |-  ( T. 
->  ( 0 ( CC 
_D  exp ) 1  <->  (
0  e.  ( ( int `  ( MetOpen `  ( abs  o.  -  )
) ) `  CC )  /\  1  e.  ( ( z  e.  {
u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z
)  -  1 )  /  z ) ) lim
CC  0 ) ) ) )
203202mptru 1411 . 2  |-  ( 0 ( CC  _D  exp ) 1  <->  ( 0  e.  ( ( int `  ( MetOpen `  ( abs  o. 
-  ) ) ) `
 CC )  /\  1  e.  ( (
z  e.  { u  e.  CC  |  u #  0 }  |->  ( ( ( exp `  z )  -  1 )  / 
z ) ) lim CC  0 ) ) )
2047, 189, 203mpbir2an 955 1  |-  0
( CC  _D  exp ) 1
Colors of variables:    wff set class
This proof depends on syntax axioms:    -> wi 4    /\ wa 104    <-> wb 105    = wceq 1402   T. wtru 1403    e. wcel 2209   A.wral 2528   E.wrex 2529   {crab 2532    C_ wss 3220   {cpr 3710   class class class wbr 4130    |-> cmpt 4192    o. ccom 4778   -->wf 5373   ` cfv 5377  (class class class)co 6085  infcinf 7323   CCcc 8177   RRcr 8178   0cc0 8179   1c1 8180    + caddc 8182    x. cmul 8184    < clt 8360    <_ cle 8361    - cmin 8498   # cap 8911    / cdiv 9004   NNcn 9306   2c2 9357   3c3 9358   4c4 9359   NN0cn0 9567   ZZ>=cuz 9930   RR+crp 10064   ^cexp 10988   !cfa 11177   abscabs 11777   sum_csu 12135   expce 12425   MetOpencmopn 14927   Topctop 15147   intcnt 15243   lim CC climc 15804    _D cdv 15805
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4246  ax-sep 4249  ax-nul 4259  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-iinf 4735  ax-cnex 8270  ax-resscn 8271  ax-1cn 8272  ax-1re 8273  ax-icn 8274  ax-addcl 8275  ax-addrcl 8276  ax-mulcl 8277  ax-mulrcl 8278  ax-addcom 8279  ax-mulcom 8280  ax-addass 8281  ax-mulass 8282  ax-distr 8283  ax-i2m1 8284  ax-0lt1 8285  ax-1rid 8286  ax-0id 8287  ax-rnegex 8288  ax-precex 8289  ax-cnre 8290  ax-pre-ltirr 8291  ax-pre-ltwlin 8292  ax-pre-lttrn 8293  ax-pre-apti 8294  ax-pre-ltadd 8295  ax-pre-mulgt0 8296  ax-pre-mulext 8297  ax-arch 8298  ax-caucvg 8299
This proof depends on definitions:  df-bi 117  df-stab 843  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rmo 2536  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-if 3639  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-br 4131  df-opab 4193  df-mpt 4194  df-tr 4230  df-id 4438  df-po 4441  df-iso 4442  df-iord 4511  df-on 4513  df-ilim 4514  df-suc 4516  df-iom 4738  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-ima 4787  df-iota 5337  df-fun 5379  df-fn 5380  df-f 5381  df-f1 5382  df-fo 5383  df-f1o 5384  df-fv 5385  df-isom 5386  df-riota 6038  df-ov 6088  df-oprab 6089  df-mpo 6090  df-1st 6374  df-2nd 6375  df-recs 6576  df-irdg 6641  df-frec 6662  df-1o 6687  df-oadd 6691  df-er 6807  df-map 6924  df-pm 6925  df-en 7023  df-dom 7024  df-fin 7025  df-sup 7324  df-inf 7325  df-pnf 8362  df-mnf 8363  df-xr 8364  df-ltxr 8365  df-le 8366  df-sub 8500  df-neg 8501  df-reap 8905  df-ap 8912  df-div 9005  df-inn 9307  df-2 9365  df-3 9366  df-4 9367  df-n0 9568  df-z 9649  df-uz 9931  df-q 10029  df-rp 10065  df-xneg 10184  df-xadd 10185  df-ico 10306  df-fz 10422  df-fzo 10560  df-seqfrec 10898  df-exp 10989  df-fac 11178  df-ihash 11229  df-shft 11594  df-cj 11621  df-re 11622  df-im 11623  df-rsqrt 11778  df-abs 11779  df-clim 12061  df-sumdc 12136  df-ef 12431  df-rest 13644  df-topgen 13663  df-psmet 14929  df-xmet 14930  df-met 14931  df-bl 14932  df-mopn 14933  df-top 15148  df-topon 15161  df-bases 15193  df-ntr 15246  df-limced 15806  df-dvap 15807
This theorem is used by:  dvef  15877
  Copyright terms: Public domain W3C validator