functor (T1 : BatOrd.Comp->
  functor (T2 : BatOrd.Comp->
    sig type t = T1.t * T2.t val compare : t BatOrd.comp end