proposition: Theorem eqRat_terms : forall n1 d1 n2 d2, n1 = n2 -> posnatToNat d1 = posnatToNat d2 -> eqRat (RatIntro n1 d1) (RatIntro n2 d2).
proof: Proof. rattac. Qed.
imports: micromega.Lia List FCF.StdNat Arith Lia Setoid RelationClasses Coq.Classes.Morphisms