author | paulson |
Thu, 24 Aug 2000 12:39:42 +0200 | |
changeset 9686 | 87b460d72e80 |
parent 9685 | 6d123a7e30bd |
child 9687 | 772ac061bd76 |
--- a/src/HOL/Auth/Message.thy Thu Aug 24 12:39:24 2000 +0200 +++ b/src/HOL/Auth/Message.thy Thu Aug 24 12:39:42 2000 +0200 @@ -42,6 +42,9 @@ syntax "@MTuple" :: "['a, args] => 'a * 'b" ("(2{|_,/ _|})") +syntax (xsymbols) + "@MTuple" :: "['a, args] => 'a * 'b" ("(2\\<lbrace>_,/ _\\<rbrace>)") + translations "{|x, y, z|}" == "{|x, {|y, z|}|}" "{|x, y|}" == "MPair x y"