diff options
Diffstat (limited to 'pretyping/tacred.ml')
| -rw-r--r-- | pretyping/tacred.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 1ba6350b5..18723f645 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -454,7 +454,7 @@ let reduce_fix whdfun sigma fix stack = let (recarg'hd,_ as recarg') = whdfun sigma recarg in let stack' = List.assign stack recargnum (applist recarg') in (match kind_of_term recarg'hd with - | Construct _ -> Reduced (contract_fix fix None, stack') + | Construct _ -> Reduced (contract_fix fix Reductionops.Cst_stack.empty, stack') | _ -> NotReducible) let contract_fix_use_function env sigma f |