diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 22:34:35 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 22:34:35 +0000 |
| commit | 787e409e773d45da6d149fbcdf9657b0be4a5529 (patch) | |
| tree | 4a6ad42c8a746062c53bd25e346f0b657a6971d1 /pretyping/tacred.ml | |
| parent | d08f434b85dbfc76d1a244a1978294129b37b5aa (diff) | |
Reductionops reduction machine can refold constant
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16107 85f007b7-540e-0410-9357-904b9bb8a0f7
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 78b01a42a..b265d636e 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -450,7 +450,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, stack') + | Construct _ -> Reduced (contract_fix fix None, stack') | _ -> NotReducible) let contract_fix_use_function env sigma f |