functor (A : Comparable) (B : Comparable->
  sig
    type 'a t = 'B.t A.t
    val compare :
      ('-> '-> int) ->
      'Reins.Types.Poly.ComposeComparable.t ->
      'Reins.Types.Poly.ComposeComparable.t -> int
    val to_string :
      ('-> string) -> 'Reins.Types.Poly.ComposeComparable.t -> string
  end