X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Findex.ml;h=ca30c9b504ef126f72620205c5f2b586e949783c;hb=6b0a195b180e3526af7b55771b2df7b10acd7c30;hp=d07fba8a44a78b180a5578912e03c1e43c0080f0;hpb=6c4056ea40b96039f24eeda9a1e1900c95bad7c8;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/index.ml b/helm/software/components/ng_paramodulation/index.ml
index d07fba8a4..ca30c9b50 100644
--- a/helm/software/components/ng_paramodulation/index.ml
+++ b/helm/software/components/ng_paramodulation/index.ml
@@ -12,7 +12,7 @@
 (* $Id$ *)
 
 module Index(B : Terms.Blob) = struct
-  module U = Terms.Utils(B)
+  module U = FoUtils.Utils(B)
 
   module ClauseOT =
     struct 
@@ -43,9 +43,11 @@ module Index(B : Terms.Blob) = struct
         let rec aux arity = function
           | Terms.Leaf a -> [Constant (a, arity)]
           | Terms.Var i -> assert (arity = 0); [Variable]
-          | Terms.Node (Terms.Var _::_) -> assert false
+          | Terms.Node (Terms.Var _::_) ->
+	      (* FIXME : should this be allowed or not ? *)
+	      assert false
           | Terms.Node ([] | [ _ ] ) -> assert false
-          | Terms.Node (Terms.Node _::_) -> assert false
+          | Terms.Node (Terms.Node _::_) -> assert false	      
           | Terms.Node (hd::tl) ->
               aux (List.length tl) hd @ List.flatten (List.map (aux 0) tl) 
         in