# HG changeset patch
# User wenzelm
# Date 1183586784 -7200
# Node ID f07ef41ffb8721568ec7faf49e8b73b4abf85a34
# Parent  9b5ba76de1c20e206ec3112121cdb606661f94f2
sort_le: tuned eq case;

diff -r 9b5ba76de1c2 -r f07ef41ffb87 src/Pure/sorts.ML
--- a/src/Pure/sorts.ML	Thu Jul 05 00:06:23 2007 +0200
+++ b/src/Pure/sorts.ML	Thu Jul 05 00:06:24 2007 +0200
@@ -136,7 +136,7 @@
 (* sort relations *)
 
 fun sort_le algebra (S1, S2) =
-  forall (fn c2 => exists (fn c1 => class_le algebra (c1, c2)) S1) S2;
+  S1 = S2 orelse forall (fn c2 => exists (fn c1 => class_le algebra (c1, c2)) S1) S2;
 
 fun sorts_le algebra (Ss1, Ss2) =
   ListPair.all (sort_le algebra) (Ss1, Ss2);