diff options
| -rw-r--r-- | pretyping/pretyping.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 16d92ad78..71ed28c97 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -847,7 +847,8 @@ let rec pretype resolve_tc (tycon : type_constraint) env evdref (lvar : ltac_var Typing.check_allowed_sort env !evdref ind cj.uj_val pred; mkCase (ci, pred, cj.uj_val, [|b1;b2|]) in - { uj_val = v; uj_type = p } + let cj = { uj_val = v; uj_type = p } in + inh_conv_coerce_to_tycon loc env evdref cj tycon | GCases (loc,sty,po,tml,eqns) -> Cases.compile_cases loc sty |