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 /test-suite/bugs | |
parent | ab4bce38a7c0d08d1ebff70c4115b7c1d8e8be88 (diff) |
Fixes #7780 (missing lift in expanding alias under a binder in unification).
Diffstat (limited to 'test-suite/bugs')
-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. |