Mercurial > urweb

comparison lib/ur/top.urs @ 630:6a6eb9882d57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Top.Fold.mp
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 13:50:39 -0500
parents e68de2a5506b
children effa7d43aac3
comparison
equal deleted inserted replaced
629:e68de2a5506b 630:6a6eb9882d57
10 val nil : K --> folder (([]) :: {K}) 10 val nil : K --> folder (([]) :: {K})
11 val cons : K --> r ::: {K} -> nm :: Name -> v :: K 11 val cons : K --> r ::: {K} -> nm :: Name -> v :: K
12 -> [[nm] ~ r] => folder r -> folder ([nm = v] ++ r) 12 -> [[nm] ~ r] => folder r -> folder ([nm = v] ++ r)
13 val concat : K --> r1 ::: {K} -> r2 ::: {K} 13 val concat : K --> r1 ::: {K} -> r2 ::: {K}
14 -> [r1 ~ r2] => folder r1 -> folder r2 -> folder (r1 ++ r2) 14 -> [r1 ~ r2] => folder r1 -> folder r2 -> folder (r1 ++ r2)
15 val mp : K1 --> K2 --> f ::: (K1 -> K2) -> r ::: {K1}
16 -> folder r -> folder (map f r)
15 end 17 end
16 18
17 19
18 val not : bool -> bool 20 val not : bool -> bool
19 21