Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sort_le: tuned eq case;
authorwenzelm
Thu, 05 Jul 2007 00:06:24 +0200
changeset 23585 f07ef41ffb87
parent 23584 9b5ba76de1c2
child 23586 7d6b1d800dc4
sort_le: tuned eq case;
src/Pure/sorts.ML file | annotate | diff | comparison | revisions 
--- 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);
isabelle