do not emit legacy_feature warnings here -- users have no chance to disable them;
authorwenzelm
Wed, 12 May 2010 14:52:23 +0200
changeset 36863 6637878680b0
parent 36862 952b2b102a0a
child 36864 116be5acd5a7
do not emit legacy_feature warnings here -- users have no chance to disable them;
src/Pure/old_goals.ML
--- a/src/Pure/old_goals.ML	Wed May 12 14:17:26 2010 +0200
+++ b/src/Pure/old_goals.ML	Wed May 12 14:52:23 2010 +0200
@@ -293,7 +293,6 @@
 *)
 fun prepare_proof atomic rths chorn =
   let
-      val _ = legacy_feature "Old goal command";
       val thy = Thm.theory_of_cterm chorn;
       val horn = Thm.term_of chorn;
       val _ = Term.no_dummy_patterns horn handle TERM (msg, _) => error msg;
@@ -514,7 +513,6 @@
 (*simple version with minimal amount of checking and postprocessing*)
 fun simple_prove_goal_cterm G f =
   let
-    val _ = legacy_feature "Old goal command";
     val As = Drule.strip_imp_prems G;
     val B = Drule.strip_imp_concl G;
     val asms = map Assumption.assume As;