correction Abstract (et make world passe!)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@794 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 7 insertions, 0 deletions

diff --git a/library/global.ml b/library/global.ml
index 118a189c6..7b69ca0a8 100644
--- a/library/global.ml
+++ b/library/global.ml
@@ -5,6 +5,7 @@ open Util
 open Term
 open Instantiate
 open Sign
+open Environ
 open Safe_typing
 open Summary
 
@@ -54,6 +55,12 @@ let import cenv = global_env := import cenv !global_env
 
 let id_of_global id = Environ.id_of_global (env_of_safe_env !global_env) id
 
+(*s Function to get an environment from the constants part of the global
+    environment and a given context. *)
+
+let env_of_context hyps = 
+  change_hyps (fun _ -> hyps) (env_of_safe_env !global_env)
+
 (* Functions of [Inductive], composed with [lookup_mind_specif]. *)
 (* Rem:Cannot open Inductive to avoid clash with Inductive.lookup_mind_specif*)