con c :: (K --> L --> (K * L) -> K) = K ==> L ==> fn p => p.2