From 1309723672def9bf322a23e9c789e4a8bc2a4ac3 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 10 Jul 2017 16:56:10 +0200
Subject: Asserting that monomorphic section variables have no abstracted
 context.

---
 kernel/cooking.ml | 2 +-
 kernel/univ.mli   | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'kernel')

diff --git a/kernel/cooking.ml b/kernel/cooking.ml
index 852f87d5e9..95822fac68 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 d7ee3eceec..dc6fb85a05 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
                         
-- 
cgit v1.2.3