Mercurial > urweb
comparison tests/stuff.lac @ 1:4202f6eda946
Initial parsing and pretty-printing
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 26 Jan 2008 12:35:32 -0500 |
parents | |
children | 258261a53842 |
comparison
equal
deleted
inserted
replaced
0:502c6d622477 | 1:4202f6eda946 |
---|---|
1 con c1 = t :: Type -> t | |
2 con c2 :: Type = t :: Type -> t | |
3 con c3 = fn t :: Type => c1 | |
4 con c4 = c3 c1 | |
5 con c5 = (fn t :: Type => c1) c1 | |
6 | |
7 con name = #MyName | |
8 | |
9 con c6 = {A : c1, name : c2} | |
10 con c7 = [A = c1, name = c2] |