src/Pure/raw_simplifier.ML
changeset 52232 a2d4ae3e04a2
parent 52091 9ec2d47de6a7
child 54724 b92694e756b8
     1.1 --- a/src/Pure/raw_simplifier.ML	Thu May 30 12:56:25 2013 +0200
     1.2 +++ b/src/Pure/raw_simplifier.ML	Thu May 30 13:07:23 2013 +0200
     1.3 @@ -129,7 +129,6 @@
     1.4    val generic_rewrite_goal_tac: bool * bool * bool ->
     1.5      (Proof.context -> tactic) -> Proof.context -> int -> tactic
     1.6    val rewrite: bool -> thm list -> conv
     1.7 -  val simplify: bool -> thm list -> thm -> thm
     1.8  end;
     1.9  
    1.10  structure Raw_Simplifier: RAW_SIMPLIFIER =
    1.11 @@ -1329,8 +1328,7 @@
    1.12        rewrite_cterm (full, false, false) simple_prover
    1.13          (global_context (Thm.theory_of_cterm ct) empty_ss addsimps thms) ct;
    1.14  
    1.15 -fun simplify full thms = Conv.fconv_rule (rewrite full thms);
    1.16 -val rewrite_rule = simplify true;
    1.17 +val rewrite_rule = Conv.fconv_rule o rewrite true;
    1.18  
    1.19  (*simple term rewriting -- no proof*)
    1.20  fun rewrite_term thy rules procs =