diff options
| author | barras | 2010-07-29 15:24:05 +0000 |
|---|---|---|
| committer | barras | 2010-07-29 15:24:05 +0000 |
| commit | 76ea7e23448722be7231b575fc4d1faea1178e2e (patch) | |
| tree | 77cc3e586956612b5f4ad3b39027450339968fa9 | |
| parent | 8301010603574301ec56728727093ad456cd12ad (diff) | |
fixed bug #2105 (compilation of free de Bruijn) and missing lift of predicate in branch read-back (2)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13350 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/vnorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index f2e8268259..fad2e6f082 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -115,7 +115,7 @@ let build_branches_type env (mind,_ as _ind) mib mip params dep p = let carity = snd (rtbl.(i)) in let crealargs = Array.sub cargs nparams (Array.length cargs - nparams) in let codom = - let papp = mkApp(p,crealargs) in + let papp = mkApp(lift (List.length decl) p,crealargs) in if dep then let cstr = ith_constructor_of_inductive ind (i+1) in let relargs = Array.init carity (fun i -> mkRel (carity-i)) in |