# HG changeset patch
# User wenzelm
# Date 1208268735 -7200
# Node ID 62fff5feb75636f30ce6580e54691c3d3ef14fa8
# Parent  750bab48223da7eed23b9f3d3d38e8a745ab7ac5
Library.is_equal;

diff -r 750bab48223d -r 62fff5feb756 src/Pure/General/file.ML
--- a/src/Pure/General/file.ML	Tue Apr 15 16:12:13 2008 +0200
+++ b/src/Pure/General/file.ML	Tue Apr 15 16:12:15 2008 +0200
@@ -141,7 +141,7 @@
 
 fun eq paths =
   (case try (pairself (OS.FileSys.fileId o platform_path)) paths of
-    SOME ids => OS.FileSys.compare ids = EQUAL
+    SOME ids => is_equal (OS.FileSys.compare ids)
   | NONE => false);
 
 fun copy src dst =
diff -r 750bab48223d -r 62fff5feb756 src/Pure/Isar/rule_cases.ML
--- a/src/Pure/Isar/rule_cases.ML	Tue Apr 15 16:12:13 2008 +0200
+++ b/src/Pure/Isar/rule_cases.ML	Tue Apr 15 16:12:15 2008 +0200
@@ -321,7 +321,7 @@
 local
 
 fun equal_cterms ts us =
-  list_ord (Term.fast_term_ord o pairself Thm.term_of) (ts, us) = EQUAL;
+  is_equal (list_ord (Term.fast_term_ord o pairself Thm.term_of) (ts, us));
 
 fun prep_rule n th =
   let