From 330dbb60d0cffe60d5257adbd82028737165bf63 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 24 Feb 2009 13:50:39 -0500 Subject: Top.Fold.mp --- lib/ur/top.urs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/ur/top.urs') 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 -- cgit v1.2.3