src/Provers/induct_method.ML
changeset 18631 ca56111fe69c
parent 18602 8f25a0f7f446
child 18678 dd0c569fa43d
--- a/src/Provers/induct_method.ML	Tue Jan 10 19:33:29 2006 +0100
+++ b/src/Provers/induct_method.ML	Tue Jan 10 19:33:30 2006 +0100
@@ -320,8 +320,7 @@
     (case goal_concl n [] goal of
       SOME concl =>
         (compose_tac (false, spec_rule (goal_prefix n goal) concl, 1) THEN' rtac asm_rl) i
-    | NONE => (warning ("Induction: no variable " ^ quote (ProofContext.string_of_term ctxt v) ^
-        " to be fixed -- ignored"); all_tac))
+    | NONE => all_tac)
   end);
 
 fun miniscope_tac p i = PRIMITIVE (Drule.fconv_rule