aboutsummaryrefslogtreecommitdiff
path: root/plugins/ltac
diff options
context:
space:
mode:
authorMaxime Dénès2019-02-26 10:19:18 +0100
committerMaxime Dénès2019-02-26 10:19:18 +0100
commit3459155e1c629a2f932c4d4d917b0f69aa89ccf7 (patch)
tree8f1db2c3e2a0d89a412c9c19b6ca458160f4c6c4 /plugins/ltac
parentfc76c77ac6e509c1bccc2823ce2037d21a53276a (diff)
parentd31056ec924ef6e09b28bc3822b427b67a8a300b (diff)
Merge PR #9567: [vernac] Unify declaration hooks.
Ack-by: SkySkimmer Ack-by: ejgallego Reviewed-by: mattam82 Reviewed-by: maximedenes
Diffstat (limited to 'plugins/ltac')
-rw-r--r--plugins/ltac/rewrite.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml
index 7da4464e59..2d833a2cde 100644
--- a/plugins/ltac/rewrite.ml
+++ b/plugins/ltac/rewrite.ml
@@ -1989,7 +1989,7 @@ let add_morphism_infer atts m n =
Decl_kinds.DefinitionBody Decl_kinds.Instance
in
let tac = make_tactic "Coq.Classes.SetoidTactics.add_morphism_tactic" in
- let hook _ = function
+ let hook _ _ _ = function
| Globnames.ConstRef cst ->
add_instance (Typeclasses.new_instance
(Lazy.force PropGlobal.proper_class) Hints.empty_hint_info