src/HOL/Tools/Metis/metis_tactic.ML
changeset 55257 abfd7b90bba2
parent 55239 97921d23ebe3
child 55285 e88ad20035f4
--- a/src/HOL/Tools/Metis/metis_tactic.ML	Sun Feb 02 20:53:51 2014 +0100
+++ b/src/HOL/Tools/Metis/metis_tactic.ML	Sun Feb 02 20:53:51 2014 +0100
@@ -174,8 +174,7 @@
           Metis_KnuthBendixOrder.default
     fun fall_back () =
       (verbose_warning ctxt
-           ("Falling back on " ^
-            quote (metis_call (hd fallback_type_encs) lam_trans) ^ "...");
+           ("Falling back on " ^ quote (metis_call (hd fallback_type_encs) lam_trans) ^ "...");
        FOL_SOLVE fallback_type_encs lam_trans ctxt cls ths0)
   in
     (case filter (fn t => prop_of t aconv @{prop False}) cls of