induction n; intuition; simpl in *.
intuition.
eapply ratMult_leRat_compat; eauto.
Qed.

(* Specifications: *)
Lemma expRat_le' : forall n1 n2 r v,
expRat r n1 <= v ->
~ (1 <= r) ->
n2 >= n1 ->
expRat r n2 <= v.