src/HOL/Tools/function_package/fundef_package.ML
changeset 25045 12386aefe9ac
parent 24977 9f98751c9628
child 25088 9a13ab12b174
equal deleted inserted replaced
25044:de1f50ab668d 25045:12386aefe9ac
   266 
   266 
   267 (* outer syntax *)
   267 (* outer syntax *)
   268 
   268 
   269 local structure P = OuterParse and K = OuterKeyword in
   269 local structure P = OuterParse and K = OuterKeyword in
   270 
   270 
   271 val _ = OuterSyntax.keywords ["sequential", "otherwise"];
   271 val _ = OuterSyntax.keywords ["otherwise"];
   272 
   272 
   273 val _ =
   273 val _ =
   274   OuterSyntax.command "function" "define general recursive functions" K.thy_goal
   274   OuterSyntax.command "function" "define general recursive functions" K.thy_goal
   275   (fundef_parser default_config
   275   (fundef_parser default_config
   276      >> (fn ((config, fixes), (flags, statements)) =>
   276      >> (fn ((config, fixes), (flags, statements)) =>