aboutsummaryrefslogtreecommitdiff
path: root/vernac/comAssumption.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2019-10-13 20:20:56 +0200
committerGaëtan Gilbert2019-10-13 20:20:56 +0200
commitce1d51dc40cdb65b01b559ab076f76b265ccf6c4 (patch)
treef3b0697a4ba47561024cef230d9b44895cc7d0de /vernac/comAssumption.ml
parent7f039cac07526881da1a149b8c0e49be32c2e89e (diff)
Fix #10888: Context import behaviour in modtype
Diffstat (limited to 'vernac/comAssumption.ml')
-rw-r--r--vernac/comAssumption.ml6
1 files changed, 4 insertions, 2 deletions
diff --git a/vernac/comAssumption.ml b/vernac/comAssumption.ml
index 8cf5e3a8b4..5ba8b0ab3c 100644
--- a/vernac/comAssumption.ml
+++ b/vernac/comAssumption.ml
@@ -247,8 +247,10 @@ let context_nosection sigma ~poly ctx =
let entry = Declare.definition_entry ~univs ~types:t b in
Declare.DefinitionEntry entry
in
- (* let local = Declare.ImportNeedQualified in *)
- let cst = Declare.declare_constant ~name ~kind ~local:Declare.ImportNeedQualified decl in
+ let local = if Lib.is_modtype () then Declare.ImportDefaultBehavior
+ else Declare.ImportNeedQualified
+ in
+ let cst = Declare.declare_constant ~name ~kind ~local decl in
let () = Declare.assumption_message name in
let env = Global.env () in
(* why local when is_modtype? *)