infixr 0 -->
(-->) : (Type -> Type) -> (Type -> Type) -> Type