blob: 05f201e01f609e5aa75fbc0c2c65ba79c06ea543 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
val exec : m ::: (Type -> Type) -> monad m -> ts ::: {Type}
-> $(map m ts) -> folder ts -> m $ts
val ignore : m ::: (Type -> Type) -> monad m -> t ::: Type
-> m t -> m unit
val mp : m ::: (Type -> Type) -> monad m -> a ::: Type -> b ::: Type
-> (a -> b) -> m a -> m b
val foldR : K --> m ::: (Type -> Type) -> monad m
-> tf :: (K -> Type)
-> tr :: ({K} -> Type)
-> (nm :: Name -> t :: K -> rest :: {K}
-> [[nm] ~ rest] =>
tf t -> tr rest -> m (tr ([nm = t] ++ rest)))
-> tr []
-> r ::: {K} -> folder r -> $(map tf r) -> m (tr r)
val foldR2 : K --> m ::: (Type -> Type) -> monad m
-> tf1 :: (K -> Type) -> tf2 :: (K -> Type)
-> tr :: ({K} -> Type)
-> (nm :: Name -> t :: K -> rest :: {K}
-> [[nm] ~ rest] =>
tf1 t -> tf2 t -> tr rest -> m (tr ([nm = t] ++ rest)))
-> tr []
-> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> m (tr r)
val foldR3 : K --> m ::: (Type -> Type) -> monad m
-> tf1 :: (K -> Type) -> tf2 :: (K -> Type) -> tf3 :: (K -> Type)
-> tr :: ({K} -> Type)
-> (nm :: Name -> t :: K -> rest :: {K}
-> [[nm] ~ rest] =>
tf1 t -> tf2 t -> tf3 t -> tr rest -> m (tr ([nm = t] ++ rest)))
-> tr []
-> r ::: {K} -> folder r -> $(map tf1 r) -> $(map tf2 r) -> $(map tf3 r) -> m (tr r)
val mapR0 : K --> m ::: (Type -> Type) -> monad m
-> tr :: (K -> Type)
-> (nm :: Name -> t :: K -> m (tr t))
-> r ::: {K} -> folder r -> m ($(map tr r))
val mapR : K --> m ::: (Type -> Type) -> monad m
-> tf :: (K -> Type)
-> 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))
|
