From 47b64cb48e83b16103dd8505490fb3dba60aa6ff Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 21 Mar 2000 00:04:41 +0000
Subject: Plus besoin de env dans reduce_mind_case

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@338 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/tacred.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 7ec56e3ade..0240cdbc25 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -125,8 +125,8 @@ let special_red_case env whfun p c ci lf  =
 	    raise Redelimination
       | _ ->
           if reducible_mind_case constr then
-            reduce_mind_case env
-              {mP=p; mconstr=constr; mcargs=cargs; mci=ci; mlf=lf}
+            reduce_mind_case
+	      {mP=p; mconstr=constr; mcargs=cargs; mci=ci; mlf=lf}
           else 
 	    raise Redelimination
   in 
-- 
cgit v1.2.3