diff options
| author | Emilio Jesus Gallego Arias | 2020-03-14 03:42:57 -0400 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-03-30 19:05:37 -0400 |
| commit | 8ac27a8261f5f3fb5d4bf2a207a144df07477910 (patch) | |
| tree | f482eb2475bdcb4fab6b686bc5a666048f962a1a /vernac/comAssumption.ml | |
| parent | d507679b5b6dfac944e038b6a3ebd9fb8e6998ff (diff) | |
[declare] Make the type of closed entries opaque.
This is a step in forcing all entry creation go thru the preparation
functions. We still need to handle plain `Declare.` calls, but this
will be next step.
We need to leave a backdoor for interactive proofs until we unify
proof preparation happening in `Proof_global` with the one happening
in `DeclareDef`, but we are getting there.
TODO: see how to avoid the normalization problems in DeclareObl
Diffstat (limited to 'vernac/comAssumption.ml')
| -rw-r--r-- | vernac/comAssumption.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/vernac/comAssumption.ml b/vernac/comAssumption.ml index dc9c8e2d3c..cb9acda770 100644 --- a/vernac/comAssumption.ml +++ b/vernac/comAssumption.ml @@ -203,6 +203,8 @@ let context_insection sigma ~poly ctx = else Monomorphic_entry Univ.ContextSet.empty in let entry = Declare.definition_entry ~univs ~types:t b in + (* XXX Fixme: Use DeclareDef.prepare_definition *) + let entry = DeclareDef.ClosedDef.of_proof_entry entry in let _ : GlobRef.t = DeclareDef.declare_definition ~name ~scope:DeclareDef.Discharge ~kind:Decls.(IsDefinition Definition) ~ubind:UnivNames.empty_binders ~impargs:[] entry in |