(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(****************************************************************************)
(* This contribution was updated for Coq V5.10 by the COQ workgroup.        *)
(* January 1995                                                             *)
(****************************************************************************)
(*                           Relations_3_facts.v                            *)
(****************************************************************************)

Theorem Rstar_imp_coherent :
forall (U : Type) (R : Relation U) (x y : U),
Rstar U R x y -> coherent U R x y.