diff options
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 6ae5bb931d..e46be516a6 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -133,7 +133,7 @@ let check_params nparams params c = try List.iter2 (fun (n1,t1) (n2,t2) -> - if n1 <> n2 || strip_outer_cast t1 <> strip_outer_cast t2 then + if n1 <> n2 || strip_all_casts t1 <> strip_all_casts t2 then raise (InductiveError BadEntry)) eparams params with Invalid_argument _ -> |