Suite_right_absorbtion_aux (preface.Preface_qcheck.Indexed_alternative.Suite_right_absorbtion

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_right_absorb_1 : int -> QCheck2.Test.t

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