eliminated pointless subgoal argument;
authorwenzelm
Sat, 17 Aug 2013 12:21:25 +0200
changeset 53049 f60f92e47290
parent 53048 0f76e620561f
child 53050 bca3769b6b45
eliminated pointless subgoal argument;
src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
src/Tools/jEdit/src/sledgehammer_dockable.scala
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Sat Aug 17 12:13:53 2013 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML	Sat Aug 17 12:21:25 2013 +0200
@@ -500,7 +500,7 @@
     (case try Toplevel.proof_of st of
       SOME state =>
         let
-          val [provers_arg, timeout_arg, subgoal_arg, isar_proofs_arg] = args;
+          val [provers_arg, timeout_arg, isar_proofs_arg] = args;
           val ctxt = Proof.context_of state
           val mode = Normal_Result
 
@@ -515,10 +515,9 @@
             (if provers_arg = "" then [] else [("provers", space_explode " " provers_arg)]))
             |> map (normalize_raw_param ctxt)
 
-          val i = the_default 1 (Int.fromString subgoal_arg)
           val _ =
-            run_sledgehammer (get_params mode ctxt override_params) mode (SOME output_result) i
-              no_fact_override (minimize_command override_params i) state
+            run_sledgehammer (get_params mode ctxt override_params) mode (SOME output_result) 1
+              no_fact_override (minimize_command override_params 1) state
         in () end
     | NONE => error "Unknown proof context"));
 
--- a/src/Tools/jEdit/src/sledgehammer_dockable.scala	Sat Aug 17 12:13:53 2013 +0200
+++ b/src/Tools/jEdit/src/sledgehammer_dockable.scala	Sat Aug 17 12:21:25 2013 +0200
@@ -106,8 +106,7 @@
   /* controls */
 
   private def clicked {
-    sledgehammer.apply_query(
-      List(provers.getText, timeout.text, subgoal.text, isar_proofs.selected.toString))
+    sledgehammer.apply_query(List(provers.getText, timeout.text, isar_proofs.selected.toString))
   }
 
   private val provers_label = new Label("Provers:") {
@@ -130,12 +129,6 @@
       s match { case Properties.Value.Double(x) => x >= 0.0 case _ => false }
   }
 
-  private val subgoal = new TextField("1", 5) {
-    tooltip = "Subgoal number"
-    verifier = (s: String) =>
-      s match { case Properties.Value.Int(x) => x > 0 case _ => false }
-  }
-
   private val isar_proofs = new CheckBox("Isar proofs") {
     tooltip = "Specify whether Isar proofs should be output in addition to metis line"
     selected = false
@@ -162,7 +155,7 @@
 
   private val controls =
     new FlowPanel(FlowPanel.Alignment.Right)(
-      provers_label, Component.wrap(provers), timeout, subgoal, isar_proofs,
+      provers_label, Component.wrap(provers), timeout, isar_proofs,
       process_indicator.component, apply_query, cancel_query, locate_query, zoom)
   add(controls.peer, BorderLayout.NORTH)
 }