Mercurial > urweb
comparison tests/datatype.ur @ 312:f387d12193ba
Datatype positivity check
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 09 Sep 2008 09:15:00 -0400 |
parents | 71bafe66dbe1 |
children |
comparison
equal
deleted
inserted
replaced
311:9ad92047a499 | 312:f387d12193ba |
---|---|
9 | 9 |
10 datatype list = Nil | Cons of {Head : int, Tail : list} | 10 datatype list = Nil | Cons of {Head : int, Tail : list} |
11 | 11 |
12 val nil = Nil | 12 val nil = Nil |
13 val l1 = Cons {Head = 0, Tail = nil} | 13 val l1 = Cons {Head = 0, Tail = nil} |
14 | |
15 datatype term = App of term * term | Abs of term -> term | |
16 |