auto.
Qed.

(* Specifications: *)
Theorem Witnesses :
forall (a b : Type) (p : Type -> Prop), p a \/ p b -> exists x : Type, p x.
Theorem Rplus_contains_R :
forall (U : Type) (R : Relation U), contains U (Rplus U R) R.
Theorem Rstar_contains_R :
forall (U : Type) (R : Relation U), contains U (Rstar U R) R.