# HG changeset patch
# User haftmann
# Date 1252492032 -7200
# Node ID 8631b421ffc37ad8a3bb4ec10becb8747d307d9c
# Parent  a579bc82e932a1ced905418a7a19ffd6f6fa0ec7
explicit transfer avoids spurious merge problems

diff -r a579bc82e932 -r 8631b421ffc3 src/Tools/Code/code_thingol.ML
--- a/src/Tools/Code/code_thingol.ML	Thu Sep 03 22:48:18 2009 +0200
+++ b/src/Tools/Code/code_thingol.ML	Wed Sep 09 12:27:12 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 **)