summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/3892.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/bugs/closed/3892.v')
-rw-r--r--test-suite/bugs/closed/3892.v8
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3892.v b/test-suite/bugs/closed/3892.v
new file mode 100644
index 00000000..833722ba
--- /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. *)