diff options
| author | Pierre-Marie Pédrot | 2014-09-14 16:28:19 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-09-14 16:44:22 +0200 |
| commit | 95b8e0871cebc3271a47b12d7c84c62893a01892 (patch) | |
| tree | 38abe09bc1bd3668baf619f0ff72fdb8ea694a0e /tactics/rewrite.mli | |
| parent | c5eec4e33250e8ac94c01c2fe0eb1d92d001678f (diff) | |
Proper type for rewrite strategy results.
Diffstat (limited to 'tactics/rewrite.mli')
| -rw-r--r-- | tactics/rewrite.mli | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tactics/rewrite.mli b/tactics/rewrite.mli index 05eff00bb9..614e89a27e 100644 --- a/tactics/rewrite.mli +++ b/tactics/rewrite.mli @@ -50,10 +50,13 @@ type rewrite_result_info = { rew_evars : evars; } -type rewrite_result = rewrite_result_info option +type rewrite_result = +| Fail +| Identity +| Success of rewrite_result_info type 'a pure_strategy = 'a -> Environ.env -> Id.t list -> constr -> types -> - (bool (* prop *) * constr option) -> evars -> 'a * rewrite_result option + (bool (* prop *) * constr option) -> evars -> 'a * rewrite_result type strategy = unit pure_strategy |