diff options
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 } |