Test compatibilité V6 pour les filtrages avec let-in

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2120 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 11 insertions, 0 deletions

diff --git a/test-suite/success/Case12.v b/test-suite/success/Case12.v
index 86f38acfd..284695f41 100644
--- a/test-suite/success/Case12.v
+++ b/test-suite/success/Case12.v
@@ -47,3 +47,14 @@ Type
         | (cons' n0 m l0) => (f0 n0 l0 (F m l0))
         end}.
 
+(* Check on-the-fly insertion of let-in patterns for compatibility *)
+
+Inductive list'' : nat -> Set :=
+| nil'' : (list'' O)
+| cons'' : (n:nat)[m:=(mult2 n)](list'' m)->[p:=(S (S m))](list'' p).
+
+Check Fix length { length [n; l:(list'' n)] : nat :=
+         Cases l of
+           nil'' => O
+         | (cons'' n l0) => (S (length (mult2 n) l0))
+         end }.