From 755854f526c62b17173ef3fcd21624027ba2bc00 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Tue, 30 Dec 2014 15:16:12 +0100
Subject: Fixing #3892: Ensure that notation variables do not capture names
 hidden behind another notation.

---
 test-suite/bugs/closed/3892.v | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 test-suite/bugs/closed/3892.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/3892.v b/test-suite/bugs/closed/3892.v
new file mode 100644
index 0000000000..833722ba9a
--- /dev/null
+++ b/test-suite/bugs/closed/3892.v
@@ -0,0 +1,8 @@
+(* Check that notation variables do not capture names hidden behind
+   another notation. *)
+Notation "A <-> B" := ((A -> B) * (B -> A))%type : type_scope.
+Notation compose := (fun g f x => g (f x)).
+Notation "g 'o' f" := (compose g f) (at level 40, left associativity).
+Definition iff_compose {A B C : Type} (g : B <-> C) (f : A <-> B) : A <-> C :=
+  (fst g o fst f , snd f o snd g).
+(* Used to fail with: This expression should be a name. *)
-- 
cgit v1.2.3