diff options
Diffstat (limited to 'checker/mod_checking.ml')
| -rw-r--r-- | checker/mod_checking.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/checker/mod_checking.ml b/checker/mod_checking.ml index b0f20da70a..c2016ba1bf 100644 --- a/checker/mod_checking.ml +++ b/checker/mod_checking.ml @@ -27,6 +27,9 @@ 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*) + (* Constraints of an opauqe proof are not in the module *) + let env = + add_constraints (Declarations.force_lazy_constr_univs cb.const_body) env in (match cb.const_type with NonPolymorphicType ty -> let ty, cu = refresh_arity ty in |