Added a boolean test function to discriminate equations from predicates

diff --git a/helm/software/components/ng_paramodulation/terms.ml b/helm/software/components/ng_paramodulation/terms.ml
index 3947107eab8bfeea1ba1866f49b60fd9e3328e68..61b027d72d690cd564291ac813cb70f0324ca4e2 100644 (file)
--- a/helm/software/components/ng_paramodulation/terms.ml
+++ b/helm/software/components/ng_paramodulation/terms.ml
@@ -46,6 +46,11 @@ type 'a unit_clause =
 
 type 'a passive_clause = int * 'a unit_clause (* weight * equation *)
 
+let is_eq_clause (_,l,_,_) =
+  match l with
+    | Equation _ -> true
+    | Predicate _ -> false
+;;
 
 let vars_of_term t =
   let rec aux acc = function

diff --git a/helm/software/components/ng_paramodulation/terms.mli b/helm/software/components/ng_paramodulation/terms.mli
index 0146dba2c6865ef1c60b7930d9d84fe1b5aa234a..03bdddb89fb55d94f500bfc7366c3f089e5a24a4 100644 (file)
--- a/helm/software/components/ng_paramodulation/terms.mli
+++ b/helm/software/components/ng_paramodulation/terms.mli
@@ -52,6 +52,7 @@ type 'a unit_clause =
 
 type 'a passive_clause = int * 'a unit_clause (* weight * equation *)
 
+val is_eq_clause : 'a unit_clause -> bool
 val vars_of_term : 'a foterm -> int list
 
 module M : Map.S with type key = int