diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-09-10 02:21:03 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-09-28 16:51:21 +0200 |
| commit | b772c323f62b322c9b0a4ab90c7de8b1e2066bae (patch) | |
| tree | 16dc8bc2ae1b5374a1329b9f6495d0a1b9905ee4 /engine/namegen.ml | |
| parent | d28304f6ba18ad9527a63cd01b39a5ad27526845 (diff) | |
Efficient computation of the names contained in an environment.
Diffstat (limited to 'engine/namegen.ml')
| -rw-r--r-- | engine/namegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/namegen.ml b/engine/namegen.ml index 489666852..1dd29e6ea 100644 --- a/engine/namegen.ml +++ b/engine/namegen.ml @@ -302,7 +302,7 @@ let next_name_away = next_name_away_with_default default_non_dependent_string let make_all_name_different env sigma = (** FIXME: this is inefficient, but only used in printing *) - let avoid = ref (Context.Named.to_vars (named_context env)) in + let avoid = ref (ids_of_named_context_val (named_context_val env)) in let sign = named_context_val env in let rels = rel_context env in let env0 = reset_with_named_context sign env in |