X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fextlib%2FpatternMatcher.ml;h=4e3e75fa560234aca5d7577219b0df9775e08b22;hb=6b76c5b3b82753966cabffd8536d8dd9f8cada20;hp=fa8c6061ecc92ecbf767b7fef39e651a8aece27a;hpb=aa5c8c99c9f7ae285883cff133fc02b3d064888c;p=helm.git

diff --git a/matita/components/extlib/patternMatcher.ml b/matita/components/extlib/patternMatcher.ml
index fa8c6061e..4e3e75fa5 100644
--- a/matita/components/extlib/patternMatcher.ml
+++ b/matita/components/extlib/patternMatcher.ml
@@ -33,7 +33,7 @@ type pattern_id = int
 module OrderedInt =
 struct
   type t = int
-  let compare (x1:t) (x2:t) = Pervasives.compare x2 x1  (* reverse order *)
+  let compare (x1:t) (x2:t) = Stdlib.compare x2 x1  (* reverse order *)
 end
 
 module IntSet = Set.Make (OrderedInt)