diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-07 18:43:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-07 19:07:23 +0200 |
| commit | 1522b9899b669f4fdd0fc9be1963c5e96d81a13f (patch) | |
| tree | b54e4bfd78cccc0654889206500371d44292f543 /library/global.ml | |
| parent | e9c6d4cbc9973e0c46b8022fcc5a794f363d1e86 (diff) | |
Fixes #7192 (Print Assumptions does not enter implementation of submodules).
We fix it by looking manually for the implementation at each level of
nesting rather than using the signature for the n first levels and
looking for the implementation only in the n+1-th level.
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index 6083c4079..dcb20a280 100644 --- a/library/global.ml +++ b/library/global.ml @@ -259,6 +259,9 @@ let is_type_in_type r = | IndRef ind -> Environ.type_in_type_ind ind env | ConstructRef cstr -> Environ.type_in_type_ind (inductive_of_constructor cstr) env +let current_modpath () = + Safe_typing.current_modpath (safe_env ()) + let current_dirpath () = Safe_typing.current_dirpath (safe_env ()) |