parameter sintax added to axiom statement

[helm.git] / helm / software / components / ng_paramodulation / index.ml

diff --git a/helm/software/components/ng_paramodulation/index.ml b/helm/software/components/ng_paramodulation/index.ml
index b6ca890b2c3ee9c777f70246c7a45a3932c5ab9a..36c9dd75e693ec51cf5e168995563113c2b92f66 100644 (file)
--- 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) ->
@@ -102,6 +102,12 @@ module Index(B : Orderings.Blob) = struct
   let remove_unit_clause =
     process DT.remove_index 
 
+  let fold = DT.fold 
+
+  let elems index =
+    DT.fold index (fun _ dataset acc -> ClauseSet.union dataset acc)
+      ClauseSet.empty
+    
   type active_set = B.t Terms.unit_clause list * DT.t
 
 end