sig
  val foldn : f:('-> int -> 'a) -> init:'-> int -> 'a
  val sum_int : int Std_internal.List.t -> int
  val ( ==> ) : bool -> bool -> bool
  type 'a gen = unit -> 'a
  val fg : unit -> float
  val pfg : unit -> float
  val nng : unit -> int
  val uig : unit -> int
  val lg : (unit -> 'a) -> ?size_gen:(unit -> int) -> unit -> 'a list
  val pg : (unit -> 'a) -> (unit -> 'b) -> unit -> 'a * 'b
  val tg :
    (unit -> 'a) -> (unit -> 'b) -> (unit -> 'c) -> unit -> 'a * 'b * 'c
  val cg : unit -> char
  val sg :
    ?char_gen:(unit -> char) -> ?size_gen:(unit -> int) -> unit -> string
  val oneofl : 'Std_internal.List.container -> unit -> 'a
  val oneof : 'Std_internal.List.container -> 'a
  val always : '-> unit -> 'a
  val frequency : (int * 'a) list -> 'a
  val frequencyl : (int * 'a) list -> unit -> 'a
  val laws : int -> (unit -> 'a) -> ('-> bool) -> 'a option
  val laws_exn : string -> int -> (unit -> 'a) -> ('-> bool) -> unit
  val statistic_number : 'a list -> (int * 'a) list
  val statistic : 'a list -> (int * 'a) list
  val laws2 :
    int -> ('-> bool * 'b) -> (unit -> 'a) -> 'a option * (int * 'b) list
end