# HG changeset patch
# User wenzelm
# Date 1183475827 -7200
# Node ID 802bdbe0817739b51d0fdb93c0c63fd7cb3a6622
# Parent  38a304b3fe1e64497ba995b8f293191f2fd2f637
CONVERSION tactical;
Simplifier.rewrite_goal_tac;

diff -r 38a304b3fe1e -r 802bdbe08177 src/Provers/induct_method.ML
--- a/src/Provers/induct_method.ML	Tue Jul 03 17:17:06 2007 +0200
+++ b/src/Provers/induct_method.ML	Tue Jul 03 17:17:07 2007 +0200
@@ -162,10 +162,10 @@
 
 val atomize_cterm = MetaSimplifier.rewrite true Data.atomize;
 
-val atomize_tac = Goal.rewrite_goal_tac Data.atomize;
+val atomize_tac = Simplifier.rewrite_goal_tac Data.atomize;
 
 val inner_atomize_tac =
-  Goal.rewrite_goal_tac (map Thm.symmetric conjunction_congs) THEN' atomize_tac;
+  Simplifier.rewrite_goal_tac (map Thm.symmetric conjunction_congs) THEN' atomize_tac;
 
 
 (* rulify *)
@@ -182,10 +182,10 @@
   in (thy, Logic.list_implies (map rulify As, rulify B)) end;
 
 val rulify_tac =
-  Goal.rewrite_goal_tac (Data.rulify @ conjunction_congs) THEN'
-  Goal.rewrite_goal_tac Data.rulify_fallback THEN'
+  Simplifier.rewrite_goal_tac (Data.rulify @ conjunction_congs) THEN'
+  Simplifier.rewrite_goal_tac Data.rulify_fallback THEN'
   Goal.conjunction_tac THEN_ALL_NEW
-  (Goal.rewrite_goal_tac [conjunction_imp] THEN' Goal.norm_hhf_tac);
+  (Simplifier.rewrite_goal_tac [conjunction_imp] THEN' Goal.norm_hhf_tac);
 
 
 (* prepare rule *)
@@ -310,9 +310,8 @@
     | NONE => all_tac)
   end);
 
-fun miniscope_tac p i = PRIMITIVE (Conv.fconv_rule
-  (Conv.goals_conv (Library.equal i)
-    (Conv.forall_conv p (MetaSimplifier.rewrite true [Thm.symmetric Drule.norm_hhf_eq]))));
+fun miniscope_tac p =
+  CONVERSION (Conv.forall_conv p (MetaSimplifier.rewrite true [Thm.symmetric Drule.norm_hhf_eq]));
 
 in