code nofunc now permits theorems violating typing discipline
authorhaftmann
Fri, 20 Oct 2006 10:44:53 +0200
changeset 21066 ce6759d1d0b4
parent 21065 42669b5bf98e
child 21067 2a5dba84986a
code nofunc now permits theorems violating typing discipline
src/Pure/Tools/codegen_data.ML
--- a/src/Pure/Tools/codegen_data.ML	Fri Oct 20 10:44:51 2006 +0200
+++ b/src/Pure/Tools/codegen_data.ML	Fri Oct 20 10:44:53 2006 +0200
@@ -75,7 +75,7 @@
   | NONE => ["[...]"];
 
 fun pretty_lthms ctxt r = case Susp.peek r
- of SOME thms => (map (ProofContext.pretty_thm ctxt) o rev) thms
+ of SOME thms => map (ProofContext.pretty_thm ctxt) thms
   | NONE => [Pretty.str "[...]"];
 
 fun certificate thy f r =
@@ -642,7 +642,7 @@
 
 fun del_func thm thy =
   let
-    val thms = mk_func thy thm;
+    val thms = setmp strict_functyp false (mk_func thy) thm;
     val cs = map fst thms;
   in
     map_exec_purge (SOME cs) (map_funcs