diff -r 1e7896c7f781 -r 58b87aa4dc3b src/HOL/BNF/Tools/bnf_gfp.ML
--- a/src/HOL/BNF/Tools/bnf_gfp.ML	Mon Jul 15 11:29:19 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_gfp.ML	Mon Jul 15 14:23:51 2013 +0200
@@ -2219,7 +2219,7 @@
                 |> Thm.close_derivation)
               goals cTs dtor_unfold_thms map_comp's map_cong0s;
           in
-            map_split (fn thm => (thm RS @{thm pointfreeE}, thm)) maps
+            map_split (fn thm => (thm RS @{thm comp_eq_dest}, thm)) maps
           end;
 
         val map_comp_thms =