From d5e2b54b22fcc4850888e0d04d9910fe78d6bbdb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 21 Feb 2007 17:31:37 +0000
Subject: Correction typo liée au commit 8779 (levait une anomalie)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9666 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/equality.ml          |  2 +-
 test-suite/success/rewrite.v | 12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/tactics/equality.ml b/tactics/equality.ml
index b7a428e2aa..a9a869d8f7 100644
--- a/tactics/equality.ml
+++ b/tactics/equality.ml
@@ -93,7 +93,7 @@ let general_rewrite_bindings_clause cls lft2rgt (c,l) gl =
       (* Original code. In particular, [splay_prod] performs delta-reduction. *)
       let env = pf_env gl in
       let sigma = project gl in 
-      let _,t = splay_prod env sigma t in
+      let _,t = splay_prod env sigma ctype in
 	match match_with_equation t with
 	  | None -> 
 	      if l = NoBindings
diff --git a/test-suite/success/rewrite.v b/test-suite/success/rewrite.v
index 9629b2132e..a11297ea90 100644
--- a/test-suite/success/rewrite.v
+++ b/test-suite/success/rewrite.v
@@ -17,3 +17,15 @@ intros n n' l l'.
  dependent rewrite (ax n n' l l').
 split; reflexivity.
 Qed.
+
+(* Used to raise an anomaly instead of an error in 8.1 *)
+(* Submitted by Y. Makarov *)
+
+Parameter N : Set.
+Parameter E : N -> N -> Prop.
+
+Axiom e : forall (A : Set) (EA : A -> A -> Prop) (a : A), EA a a.
+
+Theorem th : forall x : N, E x x.
+intro x. try rewrite e.
+Abort.
-- 
cgit v1.2.3