diff options
| author | Pierre-Marie Pédrot | 2019-05-06 12:28:32 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-07 11:26:34 +0200 |
| commit | 781c31d2ce057e44506f1a16022e769869d2dbf6 (patch) | |
| tree | b8d1b13f2fe866bd09c4bdce418d307052fbeea4 /pretyping/reductionops.ml | |
| parent | 45dcc1248cd2bdf00a2bcead69d6b2ed78afc51d (diff) | |
Do not use the constant stack in whd_betaiota_deltazeta_for_iota_state.
There is no point, it is always called with refolding turned off.
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 1871609e18..120b4e6f00 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -1675,7 +1675,7 @@ let is_sort env sigma t = (* reduction to head-normal-form allowing delta/zeta only in argument of case/fix (heuristic used by evar_conv) *) -let whd_betaiota_deltazeta_for_iota_state ts env sigma csts s = +let whd_betaiota_deltazeta_for_iota_state ts env sigma s = let refold = false in let tactic_mode = false in let rec whrec csts s = @@ -1696,7 +1696,8 @@ let whd_betaiota_deltazeta_for_iota_state ts env sigma csts s = whrec Cst_stack.empty (Stack.nth stack_o (Projection.npars p + Projection.arg p), stack'') else s,csts' |_, ((Stack.App _|Stack.Cst _|Stack.Primitive _) :: _|[]) -> s,csts' - in whrec csts s + in + fst (whrec Cst_stack.empty s) let find_conclusion env sigma = let rec decrec env c = |