X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Findex.ml;h=36c9dd75e693ec51cf5e168995563113c2b92f66;hb=95adf6dc8e29a71adc34e71eafe3f427990126e0;hp=7a67aa9ad3cf8256c68d8455f0e83287ef78c1d8;hpb=3ca99dabf7d136ebd58fa61e7a2d7134c8dc365c;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/index.ml b/helm/software/components/ng_paramodulation/index.ml
index 7a67aa9ad..36c9dd75e 100644
--- a/helm/software/components/ng_paramodulation/index.ml
+++ b/helm/software/components/ng_paramodulation/index.ml
@@ -44,10 +44,10 @@ module Index(B : Orderings.Blob) = struct
       let path_string_of =
         let rec aux arity = function
           | Terms.Leaf a -> [Constant (a, arity)]
-          | Terms.Var i -> assert (arity = 0); [Variable]
+          | Terms.Var i -> (* assert (arity = 0); *) [Variable]
+	  (* FIXME : should this be allowed or not ? 
           | Terms.Node (Terms.Var _::_) ->
-	      (* FIXME : should this be allowed or not ? *)
-	      assert false
+	      assert false *)
           | Terms.Node ([] | [ _ ] ) -> assert false
           | Terms.Node (Terms.Node _::_) -> assert false	      
           | Terms.Node (hd::tl) ->