diff options
| author | Gaëtan Gilbert | 2019-08-20 12:50:18 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-08-20 12:50:18 +0200 |
| commit | 9e1f8009141345f3232947c1d356b5def4ca7263 (patch) | |
| tree | 6f0f7b0e4f34822035ce8ab819f8c5b93eca806d /library | |
| parent | 92f38826f767db01dbc51f2372b23e7b4e3b1aaa (diff) | |
| parent | d6d8229dd8d71cf8cac1d116426bf772a9b8821b (diff) | |
Merge PR #10291: Controlling typing flags with commands (no attribute)
Reviewed-by: SkySkimmer
Reviewed-by: Zimmi48
Diffstat (limited to 'library')
| -rw-r--r-- | library/global.ml | 3 | ||||
| -rw-r--r-- | library/global.mli | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/library/global.ml b/library/global.ml index ca774dbd74..0fc9e11364 100644 --- a/library/global.ml +++ b/library/global.ml @@ -89,6 +89,9 @@ let push_context_set b c = globalize0 (Safe_typing.push_context_set b c) let set_engagement c = globalize0 (Safe_typing.set_engagement c) let set_indices_matter b = globalize0 (Safe_typing.set_indices_matter b) let set_typing_flags c = globalize0 (Safe_typing.set_typing_flags c) +let set_check_guarded c = globalize0 (Safe_typing.set_check_guarded c) +let set_check_positive c = globalize0 (Safe_typing.set_check_positive c) +let set_check_universes c = globalize0 (Safe_typing.set_check_universes c) let typing_flags () = Environ.typing_flags (env ()) let make_sprop_cumulative () = globalize0 Safe_typing.make_sprop_cumulative let set_allow_sprop b = globalize0 (Safe_typing.set_allow_sprop b) diff --git a/library/global.mli b/library/global.mli index d034bc4208..b089b7dd80 100644 --- a/library/global.mli +++ b/library/global.mli @@ -31,6 +31,9 @@ val named_context : unit -> Constr.named_context val set_engagement : Declarations.engagement -> unit val set_indices_matter : bool -> unit val set_typing_flags : Declarations.typing_flags -> unit +val set_check_guarded : bool -> unit +val set_check_positive : bool -> unit +val set_check_universes : bool -> unit val typing_flags : unit -> Declarations.typing_flags val make_sprop_cumulative : unit -> unit val set_allow_sprop : bool -> unit |