src/HOL/Tools/Function/partial_function.ML
changeset 63285 e9c777bfd78c
parent 63182 b065b4833092
child 66653 52bf9f67a3c9
equal deleted inserted replaced
63284:c20946f5b6fb 63285:e9c777bfd78c
   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;