functor (T1 : BatOrd.Ord) (T2 : BatOrd.Ord) (T3 : BatOrd.Ord)
  (T4 : BatOrd.Ord) (T5 : BatOrd.Ord) ->
  sig type t = T1.t * T2.t * T3.t * T4.t * T5.t val ord : t BatOrd.ord end