# HG changeset patch
# User narboux
# Date 1179767618 -7200
# Node ID 6ee131d1a618e9ac7897d1ba3bc53f711581e4aa
# Parent  b4ee6ec4f9c6626603102dc3ee5eba746ff094af
add a bottom up search function

diff -r b4ee6ec4f9c6 -r 6ee131d1a618 src/Provers/eqsubst.ML
--- a/src/Provers/eqsubst.ML	Mon May 21 19:11:42 2007 +0200
+++ b/src/Provers/eqsubst.ML	Mon May 21 19:13:38 2007 +0200
@@ -106,7 +106,8 @@
        searchinfo -> Term.term -> match Seq.seq Seq.seq
     val searchf_lr_unify_valid :
        searchinfo -> Term.term -> match Seq.seq Seq.seq
-
+    val searchf_bt_unify_valid :
+       searchinfo -> Term.term -> match Seq.seq Seq.seq
 
     (* syntax tools *)
     val ith_syntax : Args.T list -> int list * Args.T list
@@ -313,16 +314,34 @@
           end;
     in Z.lzy_search sf_valid_td_lr end;
 
+(* search from bottom to top, left to right *)
+
+fun search_bt_valid validf =
+    let 
+      fun sf_valid_td_lr z = 
+          let val here = if validf z then [Z.Here z] else [] in
+            case Z.trm z 
+             of _ $ _ => [Z.LookIn (Z.move_down_left z), 
+                          Z.LookIn (Z.move_down_right z)] @ here
+              | Abs _ => [Z.LookIn (Z.move_down_abs z)] @ here
+              | _ => here
+          end;
+    in Z.lzy_search sf_valid_td_lr end;
+
+fun searchf_unify_gen f (sgn, maxidx, z) lhs =
+    Seq.map (clean_unify_z sgn maxidx lhs) 
+            (Z.limit_apply f z);
+
 (* search all unifications *)
-fun searchf_lr_unify_all (sgn, maxidx, z) lhs =
-    Seq.map (clean_unify_z sgn maxidx lhs) 
-            (Z.limit_apply search_lr_all z);
+val searchf_lr_unify_all =
+    searchf_unify_gen search_lr_all;
 
 (* search only for 'valid' unifiers (non abs subterms and non vars) *)
-fun searchf_lr_unify_valid (sgn, maxidx, z) lhs  =
-    Seq.map (clean_unify_z sgn maxidx lhs) 
-            (Z.limit_apply (search_lr_valid valid_match_start) z);
+val searchf_lr_unify_valid = 
+    searchf_unify_gen (search_lr_valid valid_match_start);
 
+val searchf_bt_unify_valid =
+    searchf_unify_gen (search_bt_valid valid_match_start);
 
 (* apply a substitution in the conclusion of the theorem th *)
 (* cfvs are certified free var placeholders for goal params *)