tuning

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_annotate.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_annotate.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -17,7 +17,7 @@
 signature SLEDGEHAMMER_ANNOTATE =
 sig
   val annotate_types : Proof.context -> term -> term
-end
+end;
 
 structure Sledgehammer_Annotate : SLEDGEHAMMER_ANNOTATE =
 struct
@@ -215,4 +215,4 @@
          |> sort int_ord
   in introduce_annotations subst typing_spots t t' end
 
-end
+end;

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_compress.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_compress.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -15,8 +15,7 @@
   type preplay_interface = Sledgehammer_Preplay.preplay_interface
 
   val compress_proof : real -> preplay_interface -> isar_proof -> isar_proof
-end
-
+end;
 
 structure Sledgehammer_Compress : SLEDGEHAMMER_COMPRESS =
 struct
@@ -370,5 +369,4 @@
     do_proof proof
   end
 
-
-end
+end;

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_minimize_isar.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_minimize_isar.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -11,7 +11,7 @@
   type isar_proof = Sledgehammer_Proof.isar_proof
   val minimize_dependencies_and_remove_unrefed_steps :
     bool -> preplay_interface -> isar_proof -> isar_proof
-end
+end;
 
 structure Sledgehammer_Minimize_Isar : SLEDGEHAMMER_MINIMIZE_ISAR =
 struct
@@ -105,4 +105,4 @@
     snd (do_proof proof)
   end
 
-end
+end;

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_preplay.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_preplay.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -35,7 +35,7 @@
   val proof_preplay_interface :
     bool -> Proof.context -> string -> string -> bool -> Time.time
     -> isar_proof -> preplay_interface
-end
+end;
 
 structure Sledgehammer_Preplay : SLEDGEHAMMER_PREPLAY =
 struct
@@ -312,4 +312,4 @@
         overall_preplay_stats = overall_preplay_stats}
     end
 
-end
+end;

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_print.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_print.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -293,4 +293,4 @@
             of_indent 0 ^ (if n <> 1 then "next" else "qed")
   end
 
-end
+end;

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_proof.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -67,7 +67,7 @@
 
   structure Canonical_Lbl_Tab : TABLE
 
-end
+end;
 
 structure Sledgehammer_Proof : SLEDGEHAMMER_PROOF =
 struct
@@ -196,4 +196,4 @@
     fst (do_proof proof (0, []))
   end
 
-end
+end;

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_try0.ML	Tue Nov 19 18:34:04 2013 +0100
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_try0.ML	Tue Nov 19 18:38:25 2013 +0100
@@ -12,7 +12,7 @@
   type preplay_interface = Sledgehammer_Preplay.preplay_interface
 
   val try0 : Time.time -> preplay_interface -> isar_proof -> isar_proof
-end
+end;
 
 structure Sledgehammer_Try0 : SLEDGEHAMMER_TRY0 =
 struct
@@ -59,4 +59,4 @@
 fun try0 preplay_timeout preplay_interface proof =
      map_isar_steps (try0_step preplay_timeout preplay_interface) proof
 
-end
+end;