intros n0 H' H'0; replace 0%R with (e * 0)%R; auto with real.
Qed.
Hint Resolve pow_lt: real.

(* Specifications: *)
Theorem Rlt_pow_R1 :
forall (e : R) (n : nat), (1 < e)%R -> 0 < n -> (1 < e ^ n)%R.
Theorem Rlt_pow_R1 :
forall (e : R) (n : nat), (1 < e)%R -> 0 < n -> (1 < e ^ n)%R.