aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <matthieu.sozeau@inria.fr>2018-02-13 18:18:44 +0100
committerGravatar Matthieu Sozeau <matthieu.sozeau@inria.fr>2018-06-15 15:21:52 +0200
commite82e8e216c4955db58255062fb5c61c7b2aa3c2a (patch)
treeb5913e217fe69c98662e4b526212e0ef028a8577 /test-suite
parentf2e2d1d9f00ab731bd2bbe1dd57d685ac5024204 (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.v2
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.