discriminate.
case (mult_lemma2 x (power x n) H);auto.
Qed.

(* Specifications: *)
(** if 1<p and 0<m then p^m>1 *)
Lemma power_lt : forall (p m:nat),(1<p)->(0<m)->1<(power p m).
induction m;simpl;try omega;intros.