From e6c0a624ae7f766d5141649d85091cd3c056903b Mon Sep 17 00:00:00 2001
From: jforest
Date: Fri, 13 Oct 2006 09:38:40 +0000
Subject:  r9778@tannat:  jforest | 2006-10-13 11:36:37 +0200  Changement de
 nom des lemme de correction/completude des Functions vis a vis de leur
 graphes.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9236 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/funind/indfun_common.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/funind/indfun_common.ml b/contrib/funind/indfun_common.ml
index 4e1e13092b..13b242d5d9 100644
--- a/contrib/funind/indfun_common.ml
+++ b/contrib/funind/indfun_common.ml
@@ -5,8 +5,8 @@ open Libnames
 
 let mk_prefix pre id = id_of_string (pre^(string_of_id id))
 let mk_rel_id = mk_prefix "R_"
-let mk_correct_id id = Nameops.add_suffix id "_correct"
-let mk_complete_id id = Nameops.add_suffix id "_complete"
+let mk_correct_id id = Nameops.add_suffix (mk_rel_id id) "_correct"
+let mk_complete_id id = Nameops.add_suffix (mk_rel_id id) "_complete"
 let mk_equation_id id = Nameops.add_suffix id "_equation"
 
 let msgnl m =
-- 
cgit v1.2.3