proposition: Lemma ratMult_ratAdd_cd : forall r n (d : posnat), r + r * (RatIntro n d) == r * (RatIntro (d + n)%nat d).
proof: Proof. intuition. unfold ratAdd, ratMult. rattac. Qed.
imports: micromega.Lia List FCF.StdNat Arith Lia Setoid RelationClasses Coq.Classes.Morphisms