diff -r 8747af0d1012 -r 49c1db0313e6 src/HOL/Tools/ATP/atp_proof.ML
--- a/src/HOL/Tools/ATP/atp_proof.ML	Mon Jun 16 19:18:10 2014 +0200
+++ b/src/HOL/Tools/ATP/atp_proof.ML	Mon Jun 16 19:39:41 2014 +0200
@@ -706,7 +706,7 @@
     map map_step
   end
 
-fun nasty_name pool s = s |> Symtab.lookup pool |> the_default s
+fun nasty_name pool s = Symtab.lookup pool s |> the_default s
 
 fun nasty_atp_proof pool =
   not (Symtab.is_empty pool) ? map_term_names_in_atp_proof (nasty_name pool)