From c5ecebf6fefbaa673dda506175a2aa4a69d79807 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Wed, 17 Sep 2014 00:03:46 +0200 Subject: Revert specific syntax for primitive projections, avoiding ugly contortions in internalization/externalization. It uses a fully typed version of detyping, requiring the environment, to move from primitive projection applications to regular applications of the eta-expanded version. The kernel is unchanged, and only constrMatching needs compatibility code now. --- test-suite/success/primitiveproj.v | 25 ++++++++++++++++--------- 1 file changed, 16 insertions(+), 9 deletions(-) (limited to 'test-suite/success') diff --git a/test-suite/success/primitiveproj.v b/test-suite/success/primitiveproj.v index 74083ac89..068f8ac3c 100644 --- a/test-suite/success/primitiveproj.v +++ b/test-suite/success/primitiveproj.v @@ -115,22 +115,22 @@ Unset Printing All. (** Explicit version of the primitive projection, under applied w.r.t implicit arguments can be printed only using projection notation. r.(@p) *) -Check r.(@p). +Check r.(@p _). Set Printing Projections. -Check r.(@p). +Check r.(@p _). Unset Printing Projections. Set Printing All. -Check r.(@p). +Check r.(@p _). Unset Printing All. (** Explicit version of the primitive projection, applied to its implicit arguments can be printed using application notation r.(p), r.(@p) in fully explicit form *) -Check r.(@p) nat. +Check r.(@p _) nat. Set Printing Projections. -Check r.(@p) nat. +Check r.(@p _) nat. Unset Printing Projections. Set Printing All. -Check r.(@p) nat. +Check r.(@p _) nat. Unset Printing All. Parameter r' : R' nat. @@ -163,12 +163,12 @@ Unset Printing All. (** Explicit version of the primitive projection, under applied w.r.t implicit arguments can be printed only using projection notation. r.(@p) *) -Check r'.(@p'). +Check r'.(@p' _). Set Printing Projections. -Check r'.(@p'). +Check r'.(@p' _). Unset Printing Projections. Set Printing All. -Check r'.(@p'). +Check r'.(@p' _). Unset Printing All. (** Explicit version of the primitive projection, applied to its implicit arguments @@ -181,3 +181,10 @@ Set Printing All. Check p' r' nat. Unset Printing All. +Check (@p' nat). +Check p'. +Set Printing All. + +Check (@p' nat). +Check p'. +Unset Printing All. -- cgit v1.2.3