diff options
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 26f4d51c6d..b4a74061f0 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -642,7 +642,8 @@ let check_one_fix renv recpos def = (try List.for_all (check_rec_call renv) l with (FixGuardError _ ) as e -> if evaluable_constant renv.env sp then - check_rec_call renv (whd_betadeltaiota renv.env t) + check_rec_call renv + (applist(constant_value renv.env sp, l)) else raise e) (* The cases below simply check recursively the condition on the |