diff options
| author | letouzey | 2013-04-15 16:05:03 +0000 |
|---|---|---|
| committer | letouzey | 2013-04-15 16:05:03 +0000 |
| commit | 66139b2e1f66b826dd5dbdb8a9ade64a4d5e11c6 (patch) | |
| tree | 3224a1c72541eb786d6c927fbaab51a44481ce38 /checker/mod_checking.ml | |
| parent | 07c80f246315ac314c82d580bf356df3fb8201d8 (diff) | |
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
Diffstat (limited to 'checker/mod_checking.ml')
| -rw-r--r-- | checker/mod_checking.ml | 6 |
1 files changed, 2 insertions, 4 deletions
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 |