src/Pure/Syntax/mixfix.ML
changeset 7471 38823cea751f
parent 6929 16ee7b14a2c1
child 9734 3a9f1931b30c
equal deleted inserted replaced
7470:9f67ca1e03dc 7471:38823cea751f
   184   ("",             "pttrn => pttrns",               Delimfix "_"),
   184   ("",             "pttrn => pttrns",               Delimfix "_"),
   185   ("_pttrns",      "[pttrn, pttrns] => pttrns",     Mixfix ("_/ _", [1, 0], 0)),
   185   ("_pttrns",      "[pttrn, pttrns] => pttrns",     Mixfix ("_/ _", [1, 0], 0)),
   186   ("",             "id => aprop",                   Delimfix "_"),
   186   ("",             "id => aprop",                   Delimfix "_"),
   187   ("",             "longid => aprop",               Delimfix "_"),
   187   ("",             "longid => aprop",               Delimfix "_"),
   188   ("",             "var => aprop",                  Delimfix "_"),
   188   ("",             "var => aprop",                  Delimfix "_"),
   189   ("_BIND",        "id => aprop",                   Delimfix "??_"),
       
   190   ("_DDDOT",       "aprop",                         Delimfix "..."),
   189   ("_DDDOT",       "aprop",                         Delimfix "..."),
   191   ("_aprop",       "aprop => prop",                 Delimfix "PROP _"),
   190   ("_aprop",       "aprop => prop",                 Delimfix "PROP _"),
   192   ("",             "prop => asms",                  Delimfix "_"),
   191   ("",             "prop => asms",                  Delimfix "_"),
   193   ("_asms",        "[prop, asms] => asms",          Delimfix "_;/ _"),
   192   ("_asms",        "[prop, asms] => asms",          Delimfix "_;/ _"),
   194   ("_bigimpl",     "[asms, prop] => prop",          Mixfix ("((3[| _ |])/ ==> _)", [0, 1], 1)),
   193   ("_bigimpl",     "[asms, prop] => prop",          Mixfix ("((3[| _ |])/ ==> _)", [0, 1], 1)),
   197   ("_TYPE",        "type => logic",                 Delimfix "(1TYPE/(1'(_')))"),
   196   ("_TYPE",        "type => logic",                 Delimfix "(1TYPE/(1'(_')))"),
   198   ("_K",           "_",                             NoSyn),
   197   ("_K",           "_",                             NoSyn),
   199   ("",             "id => logic",                   Delimfix "_"),
   198   ("",             "id => logic",                   Delimfix "_"),
   200   ("",             "longid => logic",               Delimfix "_"),
   199   ("",             "longid => logic",               Delimfix "_"),
   201   ("",             "var => logic",                  Delimfix "_"),
   200   ("",             "var => logic",                  Delimfix "_"),
   202   ("_BIND",        "id => logic",                   Delimfix "??_"),
       
   203   ("_DDDOT",       "logic",                         Delimfix "...")];
   201   ("_DDDOT",       "logic",                         Delimfix "...")];
   204 
   202 
   205 val pure_appl_syntax =
   203 val pure_appl_syntax =
   206  [("_appl", "[('b => 'a), args] => logic", Mixfix ("(1_/(1'(_')))", [SynExt.max_pri, 0], SynExt.max_pri)),
   204  [("_appl", "[('b => 'a), args] => logic", Mixfix ("(1_/(1'(_')))", [SynExt.max_pri, 0], SynExt.max_pri)),
   207   ("_appl", "[('b => 'a), args] => aprop", Mixfix ("(1_/(1'(_')))", [SynExt.max_pri, 0], SynExt.max_pri))];
   205   ("_appl", "[('b => 'a), args] => aprop", Mixfix ("(1_/(1'(_')))", [SynExt.max_pri, 0], SynExt.max_pri))];