diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 2b0a2dda9..75ebdeb22 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1559,6 +1559,7 @@ let abstract_tycon loc env evdref subst _tycon extenv t = map_constr_with_full_binders push_binder aux x t | Evar ev -> let ty = get_type_of env sigma t in + let ty = Evarutil.evd_comb1 (refresh_universes false) evdref ty in let inst = List.map_i (fun i _ -> @@ -1574,7 +1575,11 @@ let abstract_tycon loc env evdref subst _tycon extenv t = map_constr_with_full_binders push_binder aux x t | (_, _, u) :: _ -> (* u is in extenv *) let vl = List.map pi1 good in - let ty = lift (-k) (aux x (get_type_of env !evdref t)) in + let ty = + let ty = get_type_of env !evdref t in + Evarutil.evd_comb1 (refresh_universes false) evdref ty + in + let ty = lift (-k) (aux x ty) in let depvl = free_rels ty in let inst = List.map_i |