tuned;

--- a/src/Pure/more_thm.ML	Thu Mar 11 18:52:50 2010 +0100
+++ b/src/Pure/more_thm.ML	Thu Mar 11 23:07:02 2010 +0100
@@ -324,8 +324,7 @@
 
 fun add_axiom (b, prop) thy =
   let
-    val b' = if Binding.is_empty b
-      then Binding.name ("axiom_" ^ serial_string ()) else b;
+    val b' = if Binding.is_empty b then Binding.name ("axiom_" ^ serial_string ()) else b;
     val thy' = thy |> Theory.add_axioms_i [(b', prop)];
     val axm = unvarify (Thm.axiom thy' (Sign.full_name thy' b'));
   in (axm, thy') end;