From 97cd771c5914e6306d87450dc9634fe7250b651a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 24 Apr 2011 08:59:21 +0000
Subject: Fixing bug in printing let-in binders in fix/cofix (backport from
 branch v8.3)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14055 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/detyping.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping')

diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index 106629d2b0..e2533b238e 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -463,7 +463,7 @@ and share_names isgoal n l avoid env c t =
         let b = detype isgoal avoid env b in
 	let id = next_name_away na avoid in
         let avoid = id::avoid and env = add_name (Name id) env in
-        share_names isgoal n ((Name id,Explicit,Some b,t')::l) avoid env c t
+        share_names isgoal n ((Name id,Explicit,Some b,t')::l) avoid env c (lift 1 t)
     (* Only if built with the f/n notation or w/o let-expansion in types *)
     | _, LetIn (_,b,_,t) when n > 0 ->
 	share_names isgoal n l avoid env c (subst1 b t)
-- 
cgit v1.2.3