val shrink_count : (t, Base.int) Fieldslib.Field.t
val test_count : (t, Base.int) Fieldslib.Field.t
val seed : (t, Seed.t) Fieldslib.Field.t
val fold : init:'acc__0 -> seed:('acc__0 -> (t, Seed.t) Fieldslib.Field.t -> 'acc__1) ->
test_count:('acc__1 -> (t, Base.int) Fieldslib.Field.t -> 'acc__2) ->
shrink_count:('acc__2 -> (t, Base.int) Fieldslib.Field.t -> 'acc__3) ->
sizes:('acc__3 -> (t, Base.int Base.Sequence.t) Fieldslib.Field.t -> 'acc__4) -> 'acc__4
val map_poly : ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user -> 'x0 Base.list