src/Pure/Syntax/mixfix.ML
changeset 12149 7cf8574102d5
parent 12121 55b71be171c5
child 12512 ab14b29dfc6d
--- a/src/Pure/Syntax/mixfix.ML	Sun Nov 11 21:37:44 2001 +0100
+++ b/src/Pure/Syntax/mixfix.ML	Sun Nov 11 21:38:04 2001 +0100
@@ -31,6 +31,7 @@
   val mixfix_args: mixfix -> int
   val pure_nonterms: string list
   val pure_syntax: (string * string * mixfix) list
+  val pure_syntax_output: (string * string * mixfix) list
   val pure_appl_syntax: (string * string * mixfix) list
   val pure_applC_syntax: (string * string * mixfix) list
   val pure_xsym_syntax: (string * string * mixfix) list
@@ -240,6 +241,10 @@
   ("_noindex",     "index",                         Delimfix ""),
   ("_struct",      "index => logic",                Delimfix "\\<struct>_")];
 
+val pure_syntax_output =
+ [("Goal", "prop => prop", Mixfix ("_", [0], 0)),
+  ("_meta_conjunction", "prop => prop => prop", InfixrName ("&&", 2))];
+
 val pure_appl_syntax =
  [("_appl", "[('b => 'a), args] => logic", Mixfix ("(1_/(1'(_')))", [SynExt.max_pri, 0], SynExt.max_pri)),
   ("_appl", "[('b => 'a), args] => aprop", Mixfix ("(1_/(1'(_')))", [SynExt.max_pri, 0], SynExt.max_pri))];