test-suite/bugs/closed/4272.v


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.