(* Contribution to the Coq Library   V6.3 (July 1999)                    *)
(****************************************************************************)
(* This contribution was updated for Coq V5.10 by the COQ workgroup.        *)
(* January 1995                                                             *)
(****************************************************************************)
(*                                ex1_auto.v                                *)
(****************************************************************************)
auto.
Qed.
intros A B H'; elim H'; auto.
Qed.
intros A B H'; elim H'; auto.
Qed.
auto.
Qed.
auto.
Qed.
intros x y z t H'; elim H'.
intros H'0 H'1 H'2; elim H'2.
auto.
Qed.
auto.
Qed.
intros a b p h; elim h;
[ intro H'; clear h; try exact H' | clear h; intro H' ].
exists a; try assumption.
exists b; try assumption.
Qed.
intros A R H' H'0 x H'1; try assumption.
elim H'1; intros y E; clear H'1; try exact E.
apply H' with y; auto.
Qed.
unfold not in |- *; auto.
Qed.

Theorem mini_cases : forall x y : Prop, (x \/ ~ y) /\ y -> x.