From 2e11e475e62e4f3d6872554fb504d77bf2327b7d Mon Sep 17 00:00:00 2001 From: denes Date: Thu, 25 Jun 2009 08:54:30 +0000 Subject: [PATCH] Fixed insertion of passive clauses --- helm/software/components/ng_paramodulation/paramod.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2