summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/4272.v
blob: aeb4c9bb95e593baeb543819613ed07ce8ec7be1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
Set Implicit Arguments.

Record foo := Foo { p1 : Type; p2 : p1 }.

Variable x : foo.

Let p := match x with @Foo a b => a end.

Notation "@ 'id'"  := 3 (at level 10).
Notation "@ 'sval'" := 3 (at level 10).

Let q := match x with @Foo a b => a end.