From 27bece20a8abae9a2b4251e065010a4e52590c45 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 9 Sep 2008 09:15:00 -0400
Subject: Datatype positivity check

---
 tests/datatype.ur | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tests/datatype.ur')

diff --git a/tests/datatype.ur b/tests/datatype.ur
index 1e1a91aa..302a7da0 100644
--- a/tests/datatype.ur
+++ b/tests/datatype.ur
@@ -11,3 +11,6 @@ datatype list = Nil | Cons of {Head : int, Tail : list}
 
 val nil = Nil
 val l1 = Cons {Head = 0, Tail = nil}
+
+datatype term = App of term * term | Abs of term -> term
+
-- 
cgit v1.2.3