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 /pretyping/inductiveops.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 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 0b488308a..1d7720454 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -592,9 +592,9 @@ let type_of_projection_knowing_arg env sigma p c ty = let control_only_guard env c = let check_fix_cofix e c = match kind_of_term c with | CoFix (_,(_,_,_) as cofix) -> - Inductive.check_cofix ~flags:{check_guarded=true} e cofix + Inductive.check_cofix ~flags:Declareops.safe_flags e cofix | Fix (_,(_,_,_) as fix) -> - Inductive.check_fix ~flags:{check_guarded=true} e fix + Inductive.check_fix ~flags:Declareops.safe_flags e fix | _ -> () in let rec iter env c = |