From 3f9a8b088c5e32e918dc0d221dab27d9811e0009 Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 15 Oct 2001 13:10:19 +0000 Subject: Test compatibilité V6 pour les filtrages avec let-in MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2120 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/success/Case12.v | 11 +++++++++++ 1 file changed, 11 insertions(+) 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 }. -- cgit v1.2.3