7 lines
150 B
Plaintext
7 lines
150 B
Plaintext
-- λf g x y z w. f w (g x y z)
|
|
let flip := λf x y. f y x
|
|
comp := λf g x. f (g x)
|
|
const := λx y. x
|
|
id := (flip const) comp
|
|
in id
|