From 74ea55087202cef48d45705ff3be31e572625cdc Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 11 Nov 2019 15:48:08 +0100
Subject: Namegen.visible_ids: fixing what seems to be typos.

---
 engine/namegen.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'engine')

diff --git a/engine/namegen.ml b/engine/namegen.ml
index fb9f6db0ea..f398f29f41 100644
--- a/engine/namegen.ml
+++ b/engine/namegen.ml
@@ -273,8 +273,8 @@ let visible_ids sigma (nenv, c) =
       accu := (gseen, vseen, ids)
   | Rel p ->
     let (gseen, vseen, ids) = !accu in
-    if p > n && not (Int.Set.mem p vseen) then
-      let vseen = Int.Set.add p vseen in
+    if p > n && not (Int.Set.mem (p - n) vseen) then
+      let vseen = Int.Set.add (p - n) vseen in
       let name =
         try Some (List.nth nenv (p - n - 1))
         with Invalid_argument _ | Failure _ ->
@@ -290,7 +290,7 @@ let visible_ids sigma (nenv, c) =
       accu := (gseen, vseen, ids)
   | _ -> EConstr.iter_with_binders sigma succ visible_ids n c
   in
-  let () = visible_ids 1 c in
+  let () = visible_ids 1 c in (* n = 1 to count the binder to rename *)
   let (_, _, ids) = !accu in
   ids
 
@@ -416,6 +416,8 @@ let next_name_away_for_default_printing sigma env_t na avoid =
 *)
 
 type renaming_flags =
+  (* The term is the body of a binder and the environment excludes this binder *)
+  (* so, there is a missing binder in the environment *)
   | RenamingForCasesPattern of (Name.t list * constr)
   | RenamingForGoal
   | RenamingElsewhereFor of (Name.t list * constr)
-- 
cgit v1.2.3