Imported Upstream version 8.2~beta3+dfsgupstream/8.2.beta3+dfsg

1 files changed, 8 insertions, 0 deletions

diff --git a/test-suite/failure/rewrite_in_hyp2.v b/test-suite/failure/rewrite_in_hyp2.v
new file mode 100644
index 00000000..a32037a2
--- /dev/null
+++ b/test-suite/failure/rewrite_in_hyp2.v
@@ -0,0 +1,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.