Mercurial > urweb
diff lib/ur/monad.urs @ 1310:f0909fb3848f
Simplify type of Monad.appR2
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 17 Oct 2010 13:26:11 -0400 |
parents | fd1a49b51db5 |
children | 726f0caeea3f |
line wrap: on
line diff
--- a/lib/ur/monad.urs Thu Oct 14 11:54:54 2010 -0400 +++ b/lib/ur/monad.urs Sun Oct 17 13:26:11 2010 -0400 @@ -63,7 +63,5 @@ val appR2 : K --> m ::: (Type -> Type) -> monad m -> tf1 :: (K -> Type) -> tf2 :: (K -> Type) - -> (nm :: Name -> t :: K -> rest :: {K} - -> [[nm] ~ rest] => - tf1 t -> tf2 t -> m unit) + -> (nm :: Name -> t :: K -> tf1 t -> tf2 t -> m unit) -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m unit