diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-10-01 18:41:49 +0200 |
|---|---|---|
| committer |  Matthieu Sozeau <mattam@mattam.org> | 2015-10-02 15:54:13 +0200 |
| commit | de648c72a79ae5ba35db166575669ca465b11770 (patch) | |
| tree | 9a169304038a3e755241208a5434ef65e7c83c0e /checker/univ.mli | |
| parent | 6b9ff2261c738ff8ce47b75e5ced2b85476b6210 (diff) | |
Univs: fix checker generating undeclared universes.
Diffstat (limited to 'checker/univ.mli')
| -rw-r--r-- | checker/univ.mli | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/checker/univ.mli b/checker/univ.mli index 459adfcd6..02c1bbdb9 100644 --- a/checker/univ.mli +++ b/checker/univ.mli @@ -131,7 +131,7 @@ val check_constraints : constraints -> universes -> bool (** Polymorphic maps from universe levels to 'a *) module LMap : Map.S with type key = universe_level - +module LSet : CSig.SetS with type elt = universe_level type 'a universe_map = 'a LMap.t (** {6 Substitution} *) @@ -184,7 +184,7 @@ sig type t val empty : t - + val make : universe_instance constrained -> t val instance : t -> Instance.t val constraints : t -> constraints @@ -193,6 +193,7 @@ end module ContextSet : sig type t + val make : LSet.t -> constraints -> t val empty : t val constraints : t -> constraints end |