diff options
| author | barras | 2005-11-23 15:10:16 +0000 |
|---|---|---|
| committer | barras | 2005-11-23 15:10:16 +0000 |
| commit | fd9eb182a5a45d04c634ea17e2225dddbf667033 (patch) | |
| tree | a29dd14f575b518231d72d395999966425ca33eb /library | |
| parent | e5f90d8f6b7db4d63b3d21afabff1d6879d53a34 (diff) | |
bug #909: Top n'est cree que si le contexte est vide
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7602 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 2 | ||||
| -rw-r--r-- | library/global.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index 6606200866..b8bc364b05 100644 --- a/library/global.ml +++ b/library/global.ml @@ -25,6 +25,8 @@ let safe_env () = !global_env let env () = env_of_safe_env !global_env +let env_is_empty () = is_empty !global_env + let _ = declare_summary "Global environment" { freeze_function = (fun () -> !global_env); diff --git a/library/global.mli b/library/global.mli index 9468f3ef52..ef8472d08f 100644 --- a/library/global.mli +++ b/library/global.mli @@ -29,6 +29,8 @@ open Safe_typing val safe_env : unit -> safe_environment val env : unit -> Environ.env +val env_is_empty : unit -> bool + val universes : unit -> universes val named_context : unit -> Sign.named_context |