equal
deleted
inserted
replaced
2471 lemma lemma_DERIV_ln: |
2471 lemma lemma_DERIV_ln: |
2472 "DERIV ln z :> l ==> DERIV (%x. exp (ln x)) z :> exp (ln z) * l" |
2472 "DERIV ln z :> l ==> DERIV (%x. exp (ln x)) z :> exp (ln z) * l" |
2473 by (erule DERIV_fun_exp) |
2473 by (erule DERIV_fun_exp) |
2474 |
2474 |
2475 lemma STAR_exp_ln: "0 < z ==> ( *f* (%x. exp (ln x))) z = z" |
2475 lemma STAR_exp_ln: "0 < z ==> ( *f* (%x. exp (ln x))) z = z" |
2476 apply (rule_tac z = z in eq_Abs_hypreal) |
2476 apply (rule_tac z = z in eq_Abs_star) |
2477 apply (auto simp add: starfun hypreal_zero_def hypreal_less) |
2477 apply (auto simp add: starfun hypreal_zero_def hypreal_less) |
2478 done |
2478 done |
2479 |
2479 |
2480 lemma hypreal_add_Infinitesimal_gt_zero: |
2480 lemma hypreal_add_Infinitesimal_gt_zero: |
2481 "[|e : Infinitesimal; 0 < x |] ==> 0 < hypreal_of_real x + e" |
2481 "[|e : Infinitesimal; 0 < x |] ==> 0 < hypreal_of_real x + e" |