(* Submitted by Robert Schneck *)
Parameters A B C D : Prop.
(* Simplification of BZ#711 *)
Parameter f : true = false.
Goal let p := f in True.
intro p.
set (b := true) in *.
(* Check that it doesn't fail with an anomaly *)
(* Ultimately, adapt destruct to make it succeeding *)
try destruct b.
Abort.
(* Used to fail with error "n is used in conclusion" before revision 9447 *)
Goal forall n, n = S n.
induction S.
Abort.
(* Check that elimination with remaining evars do not raise an bad error message *)

Theorem Refl : forall P, P <-> P. tauto. Qed.