fun (f : ~A) => fun (x : A) => exf (x : A)