From 03875d3a79dcb97616e402a148fa5930fb13f013 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 26 Oct 2000 11:45:03 +0000
Subject: 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
---
 pretyping/tacred.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
cgit v1.2.3