diff options
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 23bac0b277..178963c48e 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -404,7 +404,7 @@ let cast_rel env cj tj = uj_type = tj.uj_val; uj_kind = whd_betadeltaiota env tj.uj_type } else - error_actual_type CCI env cj tj + error_actual_type CCI env cj.uj_val cj.uj_type tj.uj_val (* Type of an application. *) |