src/Pure/meta_simplifier.ML
changeset 30552 58db56278478
parent 30356 36d0e00af606
child 30908 7ccf4a3d764c
equal deleted inserted replaced
30551:24e156db414c 30552:58db56278478
    71   val rewrite_goal_tac: thm list -> int -> tactic
    71   val rewrite_goal_tac: thm list -> int -> tactic
    72   val rewtac: thm -> tactic
    72   val rewtac: thm -> tactic
    73   val prune_params_tac: tactic
    73   val prune_params_tac: tactic
    74   val fold_rule: thm list -> thm -> thm
    74   val fold_rule: thm list -> thm -> thm
    75   val fold_goals_tac: thm list -> tactic
    75   val fold_goals_tac: thm list -> tactic
       
    76   val norm_hhf: thm -> thm
       
    77   val norm_hhf_protect: thm -> thm
    76 end;
    78 end;
    77 
    79 
    78 signature META_SIMPLIFIER =
    80 signature META_SIMPLIFIER =
    79 sig
    81 sig
    80   include BASIC_META_SIMPLIFIER
    82   include BASIC_META_SIMPLIFIER
   120     (simpset -> thm -> thm option) -> simpset -> thm -> thm
   122     (simpset -> thm -> thm option) -> simpset -> thm -> thm
   121   val rewrite_goal_rule: bool * bool * bool ->
   123   val rewrite_goal_rule: bool * bool * bool ->
   122     (simpset -> thm -> thm option) -> simpset -> int -> thm -> thm
   124     (simpset -> thm -> thm option) -> simpset -> int -> thm -> thm
   123   val asm_rewrite_goal_tac: bool * bool * bool ->
   125   val asm_rewrite_goal_tac: bool * bool * bool ->
   124     (simpset -> tactic) -> simpset -> int -> tactic
   126     (simpset -> tactic) -> simpset -> int -> tactic
   125   val norm_hhf: thm -> thm
       
   126   val norm_hhf_protect: thm -> thm
       
   127   val rewrite: bool -> thm list -> conv
   127   val rewrite: bool -> thm list -> conv
   128   val simplify: bool -> thm list -> thm -> thm
   128   val simplify: bool -> thm list -> thm -> thm
   129 end;
   129 end;
   130 
   130 
   131 structure MetaSimplifier: META_SIMPLIFIER =
   131 structure MetaSimplifier: META_SIMPLIFIER =