Functor Flat_tuple_array_debug.Debug

module Debug: 
functor (Flat_tuple_array : Flat_tuple_array) -> sig .. end

module Debug: Import.Debug(sig
end)

include Debug

module Slots: Flat_tuple_array_debug.Flat_tuple_array.Slots

module Slot: Flat_tuple_array_debug.Flat_tuple_array.Slot

include struct ... end

val sexp_of_t : 'a. ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t

val create : ('a, 'b) Flat_tuple_array.Slots.t ->
       len:int ->
       'a ->
       ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t

val invariant : 'a Core.Std.Invariant.inv ->
       'a Flat_tuple_array_debug.Flat_tuple_array.t Core.Std.Invariant.inv

val length : 'a Flat_tuple_array_debug.Flat_tuple_array.t -> int

val debug : Core.Std.String.t ->
       'a Flat_tuple_array_debug.Flat_tuple_array.t Core.Std.List.t ->
       'b -> ('b -> Sexplib.Sexp.t) -> ('c -> Sexplib.Sexp.t) -> (unit -> 'c) -> 'c

val debug_get : Core.Std.String.t ->
       ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> ('b, 'c) Slot.t -> 'c

val get : ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> ('b, 'c) Slot.t -> 'c

val unsafe_get : ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> ('b, 'c) Slot.t -> 'c

val debug_set : Core.Std.String.t ->
       ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> ('b, 'c) Slot.t -> 'c -> unit

val set : ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> ('b, 'c) Slot.t -> 'c -> unit

val unsafe_set : ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> ('b, 'c) Slot.t -> 'c -> unit

val get_tuple : ('a, 'b) Flat_tuple_array.Slots.t Flat_tuple_array_debug.Flat_tuple_array.t ->
       int -> 'a