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