diff options
| author | herbelin | 2008-11-04 21:27:50 +0000 |
|---|---|---|
| committer | herbelin | 2008-11-04 21:27:50 +0000 |
| commit | 1847057e19e518fd8ab87ead5d7fdd006dfa0367 (patch) | |
| tree | da4ae0f34d719c4581f0a47718af9c887793a22b /test-suite | |
| parent | 9e97abd3ff096b092a90962d8f74f2a0313f9a5a (diff) | |
Adaptation to ocaml 3.11 new semantics of String.index_from (see bug #1974)
Grant wish #1988 ("fun" forces reduction in "refine" if needed)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11536 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/refine.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/refine.v b/test-suite/success/refine.v index 4b636618ad..b654277c8c 100644 --- a/test-suite/success/refine.v +++ b/test-suite/success/refine.v @@ -117,3 +117,8 @@ refine let fn := fact_rec (n-1) _ in n * fn). Abort. + +(* Wish 1988: that fun forces unfold in refine *) + +Goal (forall A : Prop, A -> ~~A). +Proof. refine(fun A a f => _). |