From 250a3dfc1f46f9f705c471445a416476099ecc5d Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 28 Jan 2013 22:44:32 +0000
Subject: Fixed bug #2966 (de Bruijn error in computation of heads for
 coercions).

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

(limited to 'library/heads.ml')

diff --git a/library/heads.ml b/library/heads.ml
index 0d3ed0fdb..62e27dd00 100644
--- a/library/heads.ml
+++ b/library/heads.ml
@@ -92,7 +92,7 @@ let kind_of_head env t =
     | [] ->
       let () = assert (not b) in
       aux (k + 1) [] c b
-    | h :: l -> aux (k + 1) l (subst1 h c) b
+    | h :: l -> aux k l (subst1 h c) b
     end
   | LetIn _ -> assert false
   | Meta _ | Evar _ -> NotImmediatelyComputableHead
-- 
cgit v1.2.3