From 6c9e2ded8fc093e42902d008a883b6650533d47f Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Tue, 3 Jun 2014 14:23:17 +0200 Subject: Collecting in Namegen those conventional default names that are used in different places --- pretyping/detyping.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pretyping/detyping.ml') 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 -- cgit v1.2.3