From 66139b2e1f66b826dd5dbdb8a9ade64a4d5e11c6 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 15 Apr 2013 16:05:03 +0000
Subject: Checker: empty sections hardcoded in cb and mind

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16400 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/mod_checking.ml | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'checker/mod_checking.ml')

diff --git a/checker/mod_checking.ml b/checker/mod_checking.ml
index 089414f633..66f1194d34 100644
--- a/checker/mod_checking.ml
+++ b/checker/mod_checking.ml
@@ -28,15 +28,14 @@ let refresh_arity ar =
 let check_constant_declaration env kn cb =
   Flags.if_verbose ppnl (str "  checking cst: " ++ prcon kn);
 (*  let env = add_constraints cb.const_constraints env in*)
-  let env' = check_named_ctxt env cb.const_hyps in
   (match cb.const_type with
       NonPolymorphicType ty ->
         let ty, cu = refresh_arity ty in
-        let envty = add_constraints cu env' in
+        let envty = add_constraints cu env in
         let _ = infer_type envty ty in
         (match body_of_constant cb with
           | Some bd ->
-              let j = infer env' bd in
+              let j = infer env bd in
               conv_leq envty j ty
           | None -> ())
     | PolymorphicArity(ctxt,par) ->
@@ -110,7 +109,6 @@ let check_definition_sub env cb1 cb2 =
         (t1,t2) in
     Reduction.conv_leq env t1 t2
   in
-  assert (cb1.const_hyps=[] && cb2.const_hyps=[]) ;
   (*Start by checking types*)
   let typ1 = Typeops.type_of_constant_type env cb1.const_type in
   let typ2 = Typeops.type_of_constant_type env cb2.const_type in
-- 
cgit v1.2.3