standardized aliases;
authorwenzelm
Thu May 30 12:35:40 2013 +0200 (2013-05-30)
changeset 522301105b3b5aa77
parent 52228 ee8e3eaad24c
child 52231 cc30c4eb4ec9
standardized aliases;
src/FOL/IFOL.thy
src/FOLP/IFOLP.thy
src/HOL/HOL.thy
src/HOL/Tools/Datatype/datatype_codegen.ML
src/HOL/Tools/Meson/meson.ML
src/HOL/Tools/Predicate_Compile/core_data.ML
src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML
src/HOL/Tools/Predicate_Compile/predicate_compile_pred.ML
src/HOL/Tools/Predicate_Compile/predicate_compile_proof.ML
src/HOL/Tools/Quotient/quotient_tacs.ML
src/HOL/Tools/SMT/z3_proof_reconstruction.ML
src/HOL/Tools/record.ML
src/Pure/Isar/element.ML
src/Pure/Isar/expression.ML
src/Pure/Isar/generic_target.ML
src/Pure/axclass.ML
     1.1 --- a/src/FOL/IFOL.thy	Thu May 30 08:27:51 2013 +0200
     1.2 +++ b/src/FOL/IFOL.thy	Thu May 30 12:35:40 2013 +0200
     1.3 @@ -224,7 +224,6 @@
     1.4    done
     1.5  
     1.6  
     1.7 -(*Observe use of rewrite_rule to unfold "<->" in meta-assumptions (prems) *)
     1.8  lemma iffE:
     1.9    assumes major: "P <-> Q"
    1.10      and r: "P-->Q ==> Q-->P ==> R"
     2.1 --- a/src/FOLP/IFOLP.thy	Thu May 30 08:27:51 2013 +0200
     2.2 +++ b/src/FOLP/IFOLP.thy	Thu May 30 12:35:40 2013 +0200
     2.3 @@ -292,8 +292,6 @@
     2.4    done
     2.5  
     2.6  
     2.7 -(*Observe use of rewrite_rule to unfold "<->" in meta-assumptions (prems) *)
     2.8 -  
     2.9  schematic_lemma iffE:
    2.10    assumes "p:P <-> Q"
    2.11      and "!!x y.[| x:P-->Q; y:Q-->P |] ==> q(x,y):R"
     3.1 --- a/src/HOL/HOL.thy	Thu May 30 08:27:51 2013 +0200
     3.2 +++ b/src/HOL/HOL.thy	Thu May 30 12:35:40 2013 +0200
     3.3 @@ -1499,8 +1499,7 @@
     3.4                  in if is_conj P then SOME @{thm induct_conj_curry} else NONE end
     3.5                | _ => NONE))]
     3.6      |> Simplifier.set_mksimps (fn ss => Simpdata.mksimps Simpdata.mksimps_pairs ss #>
     3.7 -      map (Simplifier.rewrite_rule (map Thm.symmetric
     3.8 -        @{thms induct_rulify_fallback})))))
     3.9 +      map (rewrite_rule (map Thm.symmetric @{thms induct_rulify_fallback})))))
    3.10  *}
    3.11  
    3.12  text {* Pre-simplification of induction and cases rules *}
     4.1 --- a/src/HOL/Tools/Datatype/datatype_codegen.ML	Thu May 30 08:27:51 2013 +0200
     4.2 +++ b/src/HOL/Tools/Datatype/datatype_codegen.ML	Thu May 30 12:35:40 2013 +0200
     4.3 @@ -51,7 +51,7 @@
     4.4    in
     4.5      thms
     4.6      |> Conjunction.intr_balanced
     4.7 -    |> Raw_Simplifier.rewrite_rule [Thm.symmetric (Thm.assume asm)]
     4.8 +    |> rewrite_rule [Thm.symmetric (Thm.assume asm)]
     4.9      |> Thm.implies_intr asm
    4.10      |> Thm.generalize ([], params) 0
    4.11      |> Axclass.unoverload thy
     5.1 --- a/src/HOL/Tools/Meson/meson.ML	Thu May 30 08:27:51 2013 +0200
     5.2 +++ b/src/HOL/Tools/Meson/meson.ML	Thu May 30 12:35:40 2013 +0200
     5.3 @@ -554,7 +554,7 @@
     5.4  fun presimplify ctxt =
     5.5    rewrite_rule (map safe_mk_meta_eq nnf_simps)
     5.6    #> simplify (put_simpset nnf_ss ctxt)
     5.7 -  #> Raw_Simplifier.rewrite_rule @{thms Let_def [abs_def]}
     5.8 +  #> rewrite_rule @{thms Let_def [abs_def]}
     5.9  
    5.10  fun make_nnf ctxt th = case prems_of th of
    5.11      [] => th |> presimplify ctxt |> make_nnf1 ctxt
     6.1 --- a/src/HOL/Tools/Predicate_Compile/core_data.ML	Thu May 30 08:27:51 2013 +0200
     6.2 +++ b/src/HOL/Tools/Predicate_Compile/core_data.ML	Thu May 30 12:35:40 2013 +0200
     6.3 @@ -218,9 +218,9 @@
     6.4          fun inst_of_matches tts = fold (Pattern.match thy) tts (Vartab.empty, Vartab.empty)
     6.5            |> snd |> Vartab.dest |> map (pairself (cterm_of thy) o term_pair_of)
     6.6          val (cases, (eqs, prems)) = apsnd (chop (nargs - nparams)) (chop n prems)
     6.7 -        val case_th = Raw_Simplifier.simplify true
     6.8 -          (@{thm Predicate.eq_is_eq} :: map meta_eq_of eqs) (nth cases (i - 1))
     6.9 -        val prems' = maps (dest_conjunct_prem o Raw_Simplifier.simplify true tuple_rew_rules) prems
    6.10 +        val case_th =
    6.11 +          rewrite_rule (@{thm Predicate.eq_is_eq} :: map meta_eq_of eqs) (nth cases (i - 1))
    6.12 +        val prems' = maps (dest_conjunct_prem o rewrite_rule tuple_rew_rules) prems
    6.13          val pats = map (swap o HOLogic.dest_eq o HOLogic.dest_Trueprop) (take nargs (prems_of case_th))
    6.14          val case_th' = Thm.instantiate ([], inst_of_matches pats) case_th
    6.15            OF (replicate nargs @{thm refl})
     7.1 --- a/src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML	Thu May 30 08:27:51 2013 +0200
     7.2 +++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_aux.ML	Thu May 30 12:35:40 2013 +0200
     7.3 @@ -1025,7 +1025,7 @@
     7.4  fun peephole_optimisation thy intro =
     7.5    let
     7.6      val process =
     7.7 -      Raw_Simplifier.rewrite_rule (Predicate_Compile_Simps.get (Proof_Context.init_global thy))
     7.8 +      rewrite_rule (Predicate_Compile_Simps.get (Proof_Context.init_global thy))
     7.9      fun process_False intro_t =
    7.10        if member (op =) (Logic.strip_imp_prems intro_t) @{prop "False"} then NONE else SOME intro_t
    7.11      fun process_True intro_t =
     8.1 --- a/src/HOL/Tools/Predicate_Compile/predicate_compile_pred.ML	Thu May 30 08:27:51 2013 +0200
     8.2 +++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_pred.ML	Thu May 30 12:35:40 2013 +0200
     8.3 @@ -213,8 +213,7 @@
     8.4            error ("unexpected specification for constant " ^ quote constname ^ ":\n"
     8.5              ^ commas (map (quote o Display.string_of_thm_global thy) specs))
     8.6        val if_beta = @{lemma "(if c then x else y) z = (if c then x z else y z)" by simp}
     8.7 -      val intros = map (Raw_Simplifier.rewrite_rule
     8.8 -          [if_beta RS @{thm eq_reflection}]) intros
     8.9 +      val intros = map (rewrite_rule [if_beta RS @{thm eq_reflection}]) intros
    8.10        val _ = print_specs options thy "normalized intros" intros
    8.11        (*val intros = maps (split_cases thy) intros*)
    8.12        val (intros', (local_defs, thy')) = flatten_intros constname intros thy
     9.1 --- a/src/HOL/Tools/Predicate_Compile/predicate_compile_proof.ML	Thu May 30 08:27:51 2013 +0200
     9.2 +++ b/src/HOL/Tools/Predicate_Compile/predicate_compile_proof.ML	Thu May 30 12:35:40 2013 +0200
     9.3 @@ -127,7 +127,7 @@
     9.4            fun param_rewrite prem =
     9.5              param = snd (HOLogic.dest_eq (HOLogic.dest_Trueprop (prop_of prem)))
     9.6            val SOME rew_eq = find_first param_rewrite prems'
     9.7 -          val param_prem' = Raw_Simplifier.rewrite_rule
     9.8 +          val param_prem' = rewrite_rule
     9.9              (map (fn th => th RS @{thm eq_reflection})
    9.10                [rew_eq RS @{thm sym}, @{thm split_beta}, @{thm fst_conv}, @{thm snd_conv}])
    9.11              param_prem
    10.1 --- a/src/HOL/Tools/Quotient/quotient_tacs.ML	Thu May 30 08:27:51 2013 +0200
    10.2 +++ b/src/HOL/Tools/Quotient/quotient_tacs.ML	Thu May 30 12:35:40 2013 +0200
    10.3 @@ -480,7 +480,7 @@
    10.4          val tinst = [NONE, NONE, SOME (cterm_of thy r1), NONE, SOME (cterm_of thy a2)]
    10.5          val thm1 = Drule.instantiate' tyinst tinst @{thm lambda_prs[THEN eq_reflection]}
    10.6          val thm2 = solve_quotient_assm ctxt (solve_quotient_assm ctxt thm1)
    10.7 -        val thm3 = Raw_Simplifier.rewrite_rule @{thms id_apply[THEN eq_reflection]} thm2
    10.8 +        val thm3 = rewrite_rule @{thms id_apply[THEN eq_reflection]} thm2
    10.9          val (insp, inst) =
   10.10            if ty_c = ty_d
   10.11            then make_inst_id (term_of (Thm.lhs_of thm3)) (term_of ctrm)
    11.1 --- a/src/HOL/Tools/SMT/z3_proof_reconstruction.ML	Thu May 30 08:27:51 2013 +0200
    11.2 +++ b/src/HOL/Tools/SMT/z3_proof_reconstruction.ML	Thu May 30 12:35:40 2013 +0200
    11.3 @@ -38,8 +38,7 @@
    11.4      val merge = Net.merge eq
    11.5    )
    11.6  
    11.7 -  val prep =
    11.8 -    `Thm.prop_of o Simplifier.rewrite_rule [Z3_Proof_Literals.rewrite_true]
    11.9 +  val prep = `Thm.prop_of o rewrite_rule [Z3_Proof_Literals.rewrite_true]
   11.10  
   11.11    fun ins thm net = Net.insert_term eq (prep thm) net handle Net.INSERT => net
   11.12    fun del thm net = Net.delete_term eq (prep thm) net handle Net.DELETE => net
    12.1 --- a/src/HOL/Tools/record.ML	Thu May 30 08:27:51 2013 +0200
    12.2 +++ b/src/HOL/Tools/record.ML	Thu May 30 12:35:40 2013 +0200
    12.3 @@ -1748,8 +1748,7 @@
    12.4          THEN rewrite_goals_tac [Simpdata.mk_eq eq_def]
    12.5          THEN ALLGOALS (rtac @{thm refl});
    12.6        fun mk_eq thy eq_def =
    12.7 -        Simplifier.rewrite_rule
    12.8 -          [Axclass.unoverload thy (Thm.symmetric (Simpdata.mk_eq eq_def))] inject;
    12.9 +        rewrite_rule [Axclass.unoverload thy (Thm.symmetric (Simpdata.mk_eq eq_def))] inject;
   12.10        fun mk_eq_refl thy =
   12.11          @{thm equal_refl}
   12.12          |> Thm.instantiate
    13.1 --- a/src/Pure/Isar/element.ML	Thu May 30 08:27:51 2013 +0200
    13.2 +++ b/src/Pure/Isar/element.ML	Thu May 30 12:35:40 2013 +0200
    13.3 @@ -466,7 +466,7 @@
    13.4         {binding = [],
    13.5          typ = [],
    13.6          term = [Raw_Simplifier.rewrite_term thy thms []],
    13.7 -        fact = [map (Raw_Simplifier.rewrite_rule thms)]});
    13.8 +        fact = [map (rewrite_rule thms)]});
    13.9  
   13.10  
   13.11  (* transfer to theory using closure *)
    14.1 --- a/src/Pure/Isar/expression.ML	Thu May 30 08:27:51 2013 +0200
    14.2 +++ b/src/Pure/Isar/expression.ML	Thu May 30 12:35:40 2013 +0200
    14.3 @@ -671,8 +671,7 @@
    14.4          Conjunction.intr_balanced (map (Thm.assume o cert) norm_ts), 0) 1);
    14.5  
    14.6      val conjuncts =
    14.7 -      (Drule.equal_elim_rule2 OF [body_eq,
    14.8 -        Raw_Simplifier.rewrite_rule [pred_def] (Thm.assume (cert statement))])
    14.9 +      (Drule.equal_elim_rule2 OF [body_eq, rewrite_rule [pred_def] (Thm.assume (cert statement))])
   14.10        |> Conjunction.elim_balanced (length ts);
   14.11      val axioms = ts ~~ conjuncts |> map (fn (t, ax) =>
   14.12        Element.prove_witness defs_ctxt t
    15.1 --- a/src/Pure/Isar/generic_target.ML	Thu May 30 08:27:51 2013 +0200
    15.2 +++ b/src/Pure/Isar/generic_target.ML	Thu May 30 12:35:40 2013 +0200
    15.3 @@ -125,7 +125,7 @@
    15.4      (*export assumes/defines*)
    15.5      val th = Goal.norm_result raw_th;
    15.6      val ((defs, asms), th') = Local_Defs.export ctxt thy_ctxt th;
    15.7 -    val asms' = map (Raw_Simplifier.rewrite_rule (Drule.norm_hhf_eqs @ defs)) asms;
    15.8 +    val asms' = map (rewrite_rule (Drule.norm_hhf_eqs @ defs)) asms;
    15.9  
   15.10      (*export fixes*)
   15.11      val tfrees = map TFree (Thm.fold_terms Term.add_tfrees th' []);
    16.1 --- a/src/Pure/axclass.ML	Thu May 30 08:27:51 2013 +0200
    16.2 +++ b/src/Pure/axclass.ML	Thu May 30 12:35:40 2013 +0200
    16.3 @@ -292,8 +292,8 @@
    16.4  
    16.5  fun get_inst_tyco consts = try (#1 o dest_Type o the_single o Consts.typargs consts);
    16.6  
    16.7 -fun unoverload thy = Raw_Simplifier.simplify true (inst_thms thy);
    16.8 -fun overload thy = Raw_Simplifier.simplify true (map Thm.symmetric (inst_thms thy));
    16.9 +fun unoverload thy = rewrite_rule (inst_thms thy);
   16.10 +fun overload thy = rewrite_rule (map Thm.symmetric (inst_thms thy));
   16.11  
   16.12  fun unoverload_conv thy = Raw_Simplifier.rewrite true (inst_thms thy);
   16.13  fun overload_conv thy = Raw_Simplifier.rewrite true (map Thm.symmetric (inst_thms thy));