Added a boolean test function to discriminate equations from predicates

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

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