From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 27 Jun 2006 16:49:29 +0000 (+0000)
Subject: the old compute_eq_weight is back (no more max)
X-Git-Tag: make_still_working~7143
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=932763c609e3a8e32ef4d888a6987a71f0d29825;p=helm.git

the old compute_eq_weight is back (no more max)
---

diff --git a/helm/software/components/tactics/paramodulation/utils.ml b/helm/software/components/tactics/paramodulation/utils.ml
index a25ba8e2d..542c2dd77 100644
--- a/helm/software/components/tactics/paramodulation/utils.ml
+++ b/helm/software/components/tactics/paramodulation/utils.ml
@@ -318,7 +318,7 @@ let compute_equality_weight (ty,left,right,o) =
 	       ~consider_metas:true ~count_metas_occurrences:false right) in
       let w2, m2 = (weight_of_term 
 	       ~consider_metas:true ~count_metas_occurrences:false left) in
-      (max w1 w2)+(max (factor * (List.length m1)) (factor * (List.length m2)))
+      w1 + w2 + (factor * (List.length m1)) + (factor * (List.length m2))
 ;;
 
 (* old