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