aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/success/letproj.v
blob: a183be62237ef20adf0fd28fb46f4c95541394d0 (plain)
1
2
3
4
5
6
7
8
9
Set Primitive Projections.
Set Record Elimination Schemes.
Record Foo (A : Type) := { bar : A -> A; baz : A }.

Definition test (A : Type) (f : Foo A) := 
  let (x, y) := f in x.

Scheme foo_case := Case for Foo Sort Type.