summaryrefslogtreecommitdiff
path: root/test-suite/failure/rewrite_in_hyp2.v
blob: a32037a21a254ea9045b549a64009da19705f933 (plain)
1
2
3
4
5
6
7
8
(* Until revision 10221, rewriting in hypotheses of the form 
   "(fun x => phi(x)) t" with "t" not rewritable used to behave as a
   beta-normalization tactic instead of raising the expected message
   "nothing to rewrite" *)

Goal forall b, S b = O -> (fun a => 0 = (S a)) b -> True.
  intros b H H0.
  rewrite H in H0.