proposition: Theorem rat_num_not_le : forall (d1 d2 : posnat), (RatIntro 1 d1 <= RatIntro 1 d2)%rat -> d1 < d2 -> False.
proof: Proof. intuition. rattac. Qed.
imports: micromega.Lia List FCF.StdNat Arith Lia Setoid RelationClasses Coq.Classes.Morphisms