equal
deleted
inserted
replaced
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 = |