diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-24 13:50:39 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-24 13:50:39 -0500 |
| commit | 330dbb60d0cffe60d5257adbd82028737165bf63 (patch) | |
| tree | 84b91f76ce37f9fb6245d9040c9641188968f729 /lib/ur/top.urs | |
| parent | 541bd325e7e0be52aa27dd56f16f489c44e05d2b (diff) | |
Top.Fold.mp
Diffstat (limited to 'lib/ur/top.urs')
| -rw-r--r-- | lib/ur/top.urs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/ur/top.urs b/lib/ur/top.urs index a32a87a3..29b34b10 100644 --- a/lib/ur/top.urs +++ b/lib/ur/top.urs @@ -12,6 +12,8 @@ structure Folder : sig -> [[nm] ~ r] => folder r -> folder ([nm = v] ++ r) val concat : K --> r1 ::: {K} -> r2 ::: {K} -> [r1 ~ r2] => folder r1 -> folder r2 -> folder (r1 ++ r2) + val mp : K1 --> K2 --> f ::: (K1 -> K2) -> r ::: {K1} + -> folder r -> folder (map f r) end |