fix0 : [`a, `b] ((`a -> `b) -> (`a -> `b)) -> (`a -> (`b -> `b))