diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-15 22:28:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-15 22:28:52 +0000 |
| commit | e2257ae597fd213463dcc7d56e1eb6e6663c0ad3 (patch) | |
| tree | c7d3aff958477c20d732bab4185053af0bb63461 /test-suite/output/Notations2.v | |
| parent | 6717a057b9903b632baadfa1c570645792a9c07b (diff) | |
Take benefit of eta-expansion so that "ex P" is displayed "exists x, P x".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14018 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/output/Notations2.v')
| -rw-r--r-- | test-suite/output/Notations2.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/output/Notations2.v b/test-suite/output/Notations2.v index 635b25416..4f9b9ccc7 100644 --- a/test-suite/output/Notations2.v +++ b/test-suite/output/Notations2.v @@ -25,6 +25,10 @@ Remove Printing Let prod. Check match (0,0,0) with (x,y,z) => x+y+z end. Check let '(a,b,c) := ((2,3),4) in a. +(* Test notation for anonymous functions up to eta-expansion *) + +Check fun P:nat->nat->Prop => fun x:nat => ex (P x). + (* Test notations with binders *) Notation "∃ x .. y , P":= |