src/HOL/UNITY/Union.thy
changeset 9685 6d123a7e30bd
parent 8055 bb15396278fb
child 10064 1a77667b21ef
     1.1 --- a/src/HOL/UNITY/Union.thy	Thu Aug 24 11:14:21 2000 +0200
     1.2 +++ b/src/HOL/UNITY/Union.thy	Thu Aug 24 12:39:24 2000 +0200
     1.3 @@ -29,4 +29,10 @@
     1.4    "JN x y. B"   == "JN x. JN y. B"
     1.5    "JN x. B"     == "JOIN UNIV (%x. B)"
     1.6  
     1.7 +syntax (symbols)
     1.8 +  SKIP      :: 'a program                              ("\\<bottom>")
     1.9 +  "op Join" :: ['a program, 'a program] => 'a program  (infixl "\\<squnion>" 65)
    1.10 +  "@JOIN1"  :: [pttrns, 'b set] => 'b set              ("(3\\<Squnion> _./ _)" 10)
    1.11 +  "@JOIN"   :: [pttrn, 'a set, 'b set] => 'b set       ("(3\\<Squnion> _:_./ _)" 10)
    1.12 +
    1.13  end