Instance RatRel_trans : 
  forall (R : Rat -> Rat -> Prop),
    RatRel R -> Transitive R.Instance RatRel_flip : 
  forall R,
    RatRel R ->
    RatRel (Basics.flip R).(* The class includes equality and inequality. *)

Instance eqRat_RatRel : RatRel eqRat.Instance leRat_RatRel : RatRel leRat.

Theorem evalDist_irr_l : forall (A B : Set)(c : Comp A)(f : A -> Comp B)(y : B) rel v, RatRel rel -> well_formed_comp c -> (forall x, In x (getSupport c) -> rel (evalDist (f x) y) v) -> rel (evalDist (Bind c f) y) v.