diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-16 17:47:44 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-16 17:57:20 +0200 |
| commit | 0e2189a7a070dd356d5e549392d35d9d07b05058 (patch) | |
| tree | 010ef6230603cb3beb91e9058fe0e1adb733c5d6 /kernel/term_typing.ml | |
| parent | b857552b6ffd5e72b5124aee9e35fc5c14607173 (diff) | |
Factorizing the uses of Declareops.safe_flags.
This allows a smooth addition of various unsafe flags without wreaking
havoc in the ML codebase.
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 8d74dc390..f0c116d27 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -471,7 +471,7 @@ let translate_local_assum ~flags env t = t let translate_recipe env kn r = - build_constant_declaration ~flags:{check_guarded=true} kn env (Cooking.cook_constant env r) + build_constant_declaration ~flags:Declareops.safe_flags kn env (Cooking.cook_constant env r) let translate_local_def ~flags mb env id centry = let def,typ,proj,poly,univs,inline_code,ctx = |