diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-27 00:44:39 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-06-27 11:32:53 +0200 |
| commit | d90fa9a2fef0e98f8b4990ebfad3a7ef24410aa0 (patch) | |
| tree | 5e461e4c58b84d52df139cc285d8a6ffd56e6c4e /plugins/ltac | |
| 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 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/g_class.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/g_class.ml4 b/plugins/ltac/g_class.ml4 index 63451210c..0d68d3818 100644 --- a/plugins/ltac/g_class.ml4 +++ b/plugins/ltac/g_class.ml4 @@ -21,7 +21,7 @@ let set_transparency cl b = List.iter (fun r -> let gr = Smartlocate.global_with_alias r in let ev = Tacred.evaluable_of_global_reference (Global.env ()) gr in - Classes.set_typeclass_transparency ev false b) cl + Classes.set_typeclass_transparency ev (Locality.make_section_locality None) b) cl VERNAC COMMAND EXTEND Typeclasses_Unfold_Settings CLASSIFIED AS SIDEFF | [ "Typeclasses" "Transparent" reference_list(cl) ] -> [ |