From 5b7eafd0f00a16d78f99a27f5c7d5a0de77dc7e6 Mon Sep 17 00:00:00 2001
From: Stephane Glondu <steph@glondu.net>
Date: Wed, 21 Jul 2010 09:46:51 +0200
Subject: Imported Upstream snapshot 8.3~beta0+13298

---
 tactics/autorewrite.mli | 49 ++++++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 42 insertions(+), 7 deletions(-)

(limited to 'tactics/autorewrite.mli')

diff --git a/tactics/autorewrite.mli b/tactics/autorewrite.mli
index f402a35d..cf0d58cc 100644
--- a/tactics/autorewrite.mli
+++ b/tactics/autorewrite.mli
@@ -6,25 +6,60 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(*i $Id: autorewrite.mli 9073 2006-08-22 08:54:29Z jforest $ i*)
+(*i $Id$ i*)
 
 (*i*)
+open Term
+open Tacexpr
 open Tacmach
+open Equality
 (*i*)
 
 (* Rewriting rules before tactic interpretation *)
-type raw_rew_rule = Term.constr * bool * Tacexpr.raw_tactic_expr
+type raw_rew_rule = Util.loc * Term.constr * bool * Tacexpr.raw_tactic_expr
 
 (* To add rewriting rules to a base *)
 val add_rew_rules : string -> raw_rew_rule list -> unit
 
-(* The AutoRewrite tactic *)
-val autorewrite : tactic -> string list -> tactic
-val autorewrite_in : Names.identifier -> tactic -> string list -> tactic
+(* The AutoRewrite tactic.
+   The optional conditions tell rewrite how to handle matching and side-condition solving.
+   Default is Naive: first match in the clause, don't look at the side-conditions to
+   tell if the rewrite succeeded. *)
+val autorewrite : ?conds:conditions -> tactic -> string list -> tactic
+val autorewrite_in : ?conds:conditions -> Names.identifier -> tactic -> string list -> tactic
 
+(* Rewriting rules *)
+type rew_rule = { rew_lemma: constr;
+		  rew_type: types;
+		  rew_pat: constr;
+		  rew_l2r: bool;
+		  rew_tac: glob_tactic_expr }
 
-val auto_multi_rewrite : string list -> Tacticals.clause -> tactic
+val find_rewrites : string -> rew_rule list
 
-val auto_multi_rewrite_with : tactic -> string list -> Tacticals.clause -> tactic
+val find_matches : string -> constr -> rew_rule list
+
+val auto_multi_rewrite : ?conds:conditions -> string list -> Tacticals.clause -> tactic
+
+val auto_multi_rewrite_with : ?conds:conditions -> tactic -> string list -> Tacticals.clause -> tactic
 
 val print_rewrite_hintdb : string -> unit
+
+open Clenv
+
+
+type hypinfo = {
+  hyp_cl : clausenv;
+  hyp_prf : constr;
+  hyp_ty : types;
+  hyp_car : constr;
+  hyp_rel : constr;
+  hyp_l2r : bool;
+  hyp_left : constr;
+  hyp_right : constr;
+}
+
+val find_applied_relation : bool ->
+  Util.loc ->
+  Environ.env -> Evd.evar_map -> Term.constr -> bool -> hypinfo
+
-- 
cgit v1.2.3