Metamath Proof Explorer


Theorem dvexp3

Description: Derivative of an exponential of integer exponent. (Contributed by Mario Carneiro, 26-Feb-2015)

Ref Expression
Assertion dvexp3 N dx 0 x N d x = x 0 N x N 1

Proof

Step Hyp Ref Expression
1 elznn0nn N N 0 N N
2 cnelprrecn
3 2 a1i N 0
4 expcl x N 0 x N
5 4 ancoms N 0 x x N
6 c0ex 0 V
7 ovex N x N 1 V
8 6 7 ifex if N = 0 0 N x N 1 V
9 8 a1i N 0 x if N = 0 0 N x N 1 V
10 dvexp2 N 0 dx x N d x = x if N = 0 0 N x N 1
11 difssd N 0 0
12 eqid TopOpen fld = TopOpen fld
13 12 cnfldtopon TopOpen fld TopOn
14 13 toponrestid TopOpen fld = TopOpen fld 𝑡
15 cnn0opn 0 TopOpen fld
16 15 a1i N 0 0 TopOpen fld
17 3 5 9 10 11 14 12 16 dvmptres N 0 dx 0 x N d x = x 0 if N = 0 0 N x N 1
18 ifid if N = 0 N x N 1 N x N 1 = N x N 1
19 id N = 0 N = 0
20 oveq1 N = 0 N 1 = 0 1
21 20 oveq2d N = 0 x N 1 = x 0 1
22 19 21 oveq12d N = 0 N x N 1 = 0 x 0 1
23 eldifsn x 0 x x 0
24 0z 0
25 peano2zm 0 0 1
26 24 25 ax-mp 0 1
27 expclz x x 0 0 1 x 0 1
28 26 27 mp3an3 x x 0 x 0 1
29 23 28 sylbi x 0 x 0 1
30 29 adantl N 0 x 0 x 0 1
31 30 mul02d N 0 x 0 0 x 0 1 = 0
32 22 31 sylan9eqr N 0 x 0 N = 0 N x N 1 = 0
33 32 ifeq1da N 0 x 0 if N = 0 N x N 1 N x N 1 = if N = 0 0 N x N 1
34 18 33 eqtr3id N 0 x 0 N x N 1 = if N = 0 0 N x N 1
35 34 mpteq2dva N 0 x 0 N x N 1 = x 0 if N = 0 0 N x N 1
36 17 35 eqtr4d N 0 dx 0 x N d x = x 0 N x N 1
37 eldifi x 0 x
38 37 adantl N N x 0 x
39 simpll N N x 0 N
40 39 recnd N N x 0 N
41 nnnn0 N N 0
42 41 ad2antlr N N x 0 N 0
43 expneg2 x N N 0 x N = 1 x N
44 38 40 42 43 syl3anc N N x 0 x N = 1 x N
45 44 mpteq2dva N N x 0 x N = x 0 1 x N
46 45 oveq2d N N dx 0 x N d x = dx 0 1 x N d x
47 2 a1i N N
48 eldifsni x 0 x 0
49 48 adantl N N x 0 x 0
50 nnz N N
51 50 ad2antlr N N x 0 N
52 38 49 51 expclzd N N x 0 x N
53 38 49 51 expne0d N N x 0 x N 0
54 eldifsn x N 0 x N x N 0
55 52 53 54 sylanbrc N N x 0 x N 0
56 ovex -N x - N - 1 V
57 56 a1i N N x 0 -N x - N - 1 V
58 eldifsn y 0 y y 0
59 58 bilani N N y 0 y y 0
60 reccl y y 0 1 y
61 59 60 syl N N y 0 1 y
62 negex 1 y 2 V
63 62 a1i N N y 0 1 y 2 V
64 simpr N N x x
65 41 ad2antlr N N x N 0
66 64 65 expcld N N x x N
67 56 a1i N N x -N x - N - 1 V
68 dvexp N dx x N d x = x -N x - N - 1
69 68 adantl N N dx x N d x = x -N x - N - 1
70 difssd N N 0
71 15 a1i N N 0 TopOpen fld
72 47 66 67 69 70 14 12 71 dvmptres N N dx 0 x N d x = x 0 -N x - N - 1
73 ax-1cn 1
74 dvrec 1 dy 0 1 y d y = y 0 1 y 2
75 73 74 mp1i N N dy 0 1 y d y = y 0 1 y 2
76 oveq2 y = x N 1 y = 1 x N
77 oveq1 y = x N y 2 = x N 2
78 77 oveq2d y = x N 1 y 2 = 1 x N 2
79 78 negeqd y = x N 1 y 2 = 1 x N 2
80 47 47 55 57 61 63 72 75 76 79 dvmptco N N dx 0 1 x N d x = x 0 1 x N 2 -N x - N - 1
81 2z 2
82 81 a1i N N x 0 2
83 expmulz x x 0 N 2 x -N 2 = x N 2
84 38 49 51 82 83 syl22anc N N x 0 x -N 2 = x N 2
85 84 eqcomd N N x 0 x N 2 = x -N 2
86 85 oveq2d N N x 0 1 x N 2 = 1 x -N 2
87 86 negeqd N N x 0 1 x N 2 = 1 x -N 2
88 peano2zm N - N - 1
89 51 88 syl N N x 0 - N - 1
90 38 49 89 expclzd N N x 0 x - N - 1
91 40 90 mulneg1d N N x 0 -N x - N - 1 = N x - N - 1
92 87 91 oveq12d N N x 0 1 x N 2 -N x - N - 1 = 1 x -N 2 N x - N - 1
93 zmulcl N 2 -N 2
94 51 81 93 sylancl N N x 0 -N 2
95 38 49 94 expclzd N N x 0 x -N 2
96 38 49 94 expne0d N N x 0 x -N 2 0
97 95 96 reccld N N x 0 1 x -N 2
98 40 90 mulcld N N x 0 N x - N - 1
99 97 98 mul2negd N N x 0 1 x -N 2 N x - N - 1 = 1 x -N 2 N x - N - 1
100 97 40 90 mul12d N N x 0 1 x -N 2 N x - N - 1 = N 1 x -N 2 x - N - 1
101 38 49 94 89 expsubd N N x 0 x -N - 1 - -N 2 = x - N - 1 x -N 2
102 nncn N N
103 102 ad2antlr N N x 0 N
104 73 a1i N N x 0 1
105 94 zcnd N N x 0 -N 2
106 103 104 105 sub32d N N x 0 -N - 1 - -N 2 = -N - -N 2 - 1
107 103 times2d N N x 0 -N 2 = - N + -N
108 103 40 negsubd N N x 0 - N + -N = - N - N
109 107 108 eqtrd N N x 0 -N 2 = - N - N
110 109 oveq2d N N x 0 - N - -N 2 = - N - - N - N
111 103 40 nncand N N x 0 - N - - N - N = N
112 110 111 eqtrd N N x 0 - N - -N 2 = N
113 112 oveq1d N N x 0 -N - -N 2 - 1 = N 1
114 106 113 eqtrd N N x 0 -N - 1 - -N 2 = N 1
115 114 oveq2d N N x 0 x -N - 1 - -N 2 = x N 1
116 90 95 96 divrec2d N N x 0 x - N - 1 x -N 2 = 1 x -N 2 x - N - 1
117 101 115 116 3eqtr3rd N N x 0 1 x -N 2 x - N - 1 = x N 1
118 117 oveq2d N N x 0 N 1 x -N 2 x - N - 1 = N x N 1
119 100 118 eqtrd N N x 0 1 x -N 2 N x - N - 1 = N x N 1
120 92 99 119 3eqtrd N N x 0 1 x N 2 -N x - N - 1 = N x N 1
121 120 mpteq2dva N N x 0 1 x N 2 -N x - N - 1 = x 0 N x N 1
122 46 80 121 3eqtrd N N dx 0 x N d x = x 0 N x N 1
123 36 122 jaoi N 0 N N dx 0 x N d x = x 0 N x N 1
124 1 123 sylbi N dx 0 x N d x = x 0 N x N 1