Fixed pretty printer and debug printings

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

diff --git a/helm/software/components/ng_paramodulation/foUtils.ml b/helm/software/components/ng_paramodulation/foUtils.ml
index 6f36d5939dad21ef02fad09c2c8d3af1fee45dd3..7b192579df5a55be16d38693deb120f8ea34a8b4 100644 (file)
--- a/helm/software/components/ng_paramodulation/foUtils.ml
+++ b/helm/software/components/ng_paramodulation/foUtils.ml
@@ -109,8 +109,8 @@ module Utils (B : Orderings.Blob) = struct
       match ty with
       | Terms.Node [ Terms.Leaf eq ; ty; l; r ] when B.eq B.eqP eq ->
            let o = Order.compare_terms l r in
-           (vars,(Terms.Equation (l, r, ty, o),false)::literals)
-      | _ -> (vars,(Terms.Predicate ty,false)::literals)
+           (vars,(Terms.Equation (l, r, ty, o),true)::literals)
+      | _ -> (vars,(Terms.Predicate ty,true)::literals)
     in
     let varlist = Terms.vars_of_term proofterm in
     let (varlist,nlit) = List.fold_left foterm_to_lit (varlist,[]) nlit in