diff options
| author | Matthieu Sozeau | 2014-04-09 14:02:15 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:59:00 +0200 |
| commit | 266aea59645ede8fc12ff60ce077504e1f29624c (patch) | |
| tree | 5fad7e9b4ceae5a0cf8e8d8991d77debe8599b6d /pretyping/coercion.ml | |
| parent | bfbef3d5e9d1262e29ce5ed68acf6f33de603f39 (diff) | |
Keep track of universes on coercion applications even if they're not polymorphic (fixes bug #3043).
Diffstat (limited to 'pretyping/coercion.ml')
| -rw-r--r-- | pretyping/coercion.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index ab3a3fa100..baa9086166 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -335,7 +335,7 @@ let apply_coercion env sigma p hj typ_cl = let sigma = Evd.merge_context_set Evd.univ_flexible sigma ctx in let argl = (class_args_of env sigma typ_cl)@[ja.uj_val] in let sigma, jres = - apply_coercion_args env sigma (not (Univ.ContextSet.is_empty ctx)) argl fv + apply_coercion_args env sigma true argl fv in (if isid then { uj_val = ja.uj_val; uj_type = jres.uj_type } |