From e82e8e216c4955db58255062fb5c61c7b2aa3c2a Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Tue, 13 Feb 2018 18:18:44 +0100 Subject: 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. --- test-suite/success/letproj.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'test-suite/success') 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. -- cgit v1.2.3