diff options
| author | Gaëtan Gilbert | 2021-04-01 19:35:27 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2021-04-14 12:54:05 +0200 |
| commit | 004bf5770bdcdd1b35dd27f683c733505823e741 (patch) | |
| tree | ddab8d75e94782d2f21e7d2cc4fae83f6326f7dc /kernel/inductive.ml | |
| parent | ea62d1e19f2ba565ea3a18ba3709a06af5c845ac (diff) | |
Put async worker id in universe names
This removes the need for the remote counter.
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 6cb61174d3..ddbd5fa0a7 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -717,7 +717,7 @@ let rec ienv_decompose_prod (env,_ as ienv) n c = ienv_decompose_prod ienv' (n-1) b | _ -> assert false -let dummy_univ = Level.(make (UGlobal.make (DirPath.make [Id.of_string "implicit"]) 0)) +let dummy_univ = Level.(make (UGlobal.make (DirPath.make [Id.of_string "implicit"]) "" 0)) let dummy_implicit_sort = mkType (Universe.make dummy_univ) let lambda_implicit_lift n a = let anon = Context.make_annot Anonymous Sorts.Relevant in |