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/comAssumption.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/comAssumption.ml')
| -rw-r--r-- | vernac/comAssumption.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/vernac/comAssumption.ml b/vernac/comAssumption.ml index 4a82696ea6..47ae03e0a3 100644 --- a/vernac/comAssumption.ml +++ b/vernac/comAssumption.ml @@ -205,9 +205,10 @@ let context_insection sigma ~poly ctx = let entry = Declare.definition_entry ~univs ~types:t b in (* XXX Fixme: Use DeclareDef.prepare_definition *) let uctx = Evd.evar_universe_context sigma in - let entry = DeclareDef.ClosedDef.of_proof_entry ~uctx entry in - let _ : GlobRef.t = DeclareDef.declare_definition ~name ~scope:DeclareDef.Discharge - ~kind:Decls.(IsDefinition Definition) ~impargs:[] entry + let kind = Decls.(IsDefinition Definition) in + let _ : GlobRef.t = + DeclareDef.declare_entry ~name ~scope:DeclareDef.Discharge + ~kind ~impargs:[] ~uctx entry in () in |