Mercurial > urweb
annotate tests/stuff.lac @ 5:258261a53842
Elaborating files
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 26 Jan 2008 16:02:47 -0500 |
parents | 4202f6eda946 |
children | 38bf996e1c2e |
rev | line source |
---|---|
adamc@1 | 1 con c1 = t :: Type -> t |
adamc@1 | 2 con c2 :: Type = t :: Type -> t |
adamc@1 | 3 con c3 = fn t :: Type => c1 |
adamc@1 | 4 con c4 = c3 c1 |
adamc@1 | 5 con c5 = (fn t :: Type => c1) c1 |
adamc@1 | 6 |
adamc@1 | 7 con name = #MyName |
adamc@1 | 8 |
adamc@1 | 9 con c6 = {A : c1, name : c2} |
adamc@1 | 10 con c7 = [A = c1, name = c2] |
adamc@5 | 11 |
adamc@5 | 12 con c8 = fn t :: Type => t |