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