# HG changeset patch
# User wenzelm
# Date 787397190 -3600
# Node ID 9ab8873bf9b3c0bb62417d9791b4812bf704ccf2
# Parent  567f1fe7ea390f22464ba73a407343e1d4cea529
added any, sprop to pure_types;

diff -r 567f1fe7ea39 -r 9ab8873bf9b3 src/Pure/Syntax/mixfix.ML
--- 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 "_"),