`sig
type 'a gen = unit -> 'a
val fg : float Quickcheck_deprecated.gen
val cg : char Quickcheck_deprecated.gen
val nng : int Quickcheck_deprecated.gen
val uig : int Quickcheck_deprecated.gen
val pg :
'a Quickcheck_deprecated.gen ->
'b Quickcheck_deprecated.gen -> ('a * 'b) Quickcheck_deprecated.gen
val tg :
'a Quickcheck_deprecated.gen ->
'b Quickcheck_deprecated.gen ->
'c Quickcheck_deprecated.gen -> ('a * 'b * 'c) Quickcheck_deprecated.gen
val lg :
'a Quickcheck_deprecated.gen ->
?size_gen:int Quickcheck_deprecated.gen ->
'a list Quickcheck_deprecated.gen
val sg :
?char_gen:char Quickcheck_deprecated.gen ->
?size_gen:int Quickcheck_deprecated.gen ->
string Quickcheck_deprecated.gen
val always : 'a -> 'a Quickcheck_deprecated.gen
val laws : int -> 'a Quickcheck_deprecated.gen -> ('a -> bool) -> 'a option
val laws_exn :
string -> int -> 'a Quickcheck_deprecated.gen -> ('a -> bool) -> unit
val repeat : int -> ('a -> unit) -> 'a Quickcheck_deprecated.gen -> unit
end`