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: 0.4.95@7852~1277
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6748a937ed94b3adbeabc0d24803efba63c5cd93;p=helm.git

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

diff --git a/components/tactics/paramodulation/utils.ml b/components/tactics/paramodulation/utils.ml
index a25ba8e2d..542c2dd77 100644
--- a/components/tactics/paramodulation/utils.ml
+++ b/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