diff options
| author | Hugo Herbelin | 2014-12-30 15:16:12 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-12-30 15:57:45 +0100 |
| commit | 755854f526c62b17173ef3fcd21624027ba2bc00 (patch) | |
| tree | 2fa748117f65a1ecc2315b25ce4c525945fd4600 /test-suite/bugs | |
| parent | 9cbe6fedf81f85430290ca690d8995f3694b59c3 (diff) | |
Fixing #3892: Ensure that notation variables do not capture names
hidden behind another notation.
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/3892.v | 8 |
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 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. *) |