(*
Definition eqRat_setoid : Setoid_Theory Rat eqRat.
econstructor; red.
eapply eqRat_refl.
eapply eqRat_symm.
eapply eqRat_trans.
Defined.
*)

Add Parametric Relation : Rat leRat
  reflexivity proved by leRat_refl
  transitivity proved by leRat_trans
    as leRat_rel.Add Parametric Relation : Rat eqRat 
  reflexivity proved by eqRat_refl
  symmetry proved by eqRat_symm
  transitivity proved by eqRat_trans
  as eqRat_rel.Global Instance Subrelation_eq_le : subrelation eqRat leRat.

Theorem rat1_ne_rat0 : ~ (eqRat 1 0).