X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fparamodulation%2Fdiscrimination_tree.ml;h=254a423327a9de6c48b2c241610e9387c766b064;hb=08791e80816548121e81e04d3ead8c9a5171d033;hp=b5a2d727472799c4991a9a50702047ad9e37dcc0;hpb=04fcadbd9e194847138d97a0a9892a475bc21c88;p=helm.git

diff --git a/helm/ocaml/paramodulation/discrimination_tree.ml b/helm/ocaml/paramodulation/discrimination_tree.ml
index b5a2d7274..254a42332 100644
--- 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 =
@@ -124,7 +126,7 @@ let string_of_discrimination_tree tree =
 
 
 let index tree equality =
-  let _, (_, l, r, ordering), _, _ = equality in
+  let _, _, (_, l, r, ordering), _, _ = equality in
   let psl = path_string_of_term l
   and psr = path_string_of_term r in
   let index pos tree ps =
@@ -144,7 +146,7 @@ let index tree equality =
 
 
 let remove_index tree equality =
-  let _, (_, l, r, ordering), _, _ = equality in
+  let _, _, (_, l, r, ordering), _, _ = equality in
   let psl = path_string_of_term l
   and psr = path_string_of_term r in
   let remove_index pos tree ps =
@@ -168,7 +170,7 @@ let remove_index tree equality =
 
 
 let in_index tree equality =
-  let _, (_, l, r, ordering), _, _ = equality in
+  let _, _, (_, l, r, ordering), _, _ = equality in
   let psl = path_string_of_term l
   and psr = path_string_of_term r in
   let meta_convertibility = Inference.meta_convertibility_eq equality in