+let worker order goal hypotheses =
+ let module C =
+ struct type t = leaf let cmp (a,_) (b,_) = Pervasives.compare a b end
+ in
+ let module B = MakeBlob(C) in
+ let module Pp = Pp.Pp(B) in
+ let module O = Orderings.NRKBO(B) in (* just for processing the clauses *)
+ let module P = Paramod.Paramod(O) in
+ let module Stats = Stats.Stats(O) in
+ let bag = Terms.empty_bag, 0 in
+ let bag, g_passives = P.mk_goal bag goal in
+ let bag, passives =
+ HExtlib.list_mapi_acc (fun x _ b -> P.mk_passive b x) bag hypotheses
+ in
+ (* TODO: do stats analysys there and generate a new
+ * C and then B
+ * TODO: rebuild clauses, since the ordering has to
+ * change after the stats are computed *)
+ let symb_list = Stats.parse_symbols passives g_passives in
+ prerr_endline "Hypotheses statistics :";
+ List.iter (fun (t,occ,ar,g_occ) -> prerr_endline
+ (Printf.sprintf "%s %d %d %d %s"
+ (B.pp t) ar occ g_occ
+ (String.concat ","
+ (List.map B.pp (Stats.dependencies t passives))));
+ if List.exists
+ (fun (u,occ2,ar2,g_occ2) -> not (B.eq t u) && occ = occ2
+ && ar = ar2 && g_occ = g_occ2) symb_list
+ then prerr_endline ((B.pp t) ^ " clashes")
+ ) symb_list;
+ let module C = C in
+ let module B = MakeBlob(C) in
+ match order with
+ | `NRKBO ->
+ let module O = Orderings.NRKBO(B) in
+ let module Main = Main(Paramod.Paramod(O)) in
+ start_msg passives g_passives Pp.pp_unit_clause O.name;
+ Main.run bag g_passives passives Pp.pp_unit_clause O.name
+ | `KBO ->
+ let module O = Orderings.KBO(B) in
+ let module Main = Main(Paramod.Paramod(O)) in
+ start_msg passives g_passives Pp.pp_unit_clause O.name;
+ Main.run bag g_passives passives Pp.pp_unit_clause O.name
+ | `LPO ->
+ let module O = Orderings.LPO(B) in
+ let module Main = Main(Paramod.Paramod(O)) in
+ start_msg passives g_passives Pp.pp_unit_clause O.name;
+ Main.run bag g_passives passives Pp.pp_unit_clause O.name
+;;
+