src/HOL/Tools/recfun_codegen.ML

--- a/src/HOL/Tools/recfun_codegen.ML	Tue May 07 14:24:30 2002 +0200
+++ b/src/HOL/Tools/recfun_codegen.ML	Tue May 07 14:26:32 2002 +0200
@@ -24,7 +24,7 @@
   val empty = Symtab.empty;
   val copy = I;
   val prep_ext = I;
-  val merge = Symtab.merge_multi eq_thm;
+  val merge = Symtab.merge_multi Drule.eq_thm_prop;
   fun print _ _ = ();
 end;