adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lib: more 2015 update

This commit is contained in:
Gerwin Klein 2015-05-09 13:03:30 +02:00
parent 177e5bf185
commit be52a7c684
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/SimpStrategy.thy
View File

@ -85,7 +85,7 @@ lemma simp_strategy_Eq_True:
by (simp add: simp_strategy_def)
ML {*
fun simp_strategy_True_conv ct = case term_of ct of
fun simp_strategy_True_conv ct = case Thm.term_of ct of
(Const (@{const_name simp_strategy}, _) $ _ $ @{term True})
=> cterm_instantiate [(@{cpat "?name :: nat"}, Thm.dest_arg1 ct)]
@{thm simp_strategy_Eq_True}
@ -94,7 +94,7 @@ fun simp_strategy_True_conv ct = case term_of ct of
fun new_simp_strategy thy (name : term) ss rewr_True =
Simplifier.simproc_global_i thy ("simp_strategy_" ^ fst (dest_Const name))
[@{term simp_strategy} $ name $ @{term x}]
(fn ctxt => fn t => cterm_of (Proof_Context.theory_of ctxt) t
(fn ctxt => fn t => Thm.cterm_of ctxt t
|> (Conv.arg_conv (Simplifier.rewrite (put_simpset ss ctxt))
then_conv (if rewr_True then simp_strategy_True_conv
else Conv.all_conv))