src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 41206 b16fbb148a16
parent 41155 85da8cbb4966
child 41210 15fbf30288e1
--- a/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML	Thu Dec 16 15:12:17 2010 +0100
+++ b/src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML	Thu Dec 16 15:12:17 2010 +0100
@@ -346,7 +346,6 @@
 fun run_sh prover_name prover type_sys hard_timeout timeout dir st =
   let
     val {context = ctxt, facts = chained_ths, goal} = Proof.goal st
-    val thy = ProofContext.theory_of ctxt
     val i = 1
     fun change_dir (SOME dir) = Config.put Sledgehammer_Provers.dest_dir dir
       | change_dir NONE = I
@@ -538,8 +537,6 @@
       val named_thms =
         Unsynchronized.ref (NONE : ((string * locality) * thm list) list option)
       val ctxt = Proof.context_of pre
-      val (prover_name, _) = get_prover ctxt args
-      val type_sys = AList.lookup (op =) args type_sysK |> the_default "smart"
       val minimize = AList.defined (op =) args minimizeK
       val metis_ft = AList.defined (op =) args metis_ftK
       val trivial =