From 04c532d81f69f0b6371b30b524b7aa258a6309c3 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 20 May 2017 17:07:29 +0200
Subject: Added a test for #4765 (an example of printing abbreviation with
 binders).

---
 test-suite/output/Notations3.out | 2 ++
 test-suite/output/Notations3.v   | 5 +++++
 2 files changed, 7 insertions(+)

diff --git a/test-suite/output/Notations3.out b/test-suite/output/Notations3.out
index 360f379676..4d59a92cbf 100644
--- a/test-suite/output/Notations3.out
+++ b/test-suite/output/Notations3.out
@@ -98,3 +98,5 @@ fun n : nat => foo4 n (fun _ y : nat => ETA z : nat, (fun _ : nat => y = 0))
      : nat -> Prop
 tele (t : Type) '(y, z) (x : t0) := tt
      : forall t : Type, nat * nat -> t -> fpack
+foo5 x nat x
+     : nat -> nat
diff --git a/test-suite/output/Notations3.v b/test-suite/output/Notations3.v
index 4b8bfe3124..96d831944f 100644
--- a/test-suite/output/Notations3.v
+++ b/test-suite/output/Notations3.v
@@ -139,3 +139,8 @@ Notation "'tele' x .. z := b" :=
   (at level 85, x binder, z binder).
 
 Check tele (t:Type) '((y,z):nat*nat) (x:t) := tt.
+
+(* Cyprien's part of bug #4765 *)
+
+Notation foo5 x T y := (fun x : T => y).
+Check foo5 x nat x.
-- 
cgit v1.2.3