removed ocaml equality on equations

[helm.git] / components / tactics / paramodulation / saturation.ml

diff --git a/components/tactics/paramodulation/saturation.ml b/components/tactics/paramodulation/saturation.ml
index fac0197df0ca1add3502bc0c599da4305727db0a..d5da5485f72526bc4ded022d3953dc7acd5ff50e 100644 (file)
--- a/components/tactics/paramodulation/saturation.ml
+++ b/components/tactics/paramodulation/saturation.ml
@@ -112,7 +112,7 @@ module OrderedEquality = struct
         | 0 -> 
             let res = (List.length m1) - (List.length m2) in 
             if res <> 0 then res else 
-              Pervasives.compare eq1 eq2
+              Equality.compare eq1 eq2
         | res -> res 
 end