Mercurial > urweb
annotate tests/stuff.lac @ 41:1405d8c26790
Beginning of functor elaboration
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 19 Jun 2008 16:04:28 -0400 |
parents | d89477f07c1e |
children |
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 |
adamc@12 | 19 |
adamc@12 | 20 val r = {X = v1, Y = v2} |
adamc@12 | 21 val v1_again = r.X |
adamc@12 | 22 val v2_again = r.Y |
adamc@12 | 23 |
adamc@12 | 24 val r2 = {X = {}, Y = v2, Z = {}} |
adamc@12 | 25 val r2_X = r2.X |
adamc@12 | 26 val r2_Y = r2.Y |
adamc@12 | 27 val r2_Z = r2.Z |
adamc@12 | 28 |
adamc@12 | 29 val f = fn fs :: {Type} => fn x : $([X = {}] ++ fs) => x.X |
adamc@12 | 30 val f2 = fn fs :: {Type} => fn x : $(fs ++ [X = {}]) => x.X |
adamc@12 | 31 val f3 = fn fs :: {Type} => fn x : $([X = {}, Y = {Z : {}}] ++ fs) => x.X |
adamc@12 | 32 val f4 = fn fs :: {Type} => fn x : $([X = {}, Y = {Z : {}}] ++ fs) => x.Y |
adamc@12 | 33 val f5 = fn fs1 :: {Type} => fn fs2 :: {Type} => fn x : $(fs1 ++ [X = {}] ++ fs2) => x.X |
adamc@12 | 34 val f6 = fn fs1 :: {Type} => fn fs2 :: {Type} => fn x : $(fs1 ++ [X = {}] ++ fs2 ++ [Y = {Z : {}}]) => x.X |
adamc@12 | 35 val f7 = fn fs1 :: {Type} => fn fs2 :: {Type} => fn x : $(fs1 ++ [X = {}] ++ fs2 ++ [Y = {Z : {}}]) => x.Y |
adamc@12 | 36 |
adamc@12 | 37 val test = f [[Y = t :: Type -> t -> t, Z = {}]] r2 |
adamc@12 | 38 val test = f7 [[Y = t :: Type -> t -> t]] [[Z = {}]] r2 |