src/Pure/Isar/outer_parse.ML
changeset 19187 0c1ba28eaa17
parent 19007 0f7b92f75df7
child 19223 ccdaf84bab59
equal deleted inserted replaced
19186:1bf4b5c4a794 19187:0c1ba28eaa17
   416  (position (xname >> rpair []) >> (Method.Source o Args.src) ||
   416  (position (xname >> rpair []) >> (Method.Source o Args.src) ||
   417   $$$ "(" |-- !!! (meth0 --| $$$ ")")) x
   417   $$$ "(" |-- !!! (meth0 --| $$$ ")")) x
   418 and meth3 x =
   418 and meth3 x =
   419  (meth4 --| $$$ "?" >> Method.Try ||
   419  (meth4 --| $$$ "?" >> Method.Try ||
   420   meth4 --| $$$ "+" >> Method.Repeat1 ||
   420   meth4 --| $$$ "+" >> Method.Repeat1 ||
       
   421   meth4 -- ($$$ "[" |-- nat --| $$$ "]") >> (Method.SelectGoals o swap) ||
   421   meth4) x
   422   meth4) x
   422 and meth2 x =
   423 and meth2 x =
   423  (position (xname -- args1 is_symid_meth false) >> (Method.Source o Args.src) ||
   424  (position (xname -- args1 is_symid_meth false) >> (Method.Source o Args.src) ||
   424   meth3) x
   425   meth3) x
   425 and meth1 x = (enum1 "," meth2 >> (fn [m] => m | ms => Method.Then ms)) x
   426 and meth1 x = (enum1 "," meth2 >> (fn [m] => m | ms => Method.Then ms)) x