diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-06-12 12:16:40 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 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 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)) |