From d90fa9a2fef0e98f8b4990ebfad3a7ef24410aa0 Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Tue, 27 Jun 2017 00:44:39 +0200 Subject: 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. --- vernac/obligations.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'vernac/obligations.ml') diff --git a/vernac/obligations.ml b/vernac/obligations.ml index c0acdaf57..c09cc1977 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 -- cgit v1.2.3