diff options
| author | Hugo Herbelin | 2017-06-27 00:44:39 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-06-27 11:32:53 +0200 |
| commit | d90fa9a2fef0e98f8b4990ebfad3a7ef24410aa0 (patch) | |
| tree | 5e461e4c58b84d52df139cc285d8a6ffd56e6c4e /vernac | |
| parent | d7189f0e97dae3f0de9641be3242552873040c44 (diff) | |
Preparing to hints supporting discharge.
I.e., do not set local flag to false when in a section since
compatibility tells discharge of hints is not supported.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/obligations.ml b/vernac/obligations.ml index c0acdaf57d..c09cc19776 100644 --- a/vernac/obligations.ml +++ b/vernac/obligations.ml @@ -660,7 +660,7 @@ let declare_obligation prg obl body ty uctx = let constant = Declare.declare_constant obl.obl_name ~local:true (DefinitionEntry ce,IsProof Property) in - if not opaque then add_hint false prg constant; + if not opaque then add_hint (Locality.make_section_locality None) prg constant; definition_message obl.obl_name; true, { obl with obl_body = if poly then |