From 4d17489394dbf6008e5abd5b8d075f08280cd38c Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 29 Jan 2018 17:01:20 +0100 Subject: Extrude monomorphic universe contexts from with Definition constraints. We defer the computation of the universe quantification to the upper layer, outside of the kernel. --- kernel/declarations.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'kernel/declarations.ml') diff --git a/kernel/declarations.ml b/kernel/declarations.ml index 5b9e1a141..cb7f0ecef 100644 --- a/kernel/declarations.ml +++ b/kernel/declarations.ml @@ -219,7 +219,7 @@ type ('ty,'a) functorize = type with_declaration = | WithMod of Id.t list * ModPath.t - | WithDef of Id.t list * constr Univ.in_universe_context + | WithDef of Id.t list * (constr * Univ.AUContext.t option) type module_alg_expr = | MEident of ModPath.t -- cgit v1.2.3