xsymbols for leads-to and Join

--- a/src/HOL/UNITY/SubstAx.thy	Thu Aug 24 11:14:21 2000 +0200
+++ b/src/HOL/UNITY/SubstAx.thy	Thu Aug 24 12:39:24 2000 +0200
@@ -15,4 +15,7 @@
    LeadsTo :: "['a set, 'a set] => 'a program set"            (infixl 60)
     "A LeadsTo B == {F. F : (reachable F Int A) leadsTo B}"
 
+syntax (xsymbols)
+  "op LeadsTo" :: "['a set, 'a set] => 'a program set" (infixl " \\<longmapsto>w " 60)
+
 end

--- a/src/HOL/UNITY/Union.thy	Thu Aug 24 11:14:21 2000 +0200
+++ b/src/HOL/UNITY/Union.thy	Thu Aug 24 12:39:24 2000 +0200
@@ -29,4 +29,10 @@
   "JN x y. B"   == "JN x. JN y. B"
   "JN x. B"     == "JOIN UNIV (%x. B)"
 
+syntax (symbols)
+  SKIP      :: 'a program                              ("\\<bottom>")
+  "op Join" :: ['a program, 'a program] => 'a program  (infixl "\\<squnion>" 65)
+  "@JOIN1"  :: [pttrns, 'b set] => 'b set              ("(3\\<Squnion> _./ _)" 10)
+  "@JOIN"   :: [pttrn, 'a set, 'b set] => 'b set       ("(3\\<Squnion> _:_./ _)" 10)
+
 end

--- a/src/HOL/UNITY/WFair.thy	Thu Aug 24 11:14:21 2000 +0200
+++ b/src/HOL/UNITY/WFair.thy	Thu Aug 24 12:39:24 2000 +0200
@@ -52,4 +52,7 @@
   wlt :: "['a program, 'a set] => 'a set"
     "wlt F B == Union {A. F: A leadsTo B}"
 
+syntax (xsymbols)
+  "op leadsTo" :: "['a set, 'a set] => 'a program set" (infixl "\\<longmapsto>" 60)
+
 end