diff options
| author | msozeau | 2009-05-26 20:36:02 +0000 |
|---|---|---|
| committer | msozeau | 2009-05-26 20:36:02 +0000 |
| commit | 3e6b64184b66313f2374ce783bc0748419b24de3 (patch) | |
| tree | 40fd41e644d811bc2ed6ec2d3ccfca676a49fad8 /plugins | |
| parent | fb2fe356377cd6384e7b72efc6c685eea303ab99 (diff) | |
Fix de Bruijn lifting bug appearing when we match on multiple terms with
de Bruijn-bound parameters (reported by W. Swierstra).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12142 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/subtac/subtac_cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_cases.ml b/plugins/subtac/subtac_cases.ml index 1e5722ef1c..1f20180033 100644 --- a/plugins/subtac/subtac_cases.ml +++ b/plugins/subtac/subtac_cases.ml @@ -1734,7 +1734,7 @@ let abstract_tomatch env tomatchs = Rel n -> (lift lenctx c, lift_tomatch_type lenctx t) :: prev, ctx, names | _ -> let name = next_ident_away_from (id_of_string "filtered_var") names in - (mkRel 1, lift_tomatch_type 1 t) :: lift_ctx 1 prev, + (mkRel 1, lift_tomatch_type (succ lenctx) t) :: lift_ctx 1 prev, (Name name, Some (lift lenctx c), lift lenctx $ type_of_tomatch t) :: ctx, name :: names) ([], [], []) tomatchs |