X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_paramodulation%2Forderings.ml;h=8da829e750df1e71daff86dde4b93b8cab9d1c4e;hb=e082eec771e24842f29a01fa258f7c80bc2db599;hp=d5f35a3a321c16929177d4af525239dfcac334dc;hpb=2815c74c03f38089d0e27aba00e2280223b0f76f;p=helm.git

diff --git a/matita/components/ng_paramodulation/orderings.ml b/matita/components/ng_paramodulation/orderings.ml
index d5f35a3a3..8da829e75 100644
--- a/matita/components/ng_paramodulation/orderings.ml
+++ b/matita/components/ng_paramodulation/orderings.ml
@@ -130,7 +130,7 @@ let compare_weights (h1, w1) (h2, w2) =
       | ((var1, w1)::tl1) as l1, (((var2, w2)::tl2) as l2) ->
           if var1 = var2 then
             let diffs = (w1 - w2) + diffs in
-            let r = Pervasives.compare w1 w2 in
+            let r = Stdlib.compare w1 w2 in
             let lt = lt || (r < 0) in
             let gt = gt || (r > 0) in
               if lt && gt then XINCOMPARABLE else