src/Pure/Isar/outer_parse.ML
changeset 19007 0f7b92f75df7
parent 18898 e3d2aa8ba0e1
child 19187 0c1ba28eaa17
equal deleted inserted replaced
19006:2427684c201c 19007:0f7b92f75df7
   399     (and_list1 (Scan.repeat1 prop) >> List.concat));
   399     (and_list1 (Scan.repeat1 prop) >> List.concat));
   400 
   400 
   401 val general_statement =
   401 val general_statement =
   402   statement >> (fn x => ([], Element.Shows x)) ||
   402   statement >> (fn x => ([], Element.Shows x)) ||
   403   Scan.repeat locale_element --
   403   Scan.repeat locale_element --
   404    ($$$ "shows" |-- !!! statement >> Element.Shows ||
   404    ($$$ "obtains" |-- !!! (enum1 "|" obtain_case) >> Element.Obtains ||
   405     $$$ "obtains" |-- !!! (enum1 "|" obtain_case) >> Element.Obtains);
   405     $$$ "shows" |-- !!! statement >> Element.Shows);
   406 
   406 
   407 val statement_keyword = $$$ "shows" || $$$ "obtains";
   407 val statement_keyword =  $$$ "obtains" || $$$ "shows";
   408 
   408 
   409 
   409 
   410 (* proof methods *)
   410 (* proof methods *)
   411 
   411 
   412 fun is_symid_meth s =
   412 fun is_symid_meth s =