induction n; intuition; simpl in *.
intuition.
eapply leRat_trans.
eapply ratMult_leRat_compat.
eapply H.
eapply IHn.
trivial.
rewrite ratMult_1_l.
intuition.
Qed.

(* Specifications: *)
Lemma expRat_le : forall n1 n2 x,
x <= 1 ->
n2 >= n1 ->
expRat x n2 <= expRat x n1.