diff options
| author | Hugo Herbelin | 2014-09-13 10:44:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-13 11:20:28 +0200 |
| commit | 24d0027f0344bca7abce3b8fa8c2a1e42ecf1a00 (patch) | |
| tree | bdde5a56a8e3ca5b0a258ccb68a85caf498fdf56 /kernel/closure.ml | |
| parent | 9a4e062c92ad88c894ebbd6e20ee9d1511f24a3f (diff) | |
Providing a -type-in-type option for collapsing the universe hierarchy.
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 8851ea2b66..14afcc4dbb 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -1111,6 +1111,8 @@ let create_clos_infos ?(evars=fun _ -> None) flgs env = create (fun _ -> inject) flgs env evars let oracle_of_infos infos = Environ.oracle infos.i_cache.i_env +let env_of_infos infos = infos.i_cache.i_env + let infos_with_reds infos reds = { infos with i_flags = reds } |