equal
deleted
inserted
replaced
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 = |