diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-23 10:23:39 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-23 10:23:39 +0100 |
| commit | ee08399e0aaa5b51a6fbcd9020905133039523d7 (patch) | |
| tree | f8645e73e1f720e769bbbbcb107a4bc21142d10c /plugins | |
| parent | eb91ccaf236bc9a60a1e216b76a0a42980c072a7 (diff) | |
| parent | 694584698a3dfcc3912dc6d65d7d670d2d5d2a23 (diff) | |
Merge PR #6192: Fix #5790: make Hint Resolve <- respect univ polymorphism flag.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/extratactics.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/ltac/extratactics.ml4 b/plugins/ltac/extratactics.ml4 index 4b1555e55..71db919ef 100644 --- a/plugins/ltac/extratactics.ml4 +++ b/plugins/ltac/extratactics.ml4 @@ -315,7 +315,8 @@ let project_hint pri l2r r = in let ctx = Evd.universe_context_set sigma in let c = EConstr.to_constr sigma c in - let c = Declare.declare_definition ~internal:Declare.InternalTacticRequest id (c,ctx) in + let poly = Flags.use_polymorphic_flag () in + let c = Declare.declare_definition ~poly ~internal:Declare.InternalTacticRequest id (c,ctx) in let info = {Vernacexpr.hint_priority = pri; hint_pattern = None} in (info,false,true,Hints.PathAny, Hints.IsGlobRef (Globnames.ConstRef c)) |