diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 062196b395..fe872db8b9 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -893,7 +893,7 @@ let sort_universes orig = (* Temporary inductive type levels *) let fresh_local_univ, set_remote_fresh_local_univ = - RemoteCounter.new_counter 0 ~incr:((+) 1) + RemoteCounter.new_counter ~name:"local_univ" 0 ~incr:((+) 1) ~build:(fun n -> Atom (UniverseLevel.Level (n, Names.DirPath.empty))) (* Miscellaneous functions to remove or test local univ assumed to |