sig
module Tuple2 :
sig
type ('a, 'b) t = 'a * 'b
external first : 'a * 'b -> 'a = "%field0"
external second : 'a * 'b -> 'b = "%field1"
val swap : 'a * 'b -> 'b * 'a
val map : ('a -> 'b) -> ('c -> 'd) -> 'a * 'c -> 'b * 'd
val mapn : ('a -> 'b) -> 'a * 'a -> 'b * 'b
val map1 : ('a -> 'b) -> 'a * 'c -> 'b * 'c
val map2 : ('a -> 'b) -> 'c * 'a -> 'c * 'b
val curry : ('a * 'b -> 'c) -> 'a -> 'b -> 'c
val uncurry : ('a -> 'b -> 'c) -> 'a * 'b -> 'c
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) -> 'a BatIO.output -> 'b * 'c -> unit
val printn :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) -> 'a BatIO.output -> 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) -> 'a * 'b -> 'a * 'b -> int
type 'a enumerable = 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
val eq : 'a BatOrd.eq -> 'b BatOrd.eq -> ('a * 'b) BatOrd.eq
val ord : 'a BatOrd.ord -> 'b BatOrd.ord -> ('a * 'b) BatOrd.ord
val comp : 'a BatOrd.comp -> 'b BatOrd.comp -> ('a * 'b) BatOrd.comp
module Eq :
functor (T1 : BatOrd.Eq) ->
functor (T2 : BatOrd.Eq) ->
sig type t = T1.t * T2.t val eq : t BatOrd.eq end
module Ord :
functor (T1 : BatOrd.Ord) ->
functor (T2 : BatOrd.Ord) ->
sig type t = T1.t * T2.t val ord : t BatOrd.ord end
module Comp :
functor (T1 : BatOrd.Comp) ->
functor (T2 : BatOrd.Comp) ->
sig type t = T1.t * T2.t val compare : t BatOrd.comp end
end
module Tuple3 :
sig
type ('a, 'b, 'c) t = 'a * 'b * 'c
val first : 'a * 'b * 'c -> 'a
val second : 'a * 'b * 'c -> 'b
val third : 'a * 'b * 'c -> 'c
val get12 : 'a * 'b * 'c -> 'a * 'b
val get13 : 'a * 'b * 'c -> 'a * 'c
val get23 : 'a * 'b * 'c -> 'b * 'c
val map :
('a -> 'b) ->
('c -> 'd) -> ('e -> 'f) -> 'a * 'c * 'e -> 'b * 'd * 'f
val mapn : ('a -> 'b) -> 'a * 'a * 'a -> 'b * 'b * 'b
val map1 : ('a -> 'b) -> 'a * 'c * 'd -> 'b * 'c * 'd
val map2 : ('a -> 'b) -> 'c * 'a * 'd -> 'c * 'b * 'd
val map3 : ('a -> 'b) -> 'c * 'd * 'a -> 'c * 'd * 'b
val curry : ('a * 'b * 'c -> 'd) -> 'a -> 'b -> 'c -> 'd
val uncurry : ('a -> 'b -> 'c -> 'd) -> 'a * 'b * 'c -> 'd
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) ->
('a BatIO.output -> 'd -> unit) ->
'a BatIO.output -> 'b * 'c * 'd -> unit
val printn :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
'a BatIO.output -> 'b * 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) ->
?cmp3:('c -> 'c -> int) -> 'a * 'b * 'c -> 'a * 'b * 'c -> int
type 'a enumerable = 'a * 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
val eq :
'a BatOrd.eq ->
'b BatOrd.eq -> 'c BatOrd.eq -> ('a * 'b * 'c) BatOrd.eq
val ord :
'a BatOrd.ord ->
'b BatOrd.ord -> 'c BatOrd.ord -> ('a * 'b * 'c) BatOrd.ord
val comp :
'a BatOrd.comp ->
'b BatOrd.comp -> 'c BatOrd.comp -> ('a * 'b * 'c) BatOrd.comp
module Eq :
functor (T1 : BatOrd.Eq) ->
functor (T2 : BatOrd.Eq) ->
functor (T3 : BatOrd.Eq) ->
sig type t = T1.t * T2.t * T3.t val eq : t BatOrd.eq end
module Ord :
functor (T1 : BatOrd.Ord) ->
functor (T2 : BatOrd.Ord) ->
functor (T3 : BatOrd.Ord) ->
sig type t = T1.t * T2.t * T3.t val ord : t BatOrd.ord end
module Comp :
functor (T1 : BatOrd.Comp) ->
functor (T2 : BatOrd.Comp) ->
functor (T3 : BatOrd.Comp) ->
sig type t = T1.t * T2.t * T3.t val compare : t BatOrd.comp end
end
module Tuple4 :
sig
type ('a, 'b, 'c, 'd) t = 'a * 'b * 'c * 'd
val first : 'a * 'b * 'c * 'd -> 'a
val second : 'a * 'b * 'c * 'd -> 'b
val third : 'a * 'b * 'c * 'd -> 'c
val fourth : 'a * 'b * 'c * 'd -> 'd
val get12 : 'a * 'b * 'c * 'd -> 'a * 'b
val get13 : 'a * 'b * 'c * 'd -> 'a * 'c
val get14 : 'a * 'b * 'c * 'd -> 'a * 'd
val get23 : 'a * 'b * 'c * 'd -> 'b * 'c
val get24 : 'a * 'b * 'c * 'd -> 'b * 'd
val get34 : 'a * 'b * 'c * 'd -> 'c * 'd
val get123 : 'a * 'b * 'c * 'd -> 'a * 'b * 'c
val get124 : 'a * 'b * 'c * 'd -> 'a * 'b * 'd
val get234 : 'a * 'b * 'c * 'd -> 'b * 'c * 'd
val map :
('a -> 'b) ->
('c -> 'd) ->
('e -> 'f) -> ('g -> 'h) -> 'a * 'c * 'e * 'g -> 'b * 'd * 'f * 'h
val mapn : ('a -> 'b) -> 'a * 'a * 'a * 'a -> 'b * 'b * 'b * 'b
val map1 : ('a -> 'b) -> 'a * 'c * 'd * 'e -> 'b * 'c * 'd * 'e
val map2 : ('a -> 'b) -> 'c * 'a * 'd * 'e -> 'c * 'b * 'd * 'e
val map3 : ('a -> 'b) -> 'c * 'd * 'a * 'e -> 'c * 'd * 'b * 'e
val map4 : ('a -> 'b) -> 'c * 'd * 'e * 'a -> 'c * 'd * 'e * 'b
val curry : ('a * 'b * 'c * 'd -> 'e) -> 'a -> 'b -> 'c -> 'd -> 'e
val uncurry : ('a -> 'b -> 'c -> 'd -> 'e) -> 'a * 'b * 'c * 'd -> 'e
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) ->
('a BatIO.output -> 'd -> unit) ->
('a BatIO.output -> 'e -> unit) ->
'a BatIO.output -> 'b * 'c * 'd * 'e -> unit
val printn :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
'a BatIO.output -> 'b * 'b * 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) ->
?cmp3:('c -> 'c -> int) ->
?cmp4:('d -> 'd -> int) ->
'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'd -> int
type 'a enumerable = 'a * 'a * 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
val eq :
'a BatOrd.eq ->
'b BatOrd.eq ->
'c BatOrd.eq -> 'd BatOrd.eq -> ('a * 'b * 'c * 'd) BatOrd.eq
val ord :
'a BatOrd.ord ->
'b BatOrd.ord ->
'c BatOrd.ord -> 'd BatOrd.ord -> ('a * 'b * 'c * 'd) BatOrd.ord
val comp :
'a BatOrd.comp ->
'b BatOrd.comp ->
'c BatOrd.comp -> 'd BatOrd.comp -> ('a * 'b * 'c * 'd) BatOrd.comp
module Eq :
functor (T1 : BatOrd.Eq) ->
functor (T2 : BatOrd.Eq) ->
functor (T3 : BatOrd.Eq) ->
functor (T4 : BatOrd.Eq) ->
sig
type t = T1.t * T2.t * T3.t * T4.t
val eq : t BatOrd.eq
end
module Ord :
functor (T1 : BatOrd.Ord) ->
functor (T2 : BatOrd.Ord) ->
functor (T3 : BatOrd.Ord) ->
functor (T4 : BatOrd.Ord) ->
sig
type t = T1.t * T2.t * T3.t * T4.t
val ord : t BatOrd.ord
end
module Comp :
functor (T1 : BatOrd.Comp) ->
functor (T2 : BatOrd.Comp) ->
functor (T3 : BatOrd.Comp) ->
functor (T4 : BatOrd.Comp) ->
sig
type t = T1.t * T2.t * T3.t * T4.t
val compare : t BatOrd.comp
end
end
module Tuple5 :
sig
type ('a, 'b, 'c, 'd, 'e) t = 'a * 'b * 'c * 'd * 'e
val first : 'a * 'b * 'c * 'd * 'e -> 'a
val second : 'a * 'b * 'c * 'd * 'e -> 'b
val third : 'a * 'b * 'c * 'd * 'e -> 'c
val fourth : 'a * 'b * 'c * 'd * 'e -> 'd
val fifth : 'a * 'b * 'c * 'd * 'e -> 'e
val get12 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b
val get13 : 'a * 'b * 'c * 'd * 'e -> 'a * 'c
val get14 : 'a * 'b * 'c * 'd * 'e -> 'a * 'd
val get15 : 'a * 'b * 'c * 'd * 'e -> 'a * 'e
val get23 : 'a * 'b * 'c * 'd * 'e -> 'b * 'c
val get24 : 'a * 'b * 'c * 'd * 'e -> 'b * 'd
val get25 : 'a * 'b * 'c * 'd * 'e -> 'b * 'e
val get34 : 'a * 'b * 'c * 'd * 'e -> 'c * 'd
val get35 : 'a * 'b * 'c * 'd * 'e -> 'c * 'e
val get45 : 'a * 'b * 'c * 'd * 'e -> 'd * 'e
val get123 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'c
val get124 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'd
val get125 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'e
val get134 : 'a * 'b * 'c * 'd * 'e -> 'a * 'c * 'd
val get135 : 'a * 'b * 'c * 'd * 'e -> 'a * 'c * 'e
val get145 : 'a * 'b * 'c * 'd * 'e -> 'a * 'd * 'e
val get234 : 'a * 'b * 'c * 'd * 'e -> 'b * 'c * 'd
val get235 : 'a * 'b * 'c * 'd * 'e -> 'b * 'c * 'e
val get245 : 'a * 'b * 'c * 'd * 'e -> 'b * 'd * 'e
val get345 : 'a * 'b * 'c * 'd * 'e -> 'c * 'd * 'e
val get1234 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'c * 'd
val get1235 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'c * 'e
val get1245 : 'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'd * 'e
val get1345 : 'a * 'b * 'c * 'd * 'e -> 'a * 'c * 'd * 'e
val get2345 : 'a * 'b * 'c * 'd * 'e -> 'b * 'c * 'd * 'e
val map :
('a -> 'b) ->
('c -> 'd) ->
('e -> 'f) ->
('g -> 'h) ->
('i -> 'j) -> 'a * 'c * 'e * 'g * 'i -> 'b * 'd * 'f * 'h * 'j
val mapn :
('a -> 'b) -> 'a * 'a * 'a * 'a * 'a -> 'b * 'b * 'b * 'b * 'b
val map1 :
('a -> 'b) -> 'a * 'c * 'd * 'e * 'f -> 'b * 'c * 'd * 'e * 'f
val map2 :
('a -> 'b) -> 'c * 'a * 'd * 'e * 'f -> 'c * 'b * 'd * 'e * 'f
val map3 :
('a -> 'b) -> 'c * 'd * 'a * 'e * 'f -> 'c * 'd * 'b * 'e * 'f
val map4 :
('a -> 'b) -> 'c * 'd * 'e * 'a * 'f -> 'c * 'd * 'e * 'b * 'f
val map5 :
('a -> 'b) -> 'c * 'd * 'e * 'f * 'a -> 'c * 'd * 'e * 'f * 'b
val curry :
('a * 'b * 'c * 'd * 'e -> 'f) -> 'a -> 'b -> 'c -> 'd -> 'e -> 'f
val uncurry :
('a -> 'b -> 'c -> 'd -> 'e -> 'f) -> 'a * 'b * 'c * 'd * 'e -> 'f
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) ->
('a BatIO.output -> 'd -> unit) ->
('a BatIO.output -> 'e -> unit) ->
('a BatIO.output -> 'f -> unit) ->
'a BatIO.output -> 'b * 'c * 'd * 'e * 'f -> unit
val printn :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
'a BatIO.output -> 'b * 'b * 'b * 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) ->
?cmp3:('c -> 'c -> int) ->
?cmp4:('d -> 'd -> int) ->
?cmp5:('e -> 'e -> int) ->
'a * 'b * 'c * 'd * 'e -> 'a * 'b * 'c * 'd * 'e -> int
type 'a enumerable = 'a * 'a * 'a * 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
val eq :
'a BatOrd.eq ->
'b BatOrd.eq ->
'c BatOrd.eq ->
'd BatOrd.eq -> 'e BatOrd.eq -> ('a * 'b * 'c * 'd * 'e) BatOrd.eq
val ord :
'a BatOrd.ord ->
'b BatOrd.ord ->
'c BatOrd.ord ->
'd BatOrd.ord -> 'e BatOrd.ord -> ('a * 'b * 'c * 'd * 'e) BatOrd.ord
val comp :
'a BatOrd.comp ->
'b BatOrd.comp ->
'c BatOrd.comp ->
'd BatOrd.comp ->
'e BatOrd.comp -> ('a * 'b * 'c * 'd * 'e) BatOrd.comp
module Eq :
functor (T1 : BatOrd.Eq) ->
functor (T2 : BatOrd.Eq) ->
functor (T3 : BatOrd.Eq) ->
functor (T4 : BatOrd.Eq) ->
functor (T5 : BatOrd.Eq) ->
sig
type t = T1.t * T2.t * T3.t * T4.t * T5.t
val eq : t BatOrd.eq
end
module Ord :
functor (T1 : BatOrd.Ord) ->
functor (T2 : BatOrd.Ord) ->
functor (T3 : BatOrd.Ord) ->
functor (T4 : BatOrd.Ord) ->
functor (T5 : BatOrd.Ord) ->
sig
type t = T1.t * T2.t * T3.t * T4.t * T5.t
val ord : t BatOrd.ord
end
module Comp :
functor (T1 : BatOrd.Comp) ->
functor (T2 : BatOrd.Comp) ->
functor (T3 : BatOrd.Comp) ->
functor (T4 : BatOrd.Comp) ->
functor (T5 : BatOrd.Comp) ->
sig
type t = T1.t * T2.t * T3.t * T4.t * T5.t
val compare : t BatOrd.comp
end
end
module Pr :
sig
type ('a, 'b) t = 'a * 'b
external first : 'a * 'b -> 'a = "%field0"
external second : 'a * 'b -> 'b = "%field1"
val swap : 'a * 'b -> 'b * 'a
val map : ('a -> 'b) -> ('c -> 'd) -> 'a * 'c -> 'b * 'd
val mapn : ('a -> 'b) -> 'a * 'a -> 'b * 'b
val map1 : ('a -> 'b) -> 'a * 'c -> 'b * 'c
val map2 : ('a -> 'b) -> 'c * 'a -> 'c * 'b
val curry : ('a * 'b -> 'c) -> 'a -> 'b -> 'c
val uncurry : ('a -> 'b -> 'c) -> 'a * 'b -> 'c
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) -> 'a BatIO.output -> 'b * 'c -> unit
val printn :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) -> 'a BatIO.output -> 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) -> 'a * 'b -> 'a * 'b -> int
type 'a enumerable = 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
val eq : 'a BatOrd.eq -> 'b BatOrd.eq -> ('a * 'b) BatOrd.eq
val ord : 'a BatOrd.ord -> 'b BatOrd.ord -> ('a * 'b) BatOrd.ord
val comp : 'a BatOrd.comp -> 'b BatOrd.comp -> ('a * 'b) BatOrd.comp
module Eq :
functor (T1 : BatOrd.Eq) ->
functor (T2 : BatOrd.Eq) ->
sig type t = T1.t * T2.t val eq : t BatOrd.eq end
module Ord :
functor (T1 : BatOrd.Ord) ->
functor (T2 : BatOrd.Ord) ->
sig type t = T1.t * T2.t val ord : t BatOrd.ord end
module Comp :
functor (T1 : BatOrd.Comp) ->
functor (T2 : BatOrd.Comp) ->
sig type t = T1.t * T2.t val compare : t BatOrd.comp end
val make : 'a -> 'b -> 'a * 'b
end
module Tr :
sig
type ('a, 'b, 'c) t = 'a * 'b * 'c
val first : 'a * 'b * 'c -> 'a
val second : 'a * 'b * 'c -> 'b
val third : 'a * 'b * 'c -> 'c
val get12 : 'a * 'b * 'c -> 'a * 'b
val get13 : 'a * 'b * 'c -> 'a * 'c
val get23 : 'a * 'b * 'c -> 'b * 'c
val map :
('a -> 'b) ->
('c -> 'd) -> ('e -> 'f) -> 'a * 'c * 'e -> 'b * 'd * 'f
val mapn : ('a -> 'b) -> 'a * 'a * 'a -> 'b * 'b * 'b
val map1 : ('a -> 'b) -> 'a * 'c * 'd -> 'b * 'c * 'd
val map2 : ('a -> 'b) -> 'c * 'a * 'd -> 'c * 'b * 'd
val map3 : ('a -> 'b) -> 'c * 'd * 'a -> 'c * 'd * 'b
val curry : ('a * 'b * 'c -> 'd) -> 'a -> 'b -> 'c -> 'd
val uncurry : ('a -> 'b -> 'c -> 'd) -> 'a * 'b * 'c -> 'd
val print :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
('a BatIO.output -> 'c -> unit) ->
('a BatIO.output -> 'd -> unit) ->
'a BatIO.output -> 'b * 'c * 'd -> unit
val printn :
?first:string ->
?sep:string ->
?last:string ->
('a BatIO.output -> 'b -> unit) ->
'a BatIO.output -> 'b * 'b * 'b -> unit
val compare :
?cmp1:('a -> 'a -> int) ->
?cmp2:('b -> 'b -> int) ->
?cmp3:('c -> 'c -> int) -> 'a * 'b * 'c -> 'a * 'b * 'c -> int
type 'a enumerable = 'a * 'a * 'a
val enum : 'a enumerable -> 'a BatEnum.t
val of_enum : 'a BatEnum.t -> 'a enumerable
val eq :
'a BatOrd.eq ->
'b BatOrd.eq -> 'c BatOrd.eq -> ('a * 'b * 'c) BatOrd.eq
val ord :
'a BatOrd.ord ->
'b BatOrd.ord -> 'c BatOrd.ord -> ('a * 'b * 'c) BatOrd.ord
val comp :
'a BatOrd.comp ->
'b BatOrd.comp -> 'c BatOrd.comp -> ('a * 'b * 'c) BatOrd.comp
module Eq :
functor (T1 : BatOrd.Eq) ->
functor (T2 : BatOrd.Eq) ->
functor (T3 : BatOrd.Eq) ->
sig type t = T1.t * T2.t * T3.t val eq : t BatOrd.eq end
module Ord :
functor (T1 : BatOrd.Ord) ->
functor (T2 : BatOrd.Ord) ->
functor (T3 : BatOrd.Ord) ->
sig type t = T1.t * T2.t * T3.t val ord : t BatOrd.ord end
module Comp :
functor (T1 : BatOrd.Comp) ->
functor (T2 : BatOrd.Comp) ->
functor (T3 : BatOrd.Comp) ->
sig type t = T1.t * T2.t * T3.t val compare : t BatOrd.comp end
val make : 'a -> 'b -> 'c -> 'a * 'b * 'c
end
end