| 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 =