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 /tactics | |
| 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 'tactics')
| -rw-r--r-- | tactics/declare.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/declare.ml b/tactics/declare.ml index e093a27728..391524ebda 100644 --- a/tactics/declare.ml +++ b/tactics/declare.ml @@ -246,7 +246,7 @@ let get_roles export eff = let feedback_axiom () = Feedback.(feedback AddedAxiom) let is_unsafe_typing_flags () = let flags = Environ.typing_flags (Global.env()) in - not (flags.check_universes && flags.check_guarded) + not (flags.check_universes && flags.check_guarded && flags.check_positive) let define_constant ~side_effect ~name cd = let open Proof_global in |