From 34069d5ffee4a444721c4fb96034fcd78113c7a2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 24 Nov 2000 21:17:33 +0000
Subject: Bug relocation des hypothèses quand les contextes de définitions et
 d'utilisation diffèrent

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@953 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/declare.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'library')

diff --git a/library/declare.ml b/library/declare.ml
index 1fa7236cb9..f87fe82d3e 100644
--- a/library/declare.ml
+++ b/library/declare.ml
@@ -298,9 +298,9 @@ let find_common_hyps_then_abstract c env hyps' hyps =
   find_common_hyps_then_abstract c env hyps' (List.rev hyps)
 
 let current_section_context () =
+  let current = Spmap.fold (fun _ (id,_) hyps -> id::hyps) !vartab [] in
   List.fold_right
-    (fun (id,_,_ as d) hyps ->
-       if Spmap.mem (Lib.make_path id CCI) !vartab then d::hyps else hyps)
+    (fun (id,_,_ as d) hyps -> if List.mem id current then d::hyps else hyps)
     (Global.named_context ()) []
 
 let extract_instance ref args =
-- 
cgit v1.2.3