adamc@834: val exec : m ::: (Type -> Type) -> monad m -> ts ::: {Type}
adamc@834:            -> $(map m ts) -> folder ts -> m $ts
adamc@898: 
adamc@898: val ignore : m ::: (Type -> Type) -> monad m -> t ::: Type
adamc@898:              -> m t -> m unit
adamc@905: 
adamc@917: val mp : m ::: (Type -> Type) -> monad m -> a ::: Type -> b ::: Type
adamc@917:          -> (a -> b) -> m a -> m b
adamc@917: 
adamc@905: val foldR : K --> m ::: (Type -> Type) -> monad m
adamc@905:             -> tf :: (K -> Type)
adamc@905:             -> tr :: ({K} -> Type)
adamc@905:             -> (nm :: Name -> t :: K -> rest :: {K}
adamc@905:                 -> [[nm] ~ rest] =>
adamc@905:                 tf t -> tr rest -> m (tr ([nm = t] ++ rest)))
adamc@905:             -> tr []
adamc@1093:             -> r ::: {K} -> folder r -> $(map tf r) -> m (tr r)
adamc@905: 
adamc@905: val foldR2 : K --> m ::: (Type -> Type) -> monad m
adamc@905:              -> tf1 :: (K -> Type) -> tf2 :: (K -> Type)
adamc@905:              -> tr :: ({K} -> Type)
adamc@905:              -> (nm :: Name -> t :: K -> rest :: {K}
adamc@905:                  -> [[nm] ~ rest] =>
adamc@905:                        tf1 t -> tf2 t -> tr rest -> m (tr ([nm = t] ++ rest)))
adamc@905:              -> tr []
adamc@1093:              -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m (tr r)
adamc@905: 
adamc@910: val foldR3 : K --> m ::: (Type -> Type) -> monad m
adamc@910:              -> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf3 :: (K -> Type)
adamc@910:              -> tr :: ({K} -> Type)
adamc@910:              -> (nm :: Name -> t :: K -> rest :: {K}
adamc@910:                  -> [[nm] ~ rest] =>
adamc@910:                        tf1 t -> tf2 t -> tf3 t -> tr rest -> m (tr ([nm = t] ++ rest)))
adamc@910:              -> tr []
adamc@1093:              -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> $(map tf3 r) -> m (tr r)
adamc@910: 
adamc@1172: val mapR0 : K --> m ::: (Type -> Type) -> monad m
adamc@1172:            -> tr :: (K -> Type)
adamc@1172:            -> (nm :: Name -> t :: K -> m (tr t))
adamc@1172:            -> r ::: {K} -> folder r -> m ($(map tr r))
adamc@1172: 
adamc@905: val mapR : K --> m ::: (Type -> Type) -> monad m
adamc@905:            -> tf :: (K -> Type)
adamc@905:            -> tr :: (K -> Type)
adamc@905:            -> (nm :: Name -> t :: K -> tf t -> m (tr t))
adamc@1093:            -> r ::: {K} -> folder r -> $(map tf r) -> m ($(map tr r))
adamc@937: 
adamc@937: val mapR2 : K --> m ::: (Type -> Type) -> monad m
adamc@937:             -> tf1 :: (K -> Type) -> tf2 :: (K -> Type)
adamc@937:             -> tr :: (K -> Type)
adamc@937:             -> (nm :: Name -> t :: K -> tf1 t -> tf2 t -> m (tr t))
adamc@1093:             -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m ($(map tr r))
adamc@1175: 
adamc@1175: val foldMapR : K --> m ::: (Type -> Type) -> monad m
adamc@1175:                -> tf :: (K -> Type)
adamc@1175:                -> tf' :: (K -> Type)
adamc@1175:                -> tr :: ({K} -> Type)
adamc@1175:                -> (nm :: Name -> t :: K -> rest :: {K}
adamc@1175:                    -> [[nm] ~ rest] =>
adamc@1175:                    tf t -> tr rest -> m (tf' t * tr ([nm = t] ++ rest)))
adamc@1175:                -> tr []
adamc@1175:                -> r ::: {K} -> folder r -> $(map tf r) -> m ($(map tf' r) * tr r)
adamc@1257: 
adamc@1257: val appR2 : K --> m ::: (Type -> Type) -> monad m
adamc@1257:              -> tf1 :: (K -> Type) -> tf2 :: (K -> Type)
adamc@1257:              -> (nm :: Name -> t :: K -> rest :: {K}
adamc@1257:                  -> [[nm] ~ rest] =>
adamc@1257:                        tf1 t -> tf2 t -> m unit)
adamc@1257:              -> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m unit