From bd21ec85ff71e49b12d48e4ed3bf72a3f48a60d2 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 26 May 2019 02:12:01 +0200
Subject: Ensure dynamically that opaque definitions come with their type.

The only lawbreaker was the Add Ring command. We generate a type for
the declaration to fix the code.
---
 kernel/term_typing.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'kernel')

diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index 088dd98db8..af2c511db9 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -169,6 +169,7 @@ the polymorphic case
   | DefinitionEntry c ->
       let { const_entry_type = typ; const_entry_opaque = opaque ; _ } = c in
       let { const_entry_body = body; const_entry_feedback = feedback_id; _ } = c in
+      let () = assert (not (opaque && Option.is_empty typ)) in
       let (body, ctx), side_eff = Future.join body in
       let body, ctx = match trust with
       | Pure -> body, ctx
-- 
cgit v1.2.3