(fun (x : A -> A) => (fun (y : A) => x y)) (fun (x : A) => x)