annotate lib/ur/mem.urs @ 1330:452b14d88a10

fix small memory leaks
author Marc Weber <marco-oweber@gmx.de>
date Sun, 05 Dec 2010 18:47:54 +0100
parents ac3dbbc85c6e
children
rev   line source
adamc@1180 1 con mem :: K --> Name -> K -> {K} -> Type
adamc@1180 2
adamc@1180 3 val mem : K --> nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => mem nm t ([nm = t] ++ r)
adamc@1180 4 val mp : K --> K2 --> f :: (K -> K2) -> nm ::: Name -> t ::: K -> r ::: {K} -> mem nm t r -> mem nm (f t) (map f r)
adamc@1180 5
adamc@1180 6 val proj : nm ::: Name -> t ::: Type -> r ::: {Type} -> mem nm t r -> $r -> t
adamc@1180 7 val replace : nm ::: Name -> t ::: Type -> r ::: {Type} -> mem nm t r -> $r -> t -> $r
adamc@1180 8
adamc@1180 9 val fold : K --> tf :: ({K} -> Type) -> r ::: {K}
adamc@1180 10 -> (nm :: Name -> v :: K -> r' :: {K} -> [[nm] ~ r']
adamc@1180 11 => mem nm v r -> tf r' -> tf ([nm = v] ++ r'))
adamc@1180 12 -> tf []
adamc@1180 13 -> folder r -> tf r