diff options
author | 2016-06-16 17:58:36 +0200 | |
---|---|---|
committer | 2016-06-16 17:58:36 +0200 | |
commit | 1a36cf5fd0a3d05255df8d913745aa8c7e19b99c (patch) | |
tree | 010ef6230603cb3beb91e9058fe0e1adb733c5d6 /stm/lemmas.ml | |
parent | 69ed6089d7ed778e37f5442f57ef7693f73ca802 (diff) | |
parent | 0e2189a7a070dd356d5e549392d35d9d07b05058 (diff) |
Small factorization in the typing flags of the kernel.
Diffstat (limited to 'stm/lemmas.ml')
-rw-r--r-- | stm/lemmas.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/lemmas.ml b/stm/lemmas.ml index b84b1265e..6d84219d9 100644 --- a/stm/lemmas.ml +++ b/stm/lemmas.ml @@ -79,7 +79,7 @@ let adjust_guardness_conditions const = function List.fold_left (fun e (_,c,cb,_) -> add c cb e) env l) env (Safe_typing.side_effects_of_private_constants eff) in let indexes = - search_guard ~tflags:{Declarations.check_guarded=true} Loc.ghost env + search_guard ~tflags:Declareops.safe_flags Loc.ghost env possible_indexes fixdecls in (mkFix ((indexes,0),fixdecls), ctx), eff | _ -> (body, ctx), eff) } |