author | wenzelm |
Sat, 07 Oct 2006 01:31:02 +0200 | |
changeset 20874 | 1316db481944 |
parent 20873 | 4066ee15b278 |
child 20875 | 95d24e8d117e |
--- a/src/HOL/Tools/function_package/fundef_common.ML Sat Oct 07 01:31:01 2006 +0200 +++ b/src/HOL/Tools/function_package/fundef_common.ML Sat Oct 07 01:31:02 2006 +0200 @@ -200,6 +200,7 @@ val empty = [] val extend = I fun merge _ (l1, l2) = l1 @ l2 + (* FIXME exponential blowup! cf. Library.merge, Drule.merge_rules *) fun print _ _ = () end);