tuned signature;
authorwenzelm
Thu May 30 13:07:23 2013 +0200 (2013-05-30)
changeset 52232a2d4ae3e04a2
parent 52231 cc30c4eb4ec9
child 52233 eb84dab7d4c1
tuned signature;
src/Pure/Isar/object_logic.ML
src/Pure/raw_simplifier.ML
     1.1 --- a/src/Pure/Isar/object_logic.ML	Thu May 30 12:56:25 2013 +0200
     1.2 +++ b/src/Pure/Isar/object_logic.ML	Thu May 30 13:07:23 2013 +0200
     1.3 @@ -201,7 +201,7 @@
     1.4  fun rulify_tac i st = rewrite_goal_tac (get_rulify (Thm.theory_of_thm st)) i st;
     1.5  
     1.6  fun gen_rulify full thm =
     1.7 -  Raw_Simplifier.simplify full (get_rulify (Thm.theory_of_thm thm)) thm
     1.8 +  Conv.fconv_rule (Raw_Simplifier.rewrite full (get_rulify (Thm.theory_of_thm thm))) thm
     1.9    |> Drule.gen_all |> Thm.strip_shyps |> Drule.zero_var_indexes;
    1.10  
    1.11  val rulify = gen_rulify true;
     2.1 --- a/src/Pure/raw_simplifier.ML	Thu May 30 12:56:25 2013 +0200
     2.2 +++ b/src/Pure/raw_simplifier.ML	Thu May 30 13:07:23 2013 +0200
     2.3 @@ -129,7 +129,6 @@
     2.4    val generic_rewrite_goal_tac: bool * bool * bool ->
     2.5      (Proof.context -> tactic) -> Proof.context -> int -> tactic
     2.6    val rewrite: bool -> thm list -> conv
     2.7 -  val simplify: bool -> thm list -> thm -> thm
     2.8  end;
     2.9  
    2.10  structure Raw_Simplifier: RAW_SIMPLIFIER =
    2.11 @@ -1329,8 +1328,7 @@
    2.12        rewrite_cterm (full, false, false) simple_prover
    2.13          (global_context (Thm.theory_of_cterm ct) empty_ss addsimps thms) ct;
    2.14  
    2.15 -fun simplify full thms = Conv.fconv_rule (rewrite full thms);
    2.16 -val rewrite_rule = simplify true;
    2.17 +val rewrite_rule = Conv.fconv_rule o rewrite true;
    2.18  
    2.19  (*simple term rewriting -- no proof*)
    2.20  fun rewrite_term thy rules procs =