diff options
| author | herbelin | 2011-04-15 22:28:52 +0000 |
|---|---|---|
| committer | herbelin | 2011-04-15 22:28:52 +0000 |
| commit | e2257ae597fd213463dcc7d56e1eb6e6663c0ad3 (patch) | |
| tree | c7d3aff958477c20d732bab4185053af0bb63461 /test-suite | |
| 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')
| -rw-r--r-- | test-suite/output/Notations2.out | 2 | ||||
| -rw-r--r-- | test-suite/output/Notations2.v | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/output/Notations2.out b/test-suite/output/Notations2.out index 5a4a72303c..783b30c0fc 100644 --- a/test-suite/output/Notations2.out +++ b/test-suite/output/Notations2.out @@ -10,6 +10,8 @@ end : nat let '(a, _, _) := (2, 3, 4) in a : nat +fun (P : nat -> nat -> Prop) (x : nat) => exists x0, P x x0 + : (nat -> nat -> Prop) -> nat -> Prop ∃ n p : nat, n + p = 0 : Prop ∀ n p : nat, n + p = 0 diff --git a/test-suite/output/Notations2.v b/test-suite/output/Notations2.v index 635b254166..4f9b9ccc7b 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":= |