From ab8c213b7a4873265e325d0f8da0744bf31d96be Mon Sep 17 00:00:00 2001
From: msozeau
Date: Sat, 15 Mar 2008 11:54:17 +0000
Subject: Forgot the test file.

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

diff --git a/test-suite/success/ImplicitArguments.v b/test-suite/success/ImplicitArguments.v
new file mode 100644
index 0000000000..e7795733f6
--- /dev/null
+++ b/test-suite/success/ImplicitArguments.v
@@ -0,0 +1,17 @@
+Inductive vector {A : Type} : nat -> Type :=
+| vnil : vector 0
+| vcons : A -> forall {n'}, vector n' -> vector (S n').
+
+Require Import Coq.Program.Program.
+
+Program Definition head {A : Type} {n : nat} (v : vector A (S n)) : vector A n :=
+  match v with
+    | vnil => !
+    | vcons a n' v' => v'
+  end.
+
+Fixpoint app {A : Type} {n m : nat} (v : vector A n) (w : vector A m) : vector A (n + m) :=
+  match v in vector _ n return vector A (n + m) with
+    | vnil => w
+    | vcons a n' v' => vcons a (app v' w)
+  end.
-- 
cgit v1.2.3