diff options
| -rw-r--r-- | kernel/cooking.ml | 2 | ||||
| -rw-r--r-- | kernel/univ.mli | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/kernel/cooking.ml b/kernel/cooking.ml index 852f87d5e..95822fac6 100644 --- a/kernel/cooking.ml +++ b/kernel/cooking.ml @@ -250,7 +250,7 @@ let cook_constant ~hcons env { from = cb; info } = let univs = match univs with | Monomorphic_const ctx -> - Monomorphic_const (UContext.union (instantiate_univ_context abs_ctx) ctx) + assert (AUContext.is_empty abs_ctx); univs | Polymorphic_const auctx -> Polymorphic_const (AUContext.union abs_ctx auctx) in diff --git a/kernel/univ.mli b/kernel/univ.mli index d7ee3ecee..dc6fb85a0 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -320,6 +320,7 @@ sig type t val empty : t + val is_empty : t -> bool val instance : t -> Instance.t |