diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-17 00:03:46 +0200 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-17 00:10:03 +0200 |
commit | c5ecebf6fefbaa673dda506175a2aa4a69d79807 (patch) | |
tree | e364fd928f247c249767ffb679b0265857327a6a /test-suite/success/primitiveproj.v | |
parent | 4dc8746cac24ba72a1ec4dfa764a1ae88ce79277 (diff) |
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.
Diffstat (limited to 'test-suite/success/primitiveproj.v')
-rw-r--r-- | test-suite/success/primitiveproj.v | 25 |
1 files changed, 16 insertions, 9 deletions
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. |