equal
deleted
inserted
replaced
311 |
311 |
312 val mode = @{keyword "("} |-- Parse.name --| @{keyword ")"}; |
312 val mode = @{keyword "("} |-- Parse.name --| @{keyword ")"}; |
313 |
313 |
314 val _ = |
314 val _ = |
315 Outer_Syntax.local_theory @{command_keyword partial_function} "define partial function" |
315 Outer_Syntax.local_theory @{command_keyword partial_function} "define partial function" |
316 ((mode -- (Parse.fixes -- (Parse.where_ |-- Parse_Spec.simple_spec))) |
316 ((mode -- (Parse.vars -- (Parse.where_ |-- Parse_Spec.simple_spec))) |
317 >> (fn (mode, (fixes, spec)) => add_partial_function_cmd mode fixes spec)); |
317 >> (fn (mode, (vars, spec)) => add_partial_function_cmd mode vars spec)); |
318 |
318 |
319 end; |
319 end; |