diff options
| author | Arnaud Spiwack | 2015-06-26 11:24:16 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-06-26 11:24:16 +0200 |
| commit | 576d7a815174106f337fca2f19ad7f26a7e87cc4 (patch) | |
| tree | 4679e39132853febe84670f5c039fc4608418496 /toplevel | |
| parent | 42b7e36ddb68f53ada686900e5a98435d9ff7fde (diff) | |
Add a flag to deactivate guard checking in the kernel.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 6beaf54c53..06d7c629a5 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -1168,7 +1168,7 @@ let do_program_recursive local p fixkind fixl ntns = in let indexes = Pretyping.search_guard Loc.ghost (Global.env ()) possible_indexes fixdecls in - List.iteri (fun i _ -> Inductive.check_fix env ((indexes,i),fixdecls)) fixl + List.iteri (fun i _ -> Inductive.check_fix env ~chk:true ((indexes,i),fixdecls)) fixl end in let ctx = Evd.evar_universe_context evd in let kind = match fixkind with |