diff options
| author | Matthieu Sozeau | 2014-04-08 16:58:52 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:59:00 +0200 |
| commit | be428c80f7be97b80e7e1e58d195a26465407915 (patch) | |
| tree | dbd54be76014e19b03422d25a2b329c927cdbbe2 /pretyping | |
| parent | 61a79f62fa860da63e968b04da9935597312c07e (diff) | |
Refresh some universes in cases.ml as they might appear in the term.
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 2b0a2dda95..75ebdeb22b 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 |