Functor Qcheck_ops.Make

module Make: functor (X : sig

type 'a t

val (>|=) : 'a t -> ('a -> 'b) -> 'b t

val monoid_product : 'a t -> 'b t -> ('a * 'b) t

val (>>=) : 'a t -> ('a -> 'b t) -> 'b t

end) -> sig .. end

Parameters:

X : sig type 'a t val (>|=) : 'a t -> ('a -> 'b) -> 'b t val monoid_product : 'a t -> 'b t -> ('a * 'b) t val (>>=) : 'a t -> ('a -> 'b t) -> 'b t end

type 'a t_let = 'a X.t

val let+ : 'a X.t -> ('a -> 'b) -> 'b X.t

val and+ : 'a X.t -> 'b X.t -> ('a * 'b) X.t