Changed interface of MetaSimplifier.rewrite_term.
authorberghofe
Fri May 31 18:49:31 2002 +0200 (2002-05-31)
changeset 131970567f4fd1415
parent 13196 08c42252346f
child 13198 3e40f48a500f
Changed interface of MetaSimplifier.rewrite_term.
src/HOL/Tools/inductive_package.ML
src/Provers/induct_method.ML
src/Pure/Isar/object_logic.ML
     1.1 --- a/src/HOL/Tools/inductive_package.ML	Fri May 31 18:48:31 2002 +0200
     1.2 +++ b/src/HOL/Tools/inductive_package.ML	Fri May 31 18:49:31 2002 +0200
     1.3 @@ -294,7 +294,7 @@
     1.4  val all_not_allowed = 
     1.5      "Introduction rule must not have a leading \"!!\" quantifier";
     1.6  
     1.7 -fun atomize_term sg = MetaSimplifier.rewrite_term sg inductive_atomize;
     1.8 +fun atomize_term sg = MetaSimplifier.rewrite_term sg inductive_atomize [];
     1.9  
    1.10  in
    1.11  
     2.1 --- a/src/Provers/induct_method.ML	Fri May 31 18:48:31 2002 +0200
     2.2 +++ b/src/Provers/induct_method.ML	Fri May 31 18:49:31 2002 +0200
     2.3 @@ -136,13 +136,13 @@
     2.4  (* atomize and rulify *)
     2.5  
     2.6  fun atomize_term sg =
     2.7 -  ObjectLogic.drop_judgment sg o MetaSimplifier.rewrite_term sg Data.atomize;
     2.8 +  ObjectLogic.drop_judgment sg o MetaSimplifier.rewrite_term sg Data.atomize [];
     2.9  
    2.10  fun rulified_term thm =
    2.11    let val sg = Thm.sign_of_thm thm in
    2.12      Thm.prop_of thm
    2.13 -    |> MetaSimplifier.rewrite_term sg Data.rulify1
    2.14 -    |> MetaSimplifier.rewrite_term sg Data.rulify2
    2.15 +    |> MetaSimplifier.rewrite_term sg Data.rulify1 []
    2.16 +    |> MetaSimplifier.rewrite_term sg Data.rulify2 []
    2.17      |> pair sg
    2.18    end;
    2.19  
     3.1 --- a/src/Pure/Isar/object_logic.ML	Fri May 31 18:48:31 2002 +0200
     3.2 +++ b/src/Pure/Isar/object_logic.ML	Fri May 31 18:49:31 2002 +0200
     3.3 @@ -129,7 +129,7 @@
     3.4        (MetaSimplifier.goals_conv (K true) (Tactic.rewrite true rews)))));
     3.5  
     3.6  fun atomize_term sg =
     3.7 -  drop_judgment sg o MetaSimplifier.rewrite_term sg (get_atomize sg);
     3.8 +  drop_judgment sg o MetaSimplifier.rewrite_term sg (get_atomize sg) [];
     3.9  
    3.10  fun atomize_tac i st =
    3.11    if Logic.has_meta_prems (Thm.prop_of st) i then