From de26e97cf37cafd37b83377d2df062a6e82676e7 Mon Sep 17 00:00:00 2001 From: ppedrot Date: Sun, 12 May 2013 15:33:40 +0000 Subject: Use the Hook module here and there. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16510 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/equality.mli | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tactics/equality.mli') diff --git a/tactics/equality.mli b/tactics/equality.mli index aa1bfaa0f..147218efd 100644 --- a/tactics/equality.mli +++ b/tactics/equality.mli @@ -51,10 +51,10 @@ val rewriteRL : ?tac:(tactic * conditions) -> constr -> tactic (* Warning: old [general_rewrite_in] is now [general_rewrite_bindings_in] *) -val register_general_rewrite_clause : +val general_rewrite_clause : (Id.t option -> orientation -> - occurrences -> constr with_bindings -> new_goals:constr list -> tactic) -> unit -val register_is_applied_rewrite_relation : (env -> evar_map -> rel_context -> constr -> constr option) -> unit + occurrences -> constr with_bindings -> new_goals:constr list -> tactic) Hook.t +val is_applied_rewrite_relation : (env -> evar_map -> rel_context -> constr -> constr option) Hook.t val general_rewrite_ebindings_clause : Id.t option -> orientation -> occurrences -> freeze_evars_flag -> dep_proof_flag -> -- cgit v1.2.3