From 25838bc2eb221b82151c648473b3528e3a4e4e9d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 17 Oct 2010 13:26:11 -0400
Subject: Simplify type of Monad.appR2

---
 lib/ur/monad.urs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'lib/ur/monad.urs')

diff --git a/lib/ur/monad.urs b/lib/ur/monad.urs
index 7bac8756..be3b59ab 100644
--- a/lib/ur/monad.urs
+++ b/lib/ur/monad.urs
@@ -63,7 +63,5 @@ val foldMapR : K --> m ::: (Type -> Type) -> monad m
 
 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
-- 
cgit v1.2.3