rattac.
eapply mult_le_compat; eauto.
Qed.

(* Specifications: *)
Theorem eqRat_terms : forall n1 d1 n2 d2,
n1 = n2 ->
posnatToNat d1 = posnatToNat d2 ->
eqRat (RatIntro n1 d1) (RatIntro n2 d2).