Seq (mavkit-libs.Mavryk_error_monad.TzLwtreslib.Seq)

type !'a t = 'a Stdlib.Seq.t

and !'a node = 'a Stdlib.Seq.node =

| Nil
| Cons of 'a * 'a t

val is_empty : 'a t -> bool

val uncons : 'a t -> ('a * 'a t) option

val length : 'a t -> int

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

val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a

val iteri : (int -> 'a -> unit) -> 'a t -> unit

val fold_lefti : ('b -> int -> 'a -> 'b) -> 'b -> 'a t -> 'b

val for_all : ('a -> bool) -> 'a t -> bool

val exists : ('a -> bool) -> 'a t -> bool

val find : ('a -> bool) -> 'a t -> 'a option

val find_map : ('a -> 'b option) -> 'a t -> 'b option

val iter2 : ('a -> 'b -> unit) -> 'a t -> 'b t -> unit

val fold_left2 : ('a -> 'b -> 'c -> 'a) -> 'a -> 'b t -> 'c t -> 'a

val for_all2 : ('a -> 'b -> bool) -> 'a t -> 'b t -> bool

val exists2 : ('a -> 'b -> bool) -> 'a t -> 'b t -> bool

val equal : ('a -> 'b -> bool) -> 'a t -> 'b t -> bool

val compare : ('a -> 'b -> int) -> 'a t -> 'b t -> int

val empty : 'a t

val return : 'a -> 'a t

val cons : 'a -> 'a t -> 'a t

val unfold : ('b -> ('a * 'b) option) -> 'b -> 'a t

val repeat : 'a -> 'a t

val forever : (unit -> 'a) -> 'a t

val cycle : 'a t -> 'a t

val iterate : ('a -> 'a) -> 'a -> 'a t

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

val mapi : (int -> 'a -> 'b) -> 'a t -> 'b t

val filter : ('a -> bool) -> 'a t -> 'a t

val filter_map : ('a -> 'b option) -> 'a t -> 'b t

val scan : ('b -> 'a -> 'b) -> 'b -> 'a t -> 'b t

val take_while : ('a -> bool) -> 'a t -> 'a t

val drop_while : ('a -> bool) -> 'a t -> 'a t

val group : ('a -> 'a -> bool) -> 'a t -> 'a t t

val memoize : 'a t -> 'a t

exception Forced_twice

val once : 'a t -> 'a t

val transpose : 'a t t -> 'a t t

val append : 'a t -> 'a t -> 'a t

val concat : 'a t t -> 'a t

val flat_map : ('a -> 'b t) -> 'a t -> 'b t

val concat_map : ('a -> 'b t) -> 'a t -> 'b t

val zip : 'a t -> 'b t -> ('a * 'b) t

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

val interleave : 'a t -> 'a t -> 'a t

val sorted_merge : ('a -> 'a -> int) -> 'a t -> 'a t -> 'a t

val product : 'a t -> 'b t -> ('a * 'b) t

val map_product : ('a -> 'b -> 'c) -> 'a t -> 'b t -> 'c t

val unzip : ('a * 'b) t -> 'a t * 'b t

val split : ('a * 'b) t -> 'a t * 'b t

val partition_map : ('a -> ('b, 'c) Stdlib.Either.t) -> 'a t -> 'b t * 'c t

val partition : ('a -> bool) -> 'a t -> 'a t * 'a t

val of_dispenser : (unit -> 'a option) -> 'a t

val to_dispenser : 'a t -> unit -> 'a option

val ints : int -> int t

val init : 
  when_negative_length:'err ->
  int ->
  (int -> 'a) ->
  ('a t, 'err) Stdlib.result

val take : 
  when_negative_length:'err ->
  int ->
  'a t ->
  ('a t, 'err) Stdlib.result

val drop : 
  when_negative_length:'err ->
  int ->
  'a t ->
  ('a t, 'err) Stdlib.result

module E : sig ... end

module S : sig ... end

module ES : sig ... end

val iter_p : ('a -> unit Lwt.t) -> 'a t -> unit Lwt.t

val iteri_p : (int -> 'a -> unit Lwt.t) -> 'a t -> unit Lwt.t

val iter2_p : ('a -> 'b -> unit Lwt.t) -> 'a t -> 'b t -> unit Lwt.t

val iter_ep : 
  ('a -> (unit, 'error TzTrace.trace) Stdlib.result Lwt.t) ->
  'a t ->
  (unit, 'error TzTrace.trace) Stdlib.result Lwt.t

val iteri_ep : 
  (int -> 'a -> (unit, 'error TzTrace.trace) Stdlib.result Lwt.t) ->
  'a t ->
  (unit, 'error TzTrace.trace) Stdlib.result Lwt.t

val iter2_ep : 
  ('a -> 'b -> (unit, 'error TzTrace.trace) Stdlib.result Lwt.t) ->
  'a t ->
  'b t ->
  (unit, 'error TzTrace.trace) Stdlib.result Lwt.t