X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Findex.ml;h=c7a0edcca2bff6e43d7d8165278ae0668f7ebcd4;hb=95a14ced97592a4116485f94c6ffa806feb62dbc;hp=889e1e7ef14955960fb1b88bbb7d8f40581ecf1c;hpb=948bb5d710c5d7f3185b6fef76c8e71f247cc664;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/index.ml b/helm/software/components/ng_paramodulation/index.ml
index 889e1e7ef..c7a0edcca 100644
--- a/helm/software/components/ng_paramodulation/index.ml
+++ b/helm/software/components/ng_paramodulation/index.ml
@@ -16,16 +16,16 @@ module Index(B : Orderings.Blob) = struct
 
   module ClauseOT =
     struct 
-      type t = Terms.direction * B.t Terms.unit_clause
+      type t = Terms.direction * B.t Terms.clause
  
       let compare (d1,uc1) (d2,uc2) = 
         let c = Pervasives.compare d1 d2 in
-        if c <> 0 then c else U.compare_unit_clause uc1 uc2
+        if c <> 0 then c else U.compare_clause uc1 uc2
       ;;
     end
 
   module ClauseSet : 
-    Set.S with type elt = Terms.direction * B.t Terms.unit_clause
+    Set.S with type elt = Terms.direction * B.t Terms.clause
     = Set.Make(ClauseOT)
 
   open Discrimination_tree
@@ -79,7 +79,7 @@ module Index(B : Orderings.Blob) = struct
       type dataset = ClauseSet.t
     = Make(FotermIndexable)(ClauseSet)
 
-  let index_unit_clause t = function
+  let index_clause t = function
     | (_,Terms.Equation (l,_,_,Terms.Gt),_,_) as c -> 
           DT.index t l (Terms.Left2Right, c)
     | (_,Terms.Equation (_,r,_,Terms.Lt),_,_) as c -> 
@@ -93,6 +93,6 @@ module Index(B : Orderings.Blob) = struct
           DT.index t p (Terms.Nodir, c)
   ;;
 
-  type active_set = B.t Terms.unit_clause list * DT.t
+  type active_set = B.t Terms.clause list * DT.t
 
 end