diff options
| author | Emilio Jesus Gallego Arias | 2020-03-18 05:35:41 -0400 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-03-30 19:05:38 -0400 |
| commit | 7d46a32dc928af64e3e111d6d62caa00f93c427c (patch) | |
| tree | bd49b527bd2ebcdebd1e16526d136bf9f5b0e651 /vernac/comDefinition.ml | |
| parent | 9e3c7d4c0babf3b69c8646351ca7069704df345d (diff) | |
[declare] Fuse prepare and declare for the non-interactive path.
This will allow to share the definition metadata for example with
obligations; a bit more work is needed to finally move the preparation
of interactive proofs from Proof_global to `prepare_entry`.
Diffstat (limited to 'vernac/comDefinition.ml')
| -rw-r--r-- | vernac/comDefinition.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/comDefinition.ml b/vernac/comDefinition.ml index bf4567e57f..3532d16315 100644 --- a/vernac/comDefinition.ml +++ b/vernac/comDefinition.ml @@ -74,10 +74,10 @@ let do_definition ?hook ~name ~scope ~poly ~kind udecl bl red_option c ctypopt = let (body, types), evd, udecl, impargs = interp_definition ~program_mode udecl bl ~poly red_option c ctypopt in - let ce = DeclareDef.prepare_definition ~opaque:false ~poly evd ~udecl ~types ~body in let kind = Decls.IsDefinition kind in let _ : Names.GlobRef.t = - DeclareDef.declare_definition ~name ~scope ~kind ?hook ~impargs ce + DeclareDef.declare_definition ~name ~scope ~kind ?hook ~impargs + ~opaque:false ~poly evd ~udecl ~types ~body in () let do_definition_program ?hook ~name ~scope ~poly ~kind udecl bl red_option c ctypopt = |