diff options
author | 2012-01-20 21:08:33 +0000 | |
---|---|---|
committer | 2012-01-20 21:08:33 +0000 | |
commit | 22a8453f551349bbafa14b914aa784693dcf3615 (patch) | |
tree | 3c6a38d4a785120a6094c9850df1bb9165c26b7d /test-suite/output/Notations2.v | |
parent | 033d8f9628c54218378ee539648b6df6bfcbdb1e (diff) |
Notations with binders: Accepting using notations for functional terms
which do not necessarily depend on their parameter (e.g. a notation
for "fun x => t" might match also "fun _ => t").
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14926 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/output/Notations2.v')
-rw-r--r-- | test-suite/output/Notations2.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/output/Notations2.v b/test-suite/output/Notations2.v index e902a3c27..1fcbe858a 100644 --- a/test-suite/output/Notations2.v +++ b/test-suite/output/Notations2.v @@ -83,3 +83,13 @@ Notation "'mylet' f [ x ; .. ; y ] := t 'in' u":= Check mylet f [x;y;z;(a:bool)] := x+y+z+1 in f 0 1 2. *) + +(* Check notations for functional terms which do not necessarily + depend on their parameter *) +(* Old request mentioned again on coq-club 20/1/2012 *) + +Notation "# x : T => t" := (fun x : T => t) + (at level 0, t at level 200, x ident). + +Check # x : nat => x. +Check # _ : nat => 2. |