diff options
Diffstat (limited to 'pretyping/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 8a5a828032..9d57e1c80b 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -147,11 +147,9 @@ let print_env env = let set_module m = current_module := m*) -let new_univ_level = - let univ_gen = ref 0 in - (fun sp -> - incr univ_gen; - Univ.UniverseLevel.make (Lib.library_dp()) !univ_gen) +let new_univ_level, set_remote_new_univ_level = + RemoteCounter.new_counter 0 ~incr:((+) 1) + ~build:(fun n -> Univ.UniverseLevel.make (Lib.library_dp()) n) let new_univ () = Univ.Universe.make (new_univ_level ()) let new_Type () = mkType (new_univ ()) |