Local universes for opaque polymorphic constants.

1 files changed, 3 insertions, 0 deletions

diff --git a/kernel/uGraph.mli b/kernel/uGraph.mli
index a2cc5b3116..a389b35993 100644
--- a/kernel/uGraph.mli
+++ b/kernel/uGraph.mli
@@ -79,6 +79,9 @@ val constraints_of_universes : t -> Constraint.t * LSet.t list
     eg if [g] is [a <= b <= c] then [constraints_for ~kept:{a, c} g] is [a <= c]. *)
 val constraints_for : kept:LSet.t -> t -> Constraint.t
 
+val domain : t -> LSet.t
+(** Known universes *)
+
 val check_subtype : AUContext.t check_function
 (** [check_subtype univ ctx1 ctx2] checks whether [ctx2] is an instance of
     [ctx1]. *)