module Fsautil: sig .. end
sig
end
val list_of_self : int -> 'a -> 'a list
int -> 'a -> 'a list
val cross_product : 'a list -> 'b list -> ('a * 'b) list
'a list -> 'b list -> ('a * 'b) list
module MakeOrderedSetPair: functor (Ordered : Set.OrderedType) -> Set.OrderedType with type t = (Ordered.t * Ordered.t)
functor (
Ordered
:
Set.OrderedType
) ->
with type t = (Ordered.t * Ordered.t)