X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoUtils.ml;fp=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoUtils.ml;h=7b192579df5a55be16d38693deb120f8ea34a8b4;hb=4693f3b9de6d867921b51f61e9a7dc36c3da1b77;hp=6f36d5939dad21ef02fad09c2c8d3af1fee45dd3;hpb=bebc917ebff72c2e235cb3062a4c94f10a9aab27;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/foUtils.ml b/helm/software/components/ng_paramodulation/foUtils.ml
index 6f36d5939..7b192579d 100644
--- 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