From fc1b6a37dd19c2e43f6a50a6e432c24d249e8fae Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 2 Mar 2006 18:09:27 +0000
Subject: Correction bug #1097 (dû à une typo...)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8114 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/autorewrite.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml
index 469fc5e42c..29ae191b39 100644
--- a/tactics/autorewrite.ml
+++ b/tactics/autorewrite.ml
@@ -153,7 +153,7 @@ let subst_hintrewrite (_,subst,(rbase,list as node)) =
      typ (* dummy value, it will be recomputed by cache_hintrewrite *) in
     let t' = Tacinterp.subst_tactic subst t in
       if cst == cst' && t == t' then pair else
-	(cst',typ',b,t)
+	(cst',typ',b,t')
   in
   let list' = list_smartmap subst_first list in
     if list' == list then node else
-- 
cgit v1.2.3