From b431b2c4955bf908de6976917dbdc7771596e940 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 12 Dec 2003 20:10:52 +0000
Subject: Ajout exemple Yves

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5091 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/refine.v | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test-suite/success/refine.v b/test-suite/success/refine.v
index 1eb84a9bef..ad4eed5ae5 100644
--- a/test-suite/success/refine.v
+++ b/test-suite/success/refine.v
@@ -16,3 +16,15 @@ Refine let y = O in (plus O ?).
 Exact (S O).
 Save test3.
 
+(* Example submitted by Yves on coqdev *)
+
+Require PolyList.
+
+Goal (l:(list nat))l=l.
+Proof.
+Refine [l]<[l]l=l>
+       Cases l of
+       | nil => ?
+       | (cons O l0) => ?
+       | (cons (S _) l0) => ?
+       end.
-- 
cgit v1.2.3