--- a/src/Pure/Syntax/mixfix.ML Wed Dec 14 10:24:54 1994 +0100
+++ b/src/Pure/Syntax/mixfix.ML Wed Dec 14 10:26:30 1994 +0100
@@ -140,10 +140,10 @@
val pure_types =
map (fn t => (t, 0, NoSyn))
(terminals @ [logic, "type", "types", "sort", "classes", args, "idt",
- "idts", "aprop", "asms"]);
+ "idts", "aprop", "asms", any, sprop]);
val pure_syntax =
- [("_lambda", "[idts, 'a] => ('b => 'a)", Mixfix ("(3%_./ _)", [], 0)),
+ [("_lambda", "[idts, 'a] => logic", Mixfix ("(3%_./ _)", [], 0)),
("", "'a => " ^ args, Delimfix "_"),
("_args", "['a, " ^ args ^ "] => " ^ args, Delimfix "_,/ _"),
("", "id => idt", Delimfix "_"),