diff options
| author | Pierre-Marie Pédrot | 2019-06-28 13:58:27 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-28 13:58:27 +0200 |
| commit | a2751a19e9c5c0fd91031f9a62948ad29efea038 (patch) | |
| tree | 8418340ce7d32621eeab718fc2acc268b99ae16a /plugins/ltac | |
| parent | a4f6189978b15df8ce4cc8c8fcb8acb6f069ee8e (diff) | |
| parent | e74322d0dc134088ef05bd7b5cbb548578f0bf3f (diff) | |
Merge PR #10434: [declare] Fine tuning of Hook type.
Ack-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac')
| -rw-r--r-- | plugins/ltac/rewrite.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml index 8acb29ba74..19866df8e3 100644 --- a/plugins/ltac/rewrite.ml +++ b/plugins/ltac/rewrite.ml @@ -1997,7 +1997,7 @@ let add_morphism_interactive atts m n : Lemmas.t = let poly = atts.polymorphic in let kind = Decl_kinds.DefinitionBody Decl_kinds.Instance in let tac = make_tactic "Coq.Classes.SetoidTactics.add_morphism_tactic" in - let hook _ _ _ = function + let hook { DeclareDef.Hook.S.dref; _ } = dref |> function | Globnames.ConstRef cst -> Classes.add_instance (Classes.mk_instance (PropGlobal.proper_class env evd) Hints.empty_hint_info |