diff options
| author | Pierre-Marie Pédrot | 2017-07-10 16:56:10 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-07-11 14:50:47 +0200 |
| commit | 1309723672def9bf322a23e9c789e4a8bc2a4ac3 (patch) | |
| tree | de6856a8008d63a24b499c8bf3cec56b1a1ef01c | |
| parent | 0d9a91113c4112eece0680e433f435fdfb39ea4b (diff) | |
Asserting that monomorphic section variables have no abstracted context.
| -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 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 |