diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2018-06-14 11:21:28 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2018-06-14 11:21:28 +0200 |
| commit | e40e2e7bb250686836693911717d7acfee72ba81 (patch) | |
| tree | e9fcc9270f6f3149084ff25734186e8a777ed349 /pretyping | |
| parent | 80b72879776c461bfaeaab4c7a85a0797f796f18 (diff) | |
| parent | 9b9074640c23ced68d92f75558caa2ed77770bcc (diff) | |
Merge PR #7787: Fixes #7780: missing lift in expanding alias under a binder in unification
Diffstat (limited to 'pretyping')
| -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 aefae1ecc..8afb9b942 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)) |