proposition: Theorem ratMult_leRat_compat : forall (r1 r2 r3 r4 : Rat), leRat r1 r2 -> leRat r3 r4 -> leRat (ratMult r1 r3) (ratMult r2 r4).
proof: Proof. rattac. nia. Qed.
imports: micromega.Lia List FCF.StdNat Arith Lia Setoid RelationClasses Coq.Classes.Morphisms