diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-08-25 01:57:31 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-08-25 01:57:31 +0200 |
| commit | dd4654ce6f1808cc19c701219b4bad120b7f2271 (patch) | |
| tree | 3382eea544d5dd6f834cadfa66397354f7360626 | |
| parent | 433d042350f7d7e52f9ef5def0f9405218cb109b (diff) | |
Do not export an internal function in Namegen.
| -rw-r--r-- | engine/namegen.mli | 3 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
2 files changed, 1 insertions, 4 deletions
diff --git a/engine/namegen.mli b/engine/namegen.mli index e5c156b4e..97c7c34a5 100644 --- a/engine/namegen.mli +++ b/engine/namegen.mli @@ -64,9 +64,6 @@ val next_ident_away_in_goal : Id.t -> Id.t list -> Id.t but tolerate overwriting section variables, as in goals *) val next_global_ident_away : Id.t -> Id.t list -> Id.t -(** Avoid clashing with a constructor name already used in current module *) -val next_name_away_in_cases_pattern : (Termops.names_context * constr) -> Name.t -> Id.t list -> Id.t - (** Default is [default_non_dependent_ident] *) val next_name_away : Name.t -> Id.t list -> Id.t diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index f87fa8a44..dc098f1f0 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -135,7 +135,7 @@ let make_cases s = let rec rename avoid = function | [] -> [] | (n,_)::l -> - let n' = Namegen.next_name_away_in_cases_pattern ([],mkMeta 0) n avoid in + let n' = Namegen.next_name_away_with_default (Id.to_string Namegen.default_dependent_ident) n avoid in Id.to_string n' :: rename (n'::avoid) l in let al' = rename [] al in (Id.to_string consname :: al') :: l) |