# HG changeset patch
# User paulson
# Date 875182181 -7200
# Node ID e57b5902822f9bbf41576e21656af60239e0c8b4
# Parent  76f3b28039823e6b252e65419093985b380bbfbd
Generalized and exported biresolution_from_nets_tac to allow the declaration
of Clarify_tac

diff -r 76f3b2803982 -r e57b5902822f src/Pure/tactic.ML
--- a/src/Pure/tactic.ML	Thu Sep 25 12:08:08 1997 +0200
+++ b/src/Pure/tactic.ML	Thu Sep 25 12:09:41 1997 +0200
@@ -16,6 +16,9 @@
   val bimatch_from_nets_tac: 
       (int*(bool*thm)) Net.net * (int*(bool*thm)) Net.net -> int -> tactic
   val bimatch_tac	: (bool*thm)list -> int -> tactic
+  val biresolution_from_nets_tac: 
+	('a list -> (bool * thm) list) ->
+	bool -> 'a Net.net * 'a Net.net -> int -> tactic
   val biresolve_from_nets_tac: 
       (int*(bool*thm)) Net.net * (int*(bool*thm)) Net.net -> int -> tactic
   val biresolve_tac	: (bool*thm)list -> int -> tactic
@@ -402,19 +405,21 @@
 end;
 
 
-(*biresolution using a pair of nets rather than rules*)
-fun biresolution_from_nets_tac match (inet,enet) =
+(*biresolution using a pair of nets rather than rules.  
+    function "order" must sort and possibly filter the list of brls.
+    boolean "match" indicates matching or unification.*)
+fun biresolution_from_nets_tac order match (inet,enet) =
   SUBGOAL
     (fn (prem,i) =>
       let val hyps = Logic.strip_assums_hyp prem
           and concl = Logic.strip_assums_concl prem 
           val kbrls = Net.unify_term inet concl @
                       List.concat (map (Net.unify_term enet) hyps)
-      in PRIMSEQ (biresolution match (orderlist kbrls) i) end);
+      in PRIMSEQ (biresolution match (order kbrls) i) end);
 
-(*versions taking pre-built nets*)
-val biresolve_from_nets_tac = biresolution_from_nets_tac false;
-val bimatch_from_nets_tac = biresolution_from_nets_tac true;
+(*versions taking pre-built nets.  No filtering of brls*)
+val biresolve_from_nets_tac = biresolution_from_nets_tac orderlist false;
+val bimatch_from_nets_tac   = biresolution_from_nets_tac orderlist true;
 
 (*fast versions using nets internally*)
 val net_biresolve_tac =