diff options
| author | herbelin | 2000-10-26 11:45:03 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-26 11:45:03 +0000 |
| commit | 03875d3a79dcb97616e402a148fa5930fb13f013 (patch) | |
| tree | b4bee769bf4cece7ff972dfa1278e9754cf61f99 | |
| parent | 53446f93cffe337fe08ade258a217774b283625b (diff) | |
Bug Simpl avec Cases cache sous plusieurs constantes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@764 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 3d58b6a248..77f8cf9e11 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -255,7 +255,7 @@ let rec red_elim_const env sigma cst largs = match constant_eval cst with | EliminationCases n when stack_args_size largs >= n -> let c = constant_value env cst in - let c', lrest = whd_betaetalet_state (c,largs) in + let c', lrest = whd_betadeltaeta_state env sigma (c,largs) in (special_red_case env (construct_const env sigma) (destCase c'), lrest) | EliminationFix (min,(cstgoal,_,_,_ as infos)) |