Mercurial > urweb
diff lib/ur/monad.urs @ 937:37dd42935dad
Summary row with aggregates
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 15 Sep 2009 10:18:56 -0400 |
parents | 321a2d6feb40 |
children | 8d3aa6c7cee0 |
line wrap: on
line diff
--- a/lib/ur/monad.urs Tue Sep 15 09:45:46 2009 -0400 +++ b/lib/ur/monad.urs Tue Sep 15 10:18:56 2009 -0400 @@ -39,3 +39,9 @@ -> tr :: (K -> Type) -> (nm :: Name -> t :: K -> tf t -> m (tr t)) -> r :: {K} -> folder r -> $(map tf r) -> m ($(map tr r)) + +val mapR2 : K --> m ::: (Type -> Type) -> monad m + -> tf1 :: (K -> Type) -> tf2 :: (K -> Type) + -> tr :: (K -> Type) + -> (nm :: Name -> t :: K -> tf1 t -> tf2 t -> m (tr t)) + -> r :: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m ($(map tr r))