Quadruple (tuple_lib.Tuple

type 'a t = 'a * 'a * 'a * 'a

include Core.Bin_prot.Binable.S1 with type 'a t := 'a t

val bin_shape_t : Bin_prot__.Shape.t -> Bin_prot__.Shape.t

val bin_size_t : ('a, 'a t) Bin_prot__.Size.sizer1

val bin_write_t : ('a, 'a t) Bin_prot__.Write.writer1

val bin_read_t : ('a, 'a t) Bin_prot__.Read.reader1

val __bin_read_t__ : ('a, int -> 'a t) Bin_prot__.Read.reader1

val bin_writer_t : ('a, 'a t) Bin_prot__.Type_class.S1.writer

val bin_reader_t : ('a, 'a t) Bin_prot__.Type_class.S1.reader

val bin_t : ('a, 'a t) Bin_prot__.Type_class.S1.t

include Sexplib0.Sexpable.S1 with type 'a t := 'a t

val t_of_sexp : (Sexplib0__.Sexp.t -> 'a) -> Sexplib0__.Sexp.t -> 'a t

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

val equal : 
  ('a -> 'a -> Ppx_deriving_runtime.bool) ->
  'a t ->
  'a t ->
  Ppx_deriving_runtime.bool

include Ppx_compare_lib.Comparable.S1 with type 'a t := 'a t

val compare : 
  'a Base__Ppx_compare_lib.compare ->
  'a t Base__Ppx_compare_lib.compare

val iter : 'a t -> f:('a -> unit) -> unit

val map : 'a t -> f:('a -> 'b) -> 'b t

val map2 : 'a t -> 'b t -> f:('a -> 'b -> 'c) -> 'c t

val get : 'a t -> Four.t -> 'a