diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-28 22:44:32 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-28 22:44:32 +0000 |
| commit | 250a3dfc1f46f9f705c471445a416476099ecc5d (patch) | |
| tree | df4d19f3519a69ae4c50caf0ead629dae0e02c36 /library/heads.ml | |
| parent | 0892990d7bbeb770de458a3b4ef2ffe34a1b11e3 (diff) | |
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
Diffstat (limited to 'library/heads.ml')
| -rw-r--r-- | library/heads.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |