Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Isar/constdefs.ML
changeset 32662 2faf1148c062
parent 30763 6976521b4263
child 33389 bb3a5fa94a91 
--- a/src/Pure/Isar/constdefs.ML	Wed Sep 23 16:20:12 2009 +0200
+++ b/src/Pure/Isar/constdefs.ML	Wed Sep 23 16:20:12 2009 +0200
@@ -52,7 +52,7 @@
       thy
       |> Sign.add_consts_i [(b, T, mx)]
       |> PureThy.add_defs false [((name, def), atts)]
-      |-> (fn [thm] => Code.add_default_eqn thm);
+      |-> (fn [thm] => Code.add_default_eqn thm #> Context.theory_map (Predicate_Compile_Preproc_Const_Defs.add_thm thm));
   in ((c, T), thy') end;
 
 fun gen_constdefs prep_vars prep_prop prep_att (raw_structs, specs) thy =
isabelle