diff options
| -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) *) |