diff options
author | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-22 15:27:22 +0200 |
---|---|---|
committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-13 13:49:11 +0200 |
commit | b06de08733bb01efcbb8b902fe3157b7045c8bb3 (patch) | |
tree | 799ca3cbac84c0906b0b8944093e8c4fdcf1535a /checker/univ.ml | |
parent | 7dd881fc72d62eb0c1f1e5063eb3a8ed268fb5d5 (diff) |
Infrastructure for ocamldebug on the checker
Diffstat (limited to 'checker/univ.ml')
-rw-r--r-- | checker/univ.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/checker/univ.ml b/checker/univ.ml index fc0764077..7d285b6fe 100644 --- a/checker/univ.ml +++ b/checker/univ.ml @@ -142,7 +142,13 @@ end (** Level sets and maps *) module LMap = HMap.Make (Level) -module LSet = LMap.Set +module LSet = struct + include LMap.Set + + let pr s = + str"{" ++ prlist_with_sep spc Level.pr (elements s) ++ str"}" + +end type 'a universe_map = 'a LMap.t |