sig
type 'a t = Stdlib.Random.State.t -> 'a
type 'a sized = int -> Stdlib.Random.State.t -> 'a
val return : 'a -> 'a QCheck.Gen.t
val pure : 'a -> 'a QCheck.Gen.t
val ( >>= ) : 'a QCheck.Gen.t -> ('a -> 'b QCheck.Gen.t) -> 'b QCheck.Gen.t
val ( <*> ) : ('a -> 'b) QCheck.Gen.t -> 'a QCheck.Gen.t -> 'b QCheck.Gen.t
val map : ('a -> 'b) -> 'a QCheck.Gen.t -> 'b QCheck.Gen.t
val map2 :
('a -> 'b -> 'c) -> 'a QCheck.Gen.t -> 'b QCheck.Gen.t -> 'c QCheck.Gen.t
val map3 :
('a -> 'b -> 'c -> 'd) ->
'a QCheck.Gen.t -> 'b QCheck.Gen.t -> 'c QCheck.Gen.t -> 'd QCheck.Gen.t
val map_keep_input :
('a -> 'b) -> 'a QCheck.Gen.t -> ('a * 'b) QCheck.Gen.t
val ( >|= ) : 'a QCheck.Gen.t -> ('a -> 'b) -> 'b QCheck.Gen.t
val ( <$> ) : ('a -> 'b) -> 'a QCheck.Gen.t -> 'b QCheck.Gen.t
val oneof : 'a QCheck.Gen.t list -> 'a QCheck.Gen.t
val oneofl : 'a list -> 'a QCheck.Gen.t
val oneofa : 'a array -> 'a QCheck.Gen.t
val frequency : (int * 'a QCheck.Gen.t) list -> 'a QCheck.Gen.t
val frequencyl : (int * 'a) list -> 'a QCheck.Gen.t
val frequencya : (int * 'a) array -> 'a QCheck.Gen.t
val shuffle_a : 'a array -> unit QCheck.Gen.t
val shuffle_l : 'a list -> 'a list QCheck.Gen.t
val shuffle_w_l : (int * 'a) list -> 'a list QCheck.Gen.t
val unit : unit QCheck.Gen.t
val bool : bool QCheck.Gen.t
val float : float QCheck.Gen.t
val pfloat : float QCheck.Gen.t
val nfloat : float QCheck.Gen.t
val float_bound_inclusive : float -> float QCheck.Gen.t
val float_bound_exclusive : float -> float QCheck.Gen.t
val float_range : float -> float -> float QCheck.Gen.t
val ( --. ) : float -> float -> float QCheck.Gen.t
val nat : int QCheck.Gen.t
val big_nat : int QCheck.Gen.t
val neg_int : int QCheck.Gen.t
val pint : int QCheck.Gen.t
val int : int QCheck.Gen.t
val small_nat : int QCheck.Gen.t
val small_int : int QCheck.Gen.t
val small_signed_int : int QCheck.Gen.t
val int_bound : int -> int QCheck.Gen.t
val int_range : int -> int -> int QCheck.Gen.t
val graft_corners : 'a QCheck.Gen.t -> 'a list -> unit -> 'a QCheck.Gen.t
val int_pos_corners : int list
val int_corners : int list
val ( -- ) : int -> int -> int QCheck.Gen.t
val ui32 : int32 QCheck.Gen.t
val ui64 : int64 QCheck.Gen.t
val list : 'a QCheck.Gen.t -> 'a list QCheck.Gen.t
val list_size : int QCheck.Gen.t -> 'a QCheck.Gen.t -> 'a list QCheck.Gen.t
val list_repeat : int -> 'a QCheck.Gen.t -> 'a list QCheck.Gen.t
val array : 'a QCheck.Gen.t -> 'a array QCheck.Gen.t
val array_size :
int QCheck.Gen.t -> 'a QCheck.Gen.t -> 'a array QCheck.Gen.t
val array_repeat : int -> 'a QCheck.Gen.t -> 'a array QCheck.Gen.t
val opt : 'a QCheck.Gen.t -> 'a option QCheck.Gen.t
val pair : 'a QCheck.Gen.t -> 'b QCheck.Gen.t -> ('a * 'b) QCheck.Gen.t
val triple :
'a QCheck.Gen.t ->
'b QCheck.Gen.t -> 'c QCheck.Gen.t -> ('a * 'b * 'c) QCheck.Gen.t
val quad :
'a QCheck.Gen.t ->
'b QCheck.Gen.t ->
'c QCheck.Gen.t -> 'd QCheck.Gen.t -> ('a * 'b * 'c * 'd) QCheck.Gen.t
val char : char QCheck.Gen.t
val printable : char QCheck.Gen.t
val numeral : char QCheck.Gen.t
val char_range : char -> char -> char QCheck.Gen.t
val string_size :
?gen:char QCheck.Gen.t -> int QCheck.Gen.t -> string QCheck.Gen.t
val string : ?gen:char QCheck.Gen.t -> string QCheck.Gen.t
val string_of : char QCheck.Gen.t -> string QCheck.Gen.t
val string_readable : string QCheck.Gen.t
val small_string : ?gen:char QCheck.Gen.t -> string QCheck.Gen.t
val small_list : 'a QCheck.Gen.t -> 'a list QCheck.Gen.t
val flatten_l : 'a QCheck.Gen.t list -> 'a list QCheck.Gen.t
val flatten_a : 'a QCheck.Gen.t array -> 'a array QCheck.Gen.t
val flatten_opt : 'a QCheck.Gen.t option -> 'a option QCheck.Gen.t
val flatten_res :
('a QCheck.Gen.t, 'e) Stdlib.result ->
('a, 'e) Stdlib.result QCheck.Gen.t
val small_array : 'a QCheck.Gen.t -> 'a array QCheck.Gen.t
val join : 'a QCheck.Gen.t QCheck.Gen.t -> 'a QCheck.Gen.t
val sized : 'a QCheck.Gen.sized -> 'a QCheck.Gen.t
val sized_size : int QCheck.Gen.t -> 'a QCheck.Gen.sized -> 'a QCheck.Gen.t
val fix :
(('a -> 'b QCheck.Gen.t) -> 'a -> 'b QCheck.Gen.t) ->
'a -> 'b QCheck.Gen.t
val generate :
?rand:Stdlib.Random.State.t -> n:int -> 'a QCheck.Gen.t -> 'a list
val generate1 : ?rand:Stdlib.Random.State.t -> 'a QCheck.Gen.t -> 'a
val ( let+ ) : 'a t -> ('a -> 'b) -> 'b t
val ( and+ ) : 'a t -> 'b t -> ('a * 'b) t
val ( let* ) : 'a t -> ('a -> 'b t) -> 'b t
val ( and* ) : 'a t -> 'b t -> ('a * 'b) t
end