view lib/ur/mem.urs @ 1244:1eedc9086e6c

Use key information in more places, and catch cases where one key completion depends on another having happened already
author Adam Chlipala <adamc@hcoop.net>
date Sun, 18 Apr 2010 13:00:36 -0400
parents ac3dbbc85c6e
children
line wrap: on
line source
con mem :: K --> Name -> K -> {K} -> Type

val mem : K --> nm :: Name -> t :: K -> r :: {K} -> [[nm] ~ r] => mem nm t ([nm = t] ++ r)
val mp : K --> K2 --> f :: (K -> K2) -> nm ::: Name -> t ::: K -> r ::: {K} -> mem nm t r -> mem nm (f t) (map f r)

val proj : nm ::: Name -> t ::: Type -> r ::: {Type} -> mem nm t r -> $r -> t
val replace : nm ::: Name -> t ::: Type -> r ::: {Type} -> mem nm t r -> $r -> t -> $r

val fold : K --> tf :: ({K} -> Type) -> r ::: {K}
           -> (nm :: Name -> v :: K -> r' :: {K} -> [[nm] ~ r']
               => mem nm v r -> tf r' -> tf ([nm = v] ++ r'))
           -> tf []
           -> folder r -> tf r