diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-02-13 18:18:44 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-15 15:21:52 +0200 |
| commit | e82e8e216c4955db58255062fb5c61c7b2aa3c2a (patch) | |
| tree | b5913e217fe69c98662e4b526212e0ef028a8577 /test-suite | |
| parent | f2e2d1d9f00ab731bd2bbe1dd57d685ac5024204 (diff) | |
Better elaboration of pattern-matchings on primitive projections
This ensures that computations are shared as much as possible, mimicking
the "positive" records computational behavior if possible.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/letproj.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test-suite/success/letproj.v b/test-suite/success/letproj.v index de2857b43..2f0d8bf8c 100644 --- a/test-suite/success/letproj.v +++ b/test-suite/success/letproj.v @@ -7,3 +7,5 @@ Definition test (A : Type) (f : Foo A) := Scheme foo_case := Case for Foo Sort Type. +Definition test' (A : Type) (f : Foo A) := + let 'Build_Foo _ x y := f in x. |