diff options
| author |  Matej Kosik <matej.kosik@inria.fr> | 2017-01-31 09:55:51 +0100 |
|---|---|---|
| committer | Matej Košík <matej.kosik@inria.fr> | 2017-04-10 13:16:57 +0200 |
| commit | 470d0d56467a3a587dc34f958ffea8259618d1ae (patch) | |
| tree | 0994065d774a9bf8faf9280381aba4a6805d9cce /pretyping | |
| parent | 7b32d8454ded5497d677d5dbcc665aacb6725e6b (diff) | |
refactoring: Reductionops.contextual_reduction_function type
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/reductionops.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/reductionops.mli b/pretyping/reductionops.mli index 4cd7a2a86..2a5f97f01 100644 --- a/pretyping/reductionops.mli +++ b/pretyping/reductionops.mli @@ -109,9 +109,9 @@ end type state = constr * constr Stack.t -type contextual_reduction_function = env -> evar_map -> constr -> constr -type reduction_function = contextual_reduction_function type local_reduction_function = evar_map -> constr -> constr +type contextual_reduction_function = env -> local_reduction_function +type reduction_function = contextual_reduction_function type e_reduction_function = { e_redfun : 'r. env -> 'r Sigma.t -> constr -> (constr, 'r) Sigma.sigma } |