added further instances for Pairs in Pair.hs