diff options
author | Arnaud Spiwack <arnaud@spiwack.net> | 2015-06-26 11:24:16 +0200 |
---|---|---|
committer | Arnaud Spiwack <arnaud@spiwack.net> | 2015-06-26 11:24:16 +0200 |
commit | 576d7a815174106f337fca2f19ad7f26a7e87cc4 (patch) | |
tree | 4679e39132853febe84670f5c039fc4608418496 /pretyping/typing.ml | |
parent | 42b7e36ddb68f53ada686900e5a98435d9ff7fde (diff) |
Add a flag to deactivate guard checking in the kernel.
Diffstat (limited to 'pretyping/typing.ml')
-rw-r--r-- | pretyping/typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index fb5927dbf..0bb2979c2 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -184,13 +184,13 @@ let rec execute env evdref cstr = | Fix ((vn,i as vni),recdef) -> let (_,tys,_ as recdef') = execute_recdef env evdref recdef in let fix = (vni,recdef') in - check_fix env fix; + check_fix env ~chk:true fix; make_judge (mkFix fix) tys.(i) | CoFix (i,recdef) -> let (_,tys,_ as recdef') = execute_recdef env evdref recdef in let cofix = (i,recdef') in - check_cofix env cofix; + check_cofix env ~chk:true cofix; make_judge (mkCoFix cofix) tys.(i) | Sort (Prop c) -> |