From de0085539583f59dc7c4bf4e272e18711d565466 Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Thu, 13 Jul 2006 14:28:31 +0000 Subject: Imported Upstream version 8.0pl3+8.1beta.2 --- test-suite/failure/inductive3.v | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 test-suite/failure/inductive3.v (limited to 'test-suite/failure/inductive3.v') diff --git a/test-suite/failure/inductive3.v b/test-suite/failure/inductive3.v new file mode 100644 index 00000000..e5a4e1b6 --- /dev/null +++ b/test-suite/failure/inductive3.v @@ -0,0 +1,5 @@ +(* Check that the nested inductive types positivity check avoids recursively + non uniform parameters (at least if these parameters break positivity) *) + +Inductive t (A:Type) : Type := c : t (A -> A) -> t A. +Inductive u : Type := d : u | e : t u -> u. -- cgit v1.2.3