author | haftmann |
Thu, 17 May 2007 19:49:21 +0200 | |
changeset 22996 | 5f82c5f8478e |
parent 22995 | d8b4f2dc2b1d |
child 22997 | d4f3b015b50b |
--- a/src/Pure/Tools/codegen_func.ML Thu May 17 19:49:20 2007 +0200 +++ b/src/Pure/Tools/codegen_func.ML Thu May 17 19:49:21 2007 +0200 @@ -109,7 +109,7 @@ val _ = map (check 0) args; in thm end; -val mk_func = assert_func o Conv.fconv_rule Drule.beta_eta_conversion o mk_rew; +val mk_func = assert_func o (*Conv.fconv_rule Drule.beta_eta_conversion o *)mk_rew; fun head_func thm = let