diff options
| author | ppedrot | 2013-08-01 17:22:44 +0000 |
|---|---|---|
| committer | ppedrot | 2013-08-01 17:22:44 +0000 |
| commit | 8e88b7adab785146815e2fb25faf9b11fab989e8 (patch) | |
| tree | 6cfa78fd8079ea5ea877ad72667d2296b9c5e81b /pretyping/patternops.ml | |
| parent | 86e8e098e8ea99a0167ba3e672a34d8a4763205b (diff) | |
Fixing #3088. Translation from globconstrs to patterns was forgetting
to register bound variables as such in the return clause.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16649 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/patternops.ml')
| -rw-r--r-- | pretyping/patternops.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/patternops.ml b/pretyping/patternops.ml index d695e8a45e..3623828f42 100644 --- a/pretyping/patternops.ml +++ b/pretyping/patternops.ml @@ -360,7 +360,8 @@ let rec pat_of_raw metas vars = function in let pred = match p,indnames with | Some p, Some (_,_,nal) -> - rev_it_mkPLambda nal (mkPLambda na (pat_of_raw metas vars p)) + let nvars = List.rev_append nal (na :: vars) in + rev_it_mkPLambda nal (mkPLambda na (pat_of_raw metas nvars p)) | _ -> PMeta None in let info = |