diff options
| author | herbelin | 2006-12-12 09:38:53 +0000 |
|---|---|---|
| committer | herbelin | 2006-12-12 09:38:53 +0000 |
| commit | 5458617d1b3c6b0a5ff846ef977d3bdaeda9fb4f (patch) | |
| tree | 0785b2dd7f64fc64dc34e8e93c5d94dcd4c8dac5 /pretyping/termops.ml | |
| parent | 22516846e6280c1aff441c06f5a30ee26d2372e5 (diff) | |
Correction bug #1041 (double cause : non évitement des noms existants en
cas de création de nom par défaut; utilisation de _ comme nom dans evarutil.ml)
+ test régression bug #1041 + allègement syntaxe tactique evar
+ essai de ne pas faire dépendre les evars des variables anonymes afin
de résoudre le bug #932
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9433 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index d3283164b0..5c94399336 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -928,7 +928,7 @@ let next_name_not_occuring avoid_flags name l env_names t = (* Normally, an anonymous name is not dependent and will not be *) (* taken into account by the function concrete_name; just in case *) (* invent a valid name *) - id_of_string "H" + next (id_of_string "H") (* On reduit une serie d'eta-redex de tete ou rien du tout *) (* [x1:c1;...;xn:cn]@(f;a1...an;x1;...;xn) --> @(f;a1...an) *) |