diff options
author | 2015-10-27 13:55:45 -0400 | |
---|---|---|
committer | 2015-10-27 14:03:42 -0400 | |
commit | ed7af646f2e486b7e96812ba2335e644756b70fd (patch) | |
tree | 4f800531ad9238598d7c6231b6b165c167bd6c1f /library/universes.ml | |
parent | 7bf9bbe2968802b48230d35d34c585201ee9e9b4 (diff) |
Fix bugs 4389, 4390 and 4391 due to wrong handling of universe names
structure.
Diffstat (limited to 'library/universes.ml')
-rw-r--r-- | library/universes.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/universes.ml b/library/universes.ml index 0656188eb..30d38eb2a 100644 --- a/library/universes.ml +++ b/library/universes.ml @@ -16,7 +16,8 @@ open Univ type universe_names = Univ.universe_level Idmap.t * Id.t Univ.LMap.t -let global_universes = Summary.ref ~name:"Global universe names" +let global_universes = + Summary.ref ~name:"Global universe names" ((Idmap.empty, Univ.LMap.empty) : universe_names) let global_universe_names () = !global_universes |