added various profiling statistics...

[helm.git] / helm / ocaml / paramodulation / discrimination_tree.ml

diff --git a/helm/ocaml/paramodulation/discrimination_tree.ml b/helm/ocaml/paramodulation/discrimination_tree.ml
index b5a2d727472799c4991a9a50702047ad9e37dcc0..443c5c63bc043d12a61d4ff67f881611120a7307 100644 (file)
--- a/helm/ocaml/paramodulation/discrimination_tree.ml
+++ b/helm/ocaml/paramodulation/discrimination_tree.ml
@@ -39,9 +39,10 @@ end
 module PosEqSet = Set.Make(OrderedPosEquality);;
 
 
-(* module DiscriminationTree = Trie.Make(PSMap);; *)
+module DiscriminationTree = Trie.Make(PSMap);;
 
 
+(*
 module DiscriminationTree = struct
   type key = path_string
   type t = Node of PosEqSet.t option * (t PSMap.t)
@@ -91,6 +92,7 @@ module DiscriminationTree = struct
     traverse [] t acc
 
 end
+*)
 
   
 let string_of_discrimination_tree tree =