Porting to ocaml 5

[helm.git] / matita / components / ng_paramodulation / orderings.ml

diff --git a/matita/components/ng_paramodulation/orderings.ml b/matita/components/ng_paramodulation/orderings.ml
index d5f35a3a321c16929177d4af525239dfcac334dc..8da829e750df1e71daff86dde4b93b8cab9d1c4e 100644 (file)
--- 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