src/HOL/Tools/Sledgehammer/sledgehammer_fact_minimizer.ML

--- a/src/HOL/Tools/Sledgehammer/sledgehammer_fact_minimizer.ML	Wed Jul 28 19:23:56 2010 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_fact_minimizer.ML	Wed Jul 28 19:42:11 2010 +0200
@@ -9,6 +9,9 @@
 sig
   type params = Sledgehammer.params
 
+  val minimize_theorems :
+    params -> int -> int -> Proof.state -> (string * thm list) list
+    -> (string * thm list) list option * string
   val run_minimizer : params -> int -> Facts.ref list -> Proof.state -> unit
 end;