# HG changeset patch
# User wenzelm
# Date 902215327 -7200
# Node ID 0cec0b591d4ce9f98c8941fa8a6a1aede5bcbc07
# Parent  c404f25c58e8c06ee342edae97b26799651b0c5f
fixed disjount translation;

diff -r c404f25c58e8 -r 0cec0b591d4c src/HOL/Set.thy
--- a/src/HOL/Set.thy	Tue Aug 04 09:21:44 1998 +0200
+++ b/src/HOL/Set.thy	Tue Aug 04 09:22:07 1998 +0200
@@ -89,7 +89,6 @@
   "? x:A. P"    == "Bex A (%x. P)"
   "ALL x:A. P"  => "Ball A (%x. P)"
   "EX x:A. P"   => "Bex A (%x. P)"
-  "disjoint A B" == "A <= Compl B"
 
 syntax ("" output)
   "_setle"      :: ['a set, 'a set] => bool           ("op <=")
@@ -126,6 +125,7 @@
 translations
   "op \\<subseteq>" => "op <= :: [_ set, _ set] => bool"
   "op \\<subset>" => "op <  :: [_ set, _ set] => bool"
+  "disjoint A B" == "_setle A (Compl B)"