Module Container

module Container: Container

val __pa_ounit_275876e34cf609db118f3d84b799a790 : string

module type T = sig .. end

val fold_count : ('a -> init:int -> f:(int -> 'b -> int) -> 'c) -> 'a -> f:('b -> bool) -> 'c

module Make: 
functor (T : T) -> sig .. end

module type S0 = sig .. end

module type S0_phantom = sig .. end

module type S1 = sig .. end

module type S1_phantom = sig .. end

module type S1_phantom_invariant = sig .. end

module type Generic = sig .. end

module type Generic_phantom = sig .. end

module Check: 
functor (T : T.T1) -> 
functor (Elt : T.T1) -> 
functor (M : Generic  with type 'a t := 'a T.t  with type 'a elt := 'a Elt.t) -> sig .. end

module Check_S0: 
functor (M : S0) -> Check(sig
type 'a t = M.t 

end)(sig
type 'a t = M.elt 

end)(M)

module Check_S0_phantom: 
functor (M : S0_phantom) -> Check(sig
type 'a t = 'a M.t 

end)(sig
type 'a t = M.elt 

end)(M)

module Check_S1: 
functor (M : S1) -> Check(sig
type 'a t = 'a M.t 

end)(sig
type 'a t = 'a 

end)(M)

type phantom 

module Check_S1_phantom: 
functor (M : S1_phantom) -> Check(sig
type 'a t = ('a, Container.phantom) M.t 

end)(sig
type 'a t = 'a 

end)(M)

module Check_S1_phantom_invariant: 
functor (M : S1_phantom_invariant) -> Check(sig
type 'a t = ('a, Container.phantom) M.t 

end)(sig
type 'a t = 'a 

end)(M)

      module C = Container.Make (struct ... end)
      let count    = C.count
      let exists   = C.exists
      let find     = C.find
      ...
    

This is preferable to:

      include Container.Make (struct ... end)
    

because the include makes it to easy to shadow specialized implementations of container functions (length being a common one).