diff options
| author | Pierre-Marie Pédrot | 2020-07-03 15:32:53 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-07-05 21:41:09 +0200 |
| commit | 9065877add52fa94de699ee8a50d240fb7ef4a5c (patch) | |
| tree | 956dce89b711ec4dc2beb2da030313269a73a86f /pretyping/reductionops.ml | |
| parent | c6985ba89f59d7e510319d932a991ee832011181 (diff) | |
Further cleanup of dead code in the Reductionops API.
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 20240a175d..87605c7b15 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -436,15 +436,11 @@ type state = constr * constr Stack.t type reduction_function = env -> evar_map -> constr -> constr type e_reduction_function = env -> evar_map -> constr -> evar_map * constr -type contextual_stack_reduction_function = +type stack_reduction_function = env -> evar_map -> constr -> constr * constr list -type stack_reduction_function = contextual_stack_reduction_function -type local_stack_reduction_function = - evar_map -> constr -> constr * constr list type state_reduction_function = env -> evar_map -> state -> state -type local_state_reduction_function = evar_map -> state -> state let pr_state env sigma (tm,sk) = let open Pp in |