]> matita.cs.unibo.it Git - helm.git/commitdiff
removed ocaml equality on equations
authorAndrea Asperti <andrea.asperti@unibo.it>
Wed, 26 Apr 2006 13:23:29 +0000 (13:23 +0000)
committerAndrea Asperti <andrea.asperti@unibo.it>
Wed, 26 Apr 2006 13:23:29 +0000 (13:23 +0000)
components/tactics/paramodulation/saturation.ml

index fac0197df0ca1add3502bc0c599da4305727db0a..d5da5485f72526bc4ded022d3953dc7acd5ff50e 100644 (file)
@@ -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