proposition: Lemma expRat_le : forall n1 n2 x, x <= 1 -> n2 >= n1 -> expRat x n2 <= expRat x n1.
proof: Proof. induction n1; intuition; simpl in *. eapply expRat_le_1; trivial. destruct n2; simpl. lia. eapply ratMult_leRat_compat. intuition. eapply IHn1. trivial. lia. Qed.
imports: micromega.Lia List FCF.StdNat Arith Lia Setoid RelationClasses Coq.Classes.Morphisms