--- a/lib/ur/monad.urs	Tue Oct 19 11:51:53 2010 -0400
+++ b/lib/ur/monad.urs	Tue Oct 19 15:26:12 2010 -0400
@@ -70,3 +70,8 @@
              -> tf1 :: (K -> Type) -> tf2 :: (K -> Type)
              -> (nm :: Name -> t :: K -> tf1 t -> tf2 t -> m unit)
              -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m unit
+
+val appR3 : K --> m ::: (Type -> Type) -> monad m
+             -> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf3 :: (K -> Type)
+             -> (nm :: Name -> t :: K -> tf1 t -> tf2 t -> tf3 t -> m unit)
+             -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> $(map tf3 r) -> m unit