author | haftmann |
Wed, 09 Sep 2009 12:27:41 +0200 | |
changeset 32546 | d68b7c181211 |
parent 32545 | 8631b421ffc3 (diff) |
parent 32544 | e129333b9df0 (current diff) |
child 32548 | b4119bbb2b79 |
src/HOL/Mirabelle/MirabelleTest.thy | file | annotate | diff | comparison | revisions | |
src/HOL/Mirabelle/lib/scripts/report.pl | file | annotate | diff | comparison | revisions |
--- a/src/Tools/Code/code_thingol.ML Wed Sep 09 11:31:20 2009 +0200 +++ b/src/Tools/Code/code_thingol.ML Wed Sep 09 12:27:41 2009 +0200 @@ -429,7 +429,7 @@ fun desymbolize_all_vars thy = desymbolize_tvars thy #> map (desymbolize_vars thy); -fun clean_thms thy = same_arity thy #> desymbolize_all_vars thy; +fun clean_thms thy = map (Thm.transfer thy) #> same_arity thy #> desymbolize_all_vars thy; (** statements, abstract programs **)