Module type Base__Map.Compare_m