Functor BatTuple.Tuple4.Comp

module Comp: 
functor (T1 : BatOrd.Comp-> 
functor (T2 : BatOrd.Comp-> 
functor (T3 : BatOrd.Comp-> 
functor (T4 : BatOrd.Comp-> Comp with type t = T1.t * T2.t * T3.t * T4.t
Parameters:
T1 : BatOrd.Comp
T2 : BatOrd.Comp
T3 : BatOrd.Comp
T4 : BatOrd.Comp