Mercurial > urweb
annotate tests/stuff.lac @ 11:e97c6d335869
Simple elaboration working
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Fri, 28 Mar 2008 15:20:46 -0400 |
| parents | a455a9f85cc3 |
| children | d89477f07c1e |
| rev | line source |
|---|---|
| adamc@7 | 1 type 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 |
| adamc@6 | 13 |
| adamc@6 | 14 con c9 = {} |
| adamc@6 | 15 con c10 = ([]) :: {Type} |
| adamc@8 | 16 |
| adamc@8 | 17 val v1 = fn t :: Type => fn x : t => x |
| adamc@11 | 18 val v2 = v1 [t :: Type -> t -> t] v1 |