diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-02-21 18:24:59 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-02-26 14:53:08 +0100 |
| commit | 0499f51cedb38eba6b8ecd01ce94ddfb1b6ae9c8 (patch) | |
| tree | eb43b12647b93e52784c9118d77c7a64199989a5 /checker/mod_checking.ml | |
| parent | f7338257584ba69e7e815c7ef9ac0d24f0dec36c (diff) | |
checker and votour ported to new vo format (after -vi2vo)
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 b0f20da70..c2016ba1b 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 |