Mercurial > urweb
view tests/stuff.lac @ 10:dde5c52e5e5e
Start of elaborating expressions
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Fri, 28 Mar 2008 13:59:03 -0400 |
parents | a455a9f85cc3 |
children | e97c6d335869 |
line wrap: on
line source
type 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} val v1 = fn t :: Type => fn x : t => x val v2 = v1 [c1] (fn y => y)