aboutsummaryrefslogtreecommitdiff
path: root/kernel/uGraph.ml
diff options
context:
space:
mode:
authorEnrico Tassi2018-12-11 16:06:28 +0100
committerEnrico Tassi2018-12-11 16:06:28 +0100
commitdf657bd52d20b1c41e2ef4d44bde207323de6935 (patch)
tree85fde4a47f00585dfae4bd09c27f3cf8cbef5526 /kernel/uGraph.ml
parent97f5f37f782ffb9914fa8f67e745ba1effad20be (diff)
parentcff3c5a7148afc722852bd01658fe49ffec1d967 (diff)
Merge PR #9155: Fix race condition triggered by fresh universe generation
Diffstat (limited to 'kernel/uGraph.ml')
-rw-r--r--kernel/uGraph.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/uGraph.ml b/kernel/uGraph.ml
index afdc8f1511..5fc8d0297f 100644
--- a/kernel/uGraph.ml
+++ b/kernel/uGraph.ml
@@ -921,7 +921,7 @@ let sort_universes g =
let types = Array.init (max_lvl + 1) (function
| 0 -> Level.prop
| 1 -> Level.set
- | n -> Level.make mp (n-2))
+ | n -> Level.make (Level.UGlobal.make mp (n-2)))
in
let g = Array.fold_left (fun g u ->
let g, u = safe_repr g u in