lib: add `changed <m>` Eisbach method, for CHANGED ML combinator
This commit is contained in:
parent
a70f0138df
commit
71b71cd9d7
|
@ -60,6 +60,15 @@ method_setup determ =
|
||||||
|
|
||||||
in SIMPLE_METHOD (DETERM tac) facts end)
|
in SIMPLE_METHOD (DETERM tac) facts end)
|
||||||
\<close>
|
\<close>
|
||||||
|
|
||||||
|
method_setup changed =
|
||||||
|
\<open>Method_Closure.method_text >> (fn m => fn ctxt => fn facts =>
|
||||||
|
let
|
||||||
|
fun tac st' = method_evaluate m ctxt facts st'
|
||||||
|
|
||||||
|
in SIMPLE_METHOD (CHANGED tac) facts end)
|
||||||
|
\<close>
|
||||||
|
|
||||||
|
|
||||||
method_setup timeit =
|
method_setup timeit =
|
||||||
\<open>Method_Closure.method_text >> (fn m => fn ctxt => fn facts =>
|
\<open>Method_Closure.method_text >> (fn m => fn ctxt => fn facts =>
|
||||||
|
|
Loading…
Reference in New Issue