view tests/stuff.lac @ 6:38bf996e1c2e

Check for leftover kind unifs
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 16:44:39 -0500
parents 258261a53842
children 2ce5bf227d01
line wrap: on
line source
con c1 = t :: Type -> t
con c2 :: Type = t :: Type -> t
con c3 = fn t :: Type => c1
con c4 = c3 c1
con c5 = (fn t :: Type => c1) c1

con name = #MyName

con c6 = {A : c1, name : c2}
con c7 = [A = c1, name = c2]

con c8 = fn t :: Type => t

con c9 = {}
con c10 = ([]) :: {Type}