From: denes <??>
Date: Thu, 25 Jun 2009 08:54:30 +0000 (+0000)
Subject: Fixed insertion of passive clauses
X-Git-Tag: make_still_working~3805
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=2e11e475e62e4f3d6872554fb504d77bf2327b7d;p=helm.git

Fixed insertion of passive clauses
---

diff --git a/helm/software/components/ng_paramodulation/paramod.ml b/helm/software/components/ng_paramodulation/paramod.ml
index 787bb522e..98bfdde65 100644
--- a/helm/software/components/ng_paramodulation/paramod.ml
+++ b/helm/software/components/ng_paramodulation/paramod.ml
@@ -35,7 +35,7 @@ let nparamod rdb metasenv subst context t table =
   in
   let module WeightPassiveSet = Set.Make(WeightOrderedPassives) in
   let module AgePassiveSet = Set.Make(AgeOrderedPassives) in
-  let add_passive_clause ?(no_weight=true) (passives_w,passives_a) cl =
+  let add_passive_clause ?(no_weight=false) (passives_w,passives_a) cl =
     let cl = if no_weight then (0,cl)
     else Utils.mk_passive_clause cl in
     WeightPassiveSet.add cl passives_w, AgePassiveSet.add cl passives_a