diff options
author | 2016-06-16 17:58:36 +0200 | |
---|---|---|
committer | 2016-06-16 17:58:36 +0200 | |
commit | 1a36cf5fd0a3d05255df8d913745aa8c7e19b99c (patch) | |
tree | 010ef6230603cb3beb91e9058fe0e1adb733c5d6 /kernel/typeops.ml | |
parent | 69ed6089d7ed778e37f5442f57ef7693f73ca802 (diff) | |
parent | 0e2189a7a070dd356d5e549392d35d9d07b05058 (diff) |
Small factorization in the typing flags of the kernel.
Diffstat (limited to 'kernel/typeops.ml')
-rw-r--r-- | kernel/typeops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index a94a049df..9b9792ce8 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -500,13 +500,13 @@ let rec execute env cstr = | Fix ((vn,i as vni),recdef) -> let (fix_ty,recdef') = execute_recdef env recdef i in let fix = (vni,recdef') in - check_fix ~flags:{check_guarded=true} env fix; + check_fix ~flags:Declareops.safe_flags env fix; make_judge (mkFix fix) fix_ty | CoFix (i,recdef) -> let (fix_ty,recdef') = execute_recdef env recdef i in let cofix = (i,recdef') in - check_cofix ~flags:{check_guarded=true} env cofix; + check_cofix ~flags:Declareops.safe_flags env cofix; (make_judge (mkCoFix cofix) fix_ty) (* Partial proofs: unsupported by the kernel *) |