diff options
| author | herbelin | 2003-10-02 12:32:10 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-02 12:32:10 +0000 |
| commit | d1d2137d67b7b08cf8265271a0e573752f6fba05 (patch) | |
| tree | 665bc508d4717f913d8426529148aa997cda16a3 | |
| parent | ee164fc27a49113f80da0e42f3b705cb2059abaa (diff) | |
Le nom '_' n'est plus valable en v8 pour nommer les variables
dépendantes qui par hasard aurait été déclarées Anonymous
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4512 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/termops.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index c7786b2e1c..13983126ad 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -741,7 +741,11 @@ let next_name_not_occuring is_goal_ccl name l env_names t = in match name with | Name id -> next id - | Anonymous -> id_of_string "_" + | Anonymous -> + (* 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" (* 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) *) |