aboutsummaryrefslogtreecommitdiffhomepage
path: root/tactics
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2018-01-31 07:40:59 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2018-01-31 07:40:59 +0100
commit89dbc7ded0852258ef205263bfe618600168c52c (patch)
treef9720143739460052be3d3aea631c05d98938e48 /tactics
parent879ebad4d0b39fda275a72ba44c1f4dfbb9282e5 (diff)
parentaa0418ded1084794354a2e34c409c7bbca9fe091 (diff)
Merge PR #6535: Cleanup name-binding structure for fresh evar name generation.
Diffstat (limited to 'tactics')
-rw-r--r--tactics/class_tactics.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index 9e4d132d4..cfadfc535 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -1569,7 +1569,7 @@ let _ =
Hook.set Typeclasses.solve_all_instances_hook solve_inst
let resolve_one_typeclass env ?(sigma=Evd.empty) gl unique =
- let nc, gl, subst, _, _ = Evarutil.push_rel_context_to_named_context env sigma gl in
+ let nc, gl, subst, _ = Evarutil.push_rel_context_to_named_context env sigma gl in
let (gl,t,sigma) =
Goal.V82.mk_goal sigma nc gl Store.empty in
let (ev, _) = destEvar sigma t in