(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(****************************************************************************)
(* This contribution was updated for Coq V5.10 by the COQ workgroup.        *)
(* January 1995                                                             *)
(****************************************************************************)
(*                           Relations_2_facts.v                            *)
(****************************************************************************)
auto.
Qed.
auto.
Qed.
intros U R; red in |- *; intros x y H'; apply Rstar_n with y; auto.
Qed.

Theorem Rstar_contains_Rplus :
forall (U : Type) (R : Relation U), contains U (Rstar U R) (Rplus U R).