diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-16 08:46:56 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-11-16 08:46:56 +0000 |
| commit | e81c1643642459225f895e9328b407329de82071 (patch) | |
| tree | 7ad4a38536cfb90aa732b714db9bf0a9c4122b39 /pretyping | |
| parent | d305fd7ce51e71ddc49901cb86b7394ea51705d3 (diff) | |
De Bruijn indices bug in pattern matching compilation in the presence
of dependent types.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14667 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index ad506b89b..265994bd6 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -921,7 +921,7 @@ let known_dependent (_,dep) = (dep = KnownDep) let expand_arg tms (p,ccl) ((_,t),_,na) = let k = length_of_tomatch_type_sign na t in - (p+k,liftn_predicate (k-1) p ccl tms) + (p+k,liftn_predicate (k-1) (p+1) ccl tms) let adjust_impossible_cases pb pred tomatch submat = if submat = [] then |