Monoid structures over pairs
Unit : Setoid
leftNeut : Pair Unit a <~> a
rightNeut : Pair a Unit <~> a
assoc : Pair a (Pair b c) <~> Pair (Pair a b) c
MonoidPair : Monoid