X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fparamodulation%2Fdiscrimination_tree.ml;fp=helm%2Focaml%2Fparamodulation%2Fdiscrimination_tree.ml;h=b5a2d727472799c4991a9a50702047ad9e37dcc0;hb=04fcadbd9e194847138d97a0a9892a475bc21c88;hp=9470e1bdec34d17edde11a06eb51b252dbbe21b9;hpb=9a960326e6cbdc9f21d35843d55ea5593ffe0c1b;p=helm.git

diff --git a/helm/ocaml/paramodulation/discrimination_tree.ml b/helm/ocaml/paramodulation/discrimination_tree.ml
index 9470e1bde..b5a2d7274 100644
--- a/helm/ocaml/paramodulation/discrimination_tree.ml
+++ b/helm/ocaml/paramodulation/discrimination_tree.ml
@@ -39,10 +39,9 @@ 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)
@@ -92,8 +91,8 @@ module DiscriminationTree = struct
     traverse [] t acc
 
 end
-*)
 
+  
 let string_of_discrimination_tree tree =
   let rec to_string level = function
     | DiscriminationTree.Node (value, map) ->