diff options
| author | herbelin | 2000-03-21 00:04:41 +0000 |
|---|---|---|
| committer | herbelin | 2000-03-21 00:04:41 +0000 |
| commit | 47b64cb48e83b16103dd8505490fb3dba60aa6ff (patch) | |
| tree | 6c6566dbad9449a6d81b4b56f6afaa7f12084018 | |
| parent | 1a9c38ec0a5748bb4f42908a3599b8270fdad4c7 (diff) | |
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
| -rw-r--r-- | pretyping/tacred.ml | 4 |
1 files 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 |