From 0dfd236fc86f3016d8b9276820b60579922ff0a8 Mon Sep 17 00:00:00 2001
From: coq
Date: Thu, 2 May 2002 15:37:22 +0000
Subject: Minor correction of get_lem_name

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

diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml
index 5ff8be0f44..1ebc684878 100644
--- a/tactics/setoid_replace.ml
+++ b/tactics/setoid_replace.ml
@@ -303,7 +303,7 @@ let gen_lem_name m = match kind_of_term m with
   | Const sp -> add_suffix (basename sp) "_ext"
   | Ind (sp, i) -> add_suffix (basename sp) ((string_of_int i)^"_ext")
   | Construct ((sp,i),j) -> add_suffix
-      (basename sp) ((string_of_int i)^(string_of_int i)^"_ext")
+      (basename sp) ((string_of_int i)^(string_of_int j)^"_ext")
   | _ -> errorlabstrm "New Morphism" (str "The term " ++ prterm m ++ str "is not a known name")
 
 let gen_lemma_tail m lisset body n =
-- 
cgit v1.2.3