diff options
author | 2014-07-14 19:16:19 +0200 | |
---|---|---|
committer | 2014-07-14 19:18:42 +0200 | |
commit | 7f73c09a6031578a1531fade2752b6e99655cba0 (patch) | |
tree | 55406abcb7c50d4472017df8d390bd4e4a5f7fae /tactics/rewrite.mli | |
parent | 8e328c6c3b2d6cfe3110abdfe5bb57eeba9c0cc4 (diff) |
Redo PMP's patch to rewriting to make it purely functional using state passing.
Diffstat (limited to 'tactics/rewrite.mli')
-rw-r--r-- | tactics/rewrite.mli | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tactics/rewrite.mli b/tactics/rewrite.mli index 81f1175c4..926081bbb 100644 --- a/tactics/rewrite.mli +++ b/tactics/rewrite.mli @@ -44,8 +44,10 @@ type rewrite_result_info = { type rewrite_result = rewrite_result_info option -type strategy = Environ.env -> Id.t list -> constr -> types -> - (bool (* prop *) * constr option) -> evars -> rewrite_result option +type 'a pure_strategy = 'a -> Environ.env -> Id.t list -> constr -> types -> + (bool (* prop *) * constr option) -> evars -> 'a * rewrite_result option + +type strategy = unit pure_strategy val strategy_of_ast : (glob_constr_and_expr, raw_red_expr) strategy_ast -> strategy |