--- a/src/HOL/Prod.thy Mon Mar 20 15:37:03 1995 +0100 +++ b/src/HOL/Prod.thy Tue Mar 21 13:21:48 1995 +0100 @@ -58,7 +58,7 @@ unit = "{p. p = True}" consts - Unity :: "unit" ("<>") + Unity :: "unit" ("'(')") defs Unity_def "Unity == Abs_Unit(True)"