diff options
| author | Enrico Tassi | 2020-07-10 19:19:30 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2020-07-10 19:19:30 +0200 |
| commit | 7e149d3e7c7c6690b6aa92887d28e42f997b148a (patch) | |
| tree | cea5ab4b0310188c384a0afd03fc15cdf98bcf06 /pretyping/reductionops.ml | |
| parent | 511d2caaffb8d412d1645f0a83c9b0a2bbc41411 (diff) | |
| parent | 9065877add52fa94de699ee8a50d240fb7ef4a5c (diff) | |
Merge PR #12638: Some changes of representation in Tacred
Ack-by: backtracking
Reviewed-by: gares
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 6f02d76f3a..594b8ab54c 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 @@ -572,14 +568,6 @@ let reduce_and_refold_fix recfun env sigma fix sk = (fun _ (t,sk') -> recfun (t,sk')) [] sigma raw_answer sk -let fix_recarg ((recindices,bodynum),_) stack = - assert (0 <= bodynum && bodynum < Array.length recindices); - let recargnum = Array.get recindices bodynum in - try - Some (recargnum, Stack.nth stack recargnum) - with Not_found -> - None - open Primred module CNativeEntries = |