diff options
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 |