diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-02 22:00:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-06-02 22:00:18 +0000 |
| commit | 006d5665a34d515a37984fd35b0992b9a5603b36 (patch) | |
| tree | 262030fac72755126e43618fe866e05f1f0f219e /test-suite/success/unification.v | |
| parent | a52b0929a8ed4ca3df088adfbc596815550b76ba (diff) | |
Adding a regression test about Bauer's example on coq-club of
rewriting using eta.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12161 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/unification.v')
| -rw-r--r-- | test-suite/success/unification.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/unification.v b/test-suite/success/unification.v index 91ee18ea4..a7e129a38 100644 --- a/test-suite/success/unification.v +++ b/test-suite/success/unification.v @@ -126,3 +126,13 @@ intros. exists (fun n => match n with O => a | S n' => f' n' end). constructor. Qed. + +(* Check use of types in unification (see Andrej Bauer's mail on + coq-club, June 1 2009; it did not work in 8.2, probably started to + work after Sozeau improved support for the use of types in unification) *) + +Goal (forall (A B : Set) (f : A -> B), (fun x => f x) = f) -> + forall (A B C : Set) (g : (A -> B) -> C) (f : A -> B), g (fun x => f x) = g f. +Proof. + intros. + rewrite H. |