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 /test-suite | |
parent | 80b72879776c461bfaeaab4c7a85a0797f796f18 (diff) | |
parent | 9b9074640c23ced68d92f75558caa2ed77770bcc (diff) |
Merge PR #7787: Fixes #7780: missing lift in expanding alias under a binder in unification
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/bugs/closed/7780.v | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/7780.v b/test-suite/bugs/closed/7780.v new file mode 100644 index 000000000..2318f4d6e --- /dev/null +++ b/test-suite/bugs/closed/7780.v @@ -0,0 +1,16 @@ +(* A lift was missing in expanding aliases under binders for unification *) + +(* Below, the lift was missing while expanding the reference to + [mkcons] in [?N] which was under binder [arg] *) + +Goal forall T (t : T) (P P0 : T -> Set), option (option (list (P0 t)) -> option (list (P t))). + intros ????. + refine (Some + (fun rls + => let mkcons := ?[M] in + let default arg := ?[N] in + match rls as rls (* 2 *) return option (list (P ?[O])) with + | Some _ => None + | None => None + end)). +Abort. |