author | krauss |
Wed, 02 Aug 2006 18:33:46 +0200 | |
changeset 20285 | 23f5cd23c1e1 |
parent 20284 | a17c737c82df |
child 20286 | 4cf8e86a2d29 |
--- a/src/HOL/Tools/function_package/fundef_package.ML Wed Aug 02 18:30:57 2006 +0200 +++ b/src/HOL/Tools/function_package/fundef_package.ML Wed Aug 02 18:33:46 2006 +0200 @@ -76,7 +76,7 @@ add_fundef_data name (fundef_data, mutual_info, spec) thy end -fun gen_add_fundef prep_att eqns_attss preprocess thy = +fun gen_add_fundef prep_att eqns_attss (preprocess : bool) thy = let fun prep_eqns neqs = neqs