diff options
author | 2006-10-13 09:38:40 +0000 | |
---|---|---|
committer | 2006-10-13 09:38:40 +0000 | |
commit | e6c0a624ae7f766d5141649d85091cd3c056903b (patch) | |
tree | 9d0120013a6431deb952f4396961c45b25bebca4 /contrib | |
parent | 3f1271efd6caf66282926e2a80d90b71b5882b9d (diff) |
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
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/funind/indfun_common.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/indfun_common.ml b/contrib/funind/indfun_common.ml index 4e1e13092..13b242d5d 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 = |