diff options
| author | msozeau | 2007-09-21 17:57:13 +0000 |
|---|---|---|
| committer | msozeau | 2007-09-21 17:57:13 +0000 |
| commit | 3159dac77f2d822f2fe40c2b3b4a941da4e0265c (patch) | |
| tree | 51be0f2a1dd5f6fd6cd017a0bd1a1ec2dc4e1c91 | |
| parent | 9f282af121b609c4195389225130f3499fa31de2 (diff) | |
curpat_ty was in a smaller context
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10137 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/subtac/subtac_cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/subtac/subtac_cases.ml b/contrib/subtac/subtac_cases.ml index c1889b689c..e54c59058f 100644 --- a/contrib/subtac/subtac_cases.ml +++ b/contrib/subtac/subtac_cases.ml @@ -1743,7 +1743,7 @@ let build_ineqs prevpatterns pats liftsign = len', succ n, (* nth pattern *) mkApp (Lazy.force eq_ind, - [| lift (len + liftsign) ppat_ty ; + [| lift (succ len') curpat_ty ; liftn (len + liftsign) (succ lens) ppat_c ; lift len' curpat_c |]) :: List.map (lift lens (* Jump over this prevpat signature *)) c) |