diff options
| author | Pierre Boutillier | 2014-09-18 14:06:29 +0200 |
|---|---|---|
| committer | Pierre Boutillier | 2014-09-18 15:12:00 +0200 |
| commit | 854be50a06b1c0fd95a63402eeced0fd0388bf55 (patch) | |
| tree | 4cf56f1f6374087e27f2481ec61786d304214508 /pretyping | |
| parent | 82229da083c2cfecca63f4ff5ca7da41bda059f6 (diff) | |
Reductionops: (Co)Fixpoints are always refolded during iota
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/reductionops.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index 10f2bfd5bf..4c9fc4dc53 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -911,9 +911,7 @@ let rec whd_state_gen ?csts tactic_mode flags env sigma = |args, (Stack.Fix (f,s',cst_l)::s'') -> let x' = Stack.zip(x,args) in let out_sk = s' @ (Stack.append_app [|x'|] s'') in - if tactic_mode - then reduce_and_refold_fix whrec env cst_l f out_sk - else whrec Cst_stack.empty (contract_fix f, out_sk) + reduce_and_refold_fix whrec env cst_l f out_sk |args, (Stack.Cst (const,curr,remains,s',cst_l) :: s'') -> let x' = Stack.zip(x,args) in begin match remains with @@ -949,9 +947,7 @@ let rec whd_state_gen ?csts tactic_mode flags env sigma = if Closure.RedFlags.red_set flags Closure.RedFlags.fIOTA then match Stack.strip_app stack with |args, (Stack.Case(ci, _, lf,_)::s') -> - if tactic_mode - then reduce_and_refold_cofix whrec env cst_l cofix stack - else whrec Cst_stack.empty (contract_cofix cofix, stack) + reduce_and_refold_cofix whrec env cst_l cofix stack |_ -> fold () else fold () |