From 33512e2f4d7d0733805efac1b9e69855fdf1777c Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 2 Nov 2000 15:41:00 +0000
Subject: correction Abstract (et make world passe!)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@794 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/global.ml  | 7 +++++++
 library/global.mli | 5 +++++
 2 files changed, 12 insertions(+)

(limited to 'library')

diff --git a/library/global.ml b/library/global.ml
index 118a189c6c..7b69ca0a85 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*)
 
diff --git a/library/global.mli b/library/global.mli
index e9a9503ff3..a59c998231 100644
--- a/library/global.mli
+++ b/library/global.mli
@@ -46,6 +46,11 @@ val import : compiled_env -> unit
 
 val id_of_global : global_reference -> identifier
 
+(*s Function to get an environment from the constants part of the global
+    environment and a given context. *)
+
+val env_of_context : named_context -> env
+
 (*s Re-exported functions of [Inductive], composed with 
     [lookup_mind_specif]. *)
 
-- 
cgit v1.2.3