Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merged
authorhaftmann
Wed, 09 Sep 2009 12:29:06 +0200
changeset 32548 b4119bbb2b79
parent 32546 d68b7c181211 (diff)
parent 32547 f3eab1682b0d (current diff)
child 32549 338ccfd37f67
child 32553 bf781ef40c81
merged
--- a/src/Tools/Code/code_thingol.ML	Wed Sep 09 12:24:22 2009 +0200
+++ b/src/Tools/Code/code_thingol.ML	Wed Sep 09 12:29:06 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 **)
isabelle