blob: 2f0d8bf8c46c3db3a94e4bf9ea3bd13539b0c4cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Set Primitive Projections.
Set Nonrecursive 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.
Definition test' (A : Type) (f : Foo A) :=
let 'Build_Foo _ x y := f in x.
|
