diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-03 14:23:17 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-04 18:42:22 +0200 |
| commit | 6c9e2ded8fc093e42902d008a883b6650533d47f (patch) | |
| tree | 53b91966c76b3a535308a8a73d113c5fff96de0a /pretyping/detyping.ml | |
| parent | 90fc6f45fa1a4ef5251046d8b4e4249164afa60b (diff) | |
Collecting in Namegen those conventional default names that are used in different places
Diffstat (limited to 'pretyping/detyping.ml')
| -rw-r--r-- | pretyping/detyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 65a8f338c..390c3a82e 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -232,7 +232,7 @@ let rec decomp_branch ndecls nargs nal b (avoid,env as e) c = | LetIn (na,_,_,c) when ndecls>nargs -> na,c,compute_displayed_name_in,nargs | _ -> - Name (Id.of_string "x"),(applist (lift 1 c, [mkRel 1])), + Name default_dependent_ident,(applist (lift 1 c, [mkRel 1])), compute_displayed_name_in,nargs-1 in let na',avoid' = f flag avoid na c in decomp_branch (ndecls-1) nargs' (na'::nal) b (avoid',add_name na' env) c @@ -296,7 +296,7 @@ let it_destRLambda_or_LetIn_names n c = | _ -> (* eta-expansion *) let next l = - let x = next_ident_away (Id.of_string "x") l in + let x = next_ident_away default_dependent_ident l in (* Not efficient but unusual and no function to get free glob_vars *) (* if occur_glob_constr x c then next (x::l) else x in *) x |