From da8f274d07acc80f95928979730bd390984aaf1b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 8 Jun 2011 15:39:23 +0000
Subject: Make Notation works with anonymous-level "Type".

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14170 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/output/Notations.out | 2 ++
 test-suite/output/Notations.v   | 8 ++++++++
 2 files changed, 10 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/output/Notations.out b/test-suite/output/Notations.out
index 215d9b68c5..72264d082b 100644
--- a/test-suite/output/Notations.out
+++ b/test-suite/output/Notations.out
@@ -120,3 +120,5 @@ fun x : option Z => match x with
                     | NONE3 => 0
                     end
      : option Z -> Z
+s
+     : s
diff --git a/test-suite/output/Notations.v b/test-suite/output/Notations.v
index b8f8f48f30..4a2c411ee0 100644
--- a/test-suite/output/Notations.v
+++ b/test-suite/output/Notations.v
@@ -245,3 +245,11 @@ Check (fun x => match x with SOME2 x => x | NONE2 => 0 end).
 Notation NONE3 := @None.
 Notation SOME3 := @Some.     
 Check (fun x => match x with SOME3 x => x | NONE3 => 0 end).
+
+(* Check correct matching of "Type" in notations. Of course the
+   notation denotes a term that will be reinterpreted with a different
+   universe than the actual one; but it would be the same anyway
+   without a notation *)
+
+Notation s := Type.
+Check s.
-- 
cgit v1.2.3