author | haftmann |
Thu, 06 Dec 2007 15:10:12 +0100 | |
changeset 25558 | 5c317e8f5673 |
parent 25557 | ea6b11021e79 |
child 25559 | f14305fb698c |
--- a/src/HOL/Tools/function_package/fundef_common.ML Thu Dec 06 15:10:09 2007 +0100 +++ b/src/HOL/Tools/function_package/fundef_common.ML Thu Dec 06 15:10:12 2007 +0100 @@ -302,7 +302,7 @@ local - structure P = OuterParse and K = OuterKeyword + structure P = OuterParse and K = OuterKeyword val option_parser = (P.reserved "sequential" >> K Sequential) || ((P.reserved "default" |-- P.term) >> Default)