annotate lib/ur/mem.urs @ 1181:618f9f458da9
Got split1 working, but noticed a nasty type inference bug with transplanted unification variables
| author |
Adam Chlipala <adamc@hcoop.net> |
| date |
Sat, 06 Mar 2010 19:14:48 -0500 |
| 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
|
