src/HOL/Hyperreal/Transcendental.thy
changeset 17298 ad73fb6144cf
parent 17014 ad5ceb90877d
child 17318 bc1c75855f3d
equal deleted inserted replaced
17297:17256fe71aca 17298:ad73fb6144cf
  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"