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

1 files changed, 2 insertions, 2 deletions

diff --git a/library/declare.ml b/library/declare.ml
index 1fa7236cb..f87fe82d3 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 =