diff options
| author | Hugo Herbelin | 2018-06-12 12:16:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-06-12 12:19:47 +0200 |
| commit | 9b9074640c23ced68d92f75558caa2ed77770bcc (patch) | |
| tree | 743cc95c099240cf2b302004ced4d706029dbca5 /pretyping/evarsolve.ml | |
| parent | ab4bce38a7c0d08d1ebff70c4115b7c1d8e8be88 (diff) | |
Fixes #7780 (missing lift in expanding alias under a binder in unification).
Diffstat (limited to 'pretyping/evarsolve.ml')
| -rw-r--r-- | pretyping/evarsolve.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarsolve.ml b/pretyping/evarsolve.ml index aefae1ecc2..8afb9b9421 100644 --- a/pretyping/evarsolve.ml +++ b/pretyping/evarsolve.ml @@ -929,7 +929,7 @@ let invert_arg_from_subst evd aliases k0 subst_in_env_extended_with_k_binders c_ with Not_found -> match expand_alias_once evd aliases t with | None -> raise Not_found - | Some c -> aux k c in + | Some c -> aux k (lift k c) in try let c = aux 0 c_in_env_extended_with_k_binders in Invertible (UniqueProjection (c,!effects)) |