mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 16:25:54 +03:00
9 lines
211 B
Plaintext
9 lines
211 B
Plaintext
Monad.new
|
|
: ∀(M: ∀(T: *) *)
|
|
∀(bind: ∀(A: *) ∀(B: *) ∀(a: (M A)) ∀(b: ∀(a: A) (M B)) (M B))
|
|
∀(pure: ∀(A: *) ∀(a: A) (M A))
|
|
(Monad M)
|
|
= λM λbind λpure
|
|
~λP λnew
|
|
(new bind pure)
|