Suite_monoidal_aux (preface.Preface_qcheck.Indexed_alternative.Suite_monoidal

Parameters

module R : Model.COVARIANT_2

module F : 
  Preface_specs.INDEXED_ALTERNATIVE with type ('a, 'index) t = ('a, 'index) R.t

module A : Model.T0

module B : Model.T0

module Index : Model.T0

module Laws : sig ... end

val print : 
  (Stdlib.Format.formatter -> 'a -> unit) ->
  ('a, Index.t) R.t ->
  string

val alternative_monoid_1 : int -> QCheck2.Test.t

val alternative_monoid_2 : int -> QCheck2.Test.t

val alternative_monoid_3 : int -> QCheck2.Test.t

val tests : count:int -> QCheck2.Test.t list