diff options
author | 2016-06-16 17:58:36 +0200 | |
---|---|---|
committer | 2016-06-16 17:58:36 +0200 | |
commit | 1a36cf5fd0a3d05255df8d913745aa8c7e19b99c (patch) | |
tree | 010ef6230603cb3beb91e9058fe0e1adb733c5d6 /kernel/declareops.ml | |
parent | 69ed6089d7ed778e37f5442f57ef7693f73ca802 (diff) | |
parent | 0e2189a7a070dd356d5e549392d35d9d07b05058 (diff) |
Small factorization in the typing flags of the kernel.
Diffstat (limited to 'kernel/declareops.ml')
-rw-r--r-- | kernel/declareops.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/declareops.ml b/kernel/declareops.ml index 78e2f386e..28f7e69cd 100644 --- a/kernel/declareops.ml +++ b/kernel/declareops.ml @@ -14,6 +14,10 @@ open Context.Rel.Declaration (** Operations concernings types in [Declarations] : [constant_body], [mutual_inductive_body], [module_body] ... *) +let safe_flags = { + check_guarded = true; +} + (** {6 Arities } *) let subst_decl_arity f g sub ar = |