src/Pure/Isar/constdefs.ML
changeset 28370 37f56e6e702d
parent 28084 a05ca48ef263
child 28965 1de908189869
--- a/src/Pure/Isar/constdefs.ML	Fri Sep 26 09:09:53 2008 +0200
+++ b/src/Pure/Isar/constdefs.ML	Fri Sep 26 09:10:02 2008 +0200
@@ -54,7 +54,7 @@
       thy
       |> Sign.add_consts_i [(c, T, mx)]
       |> PureThy.add_defs false [((name, def), atts)]
-      |-> (fn [thm] => Code.add_default_func thm);
+      |-> (fn [thm] => Code.add_default_eqn thm);
   in ((c, T), thy') end;
 
 fun gen_constdefs prep_vars prep_prop prep_att (raw_structs, specs) thy =