sig
  type 'a t
  val empty : 'a It_type.IT.Deque_stream.t
  val cons :
    int ->
    'a It_type.IT.stream ->
    'a It_type.IT.Deque_stream.t -> 'a It_type.IT.Deque_stream.t
  val cons_sl :
    'a It_type.IT.sl ->
    'a It_type.IT.Deque_stream.t -> 'a It_type.IT.Deque_stream.t
  val snoc :
    'a It_type.IT.Deque_stream.t ->
    int -> 'a It_type.IT.stream -> 'a It_type.IT.Deque_stream.t
  val concat : 'a It_type.IT.Deque_stream.t -> 'a It_type.IT.sl
  val destr_head :
    'a It_type.IT.Deque_stream.t ->
    ((int * 'a It_type.IT.stream) * 'a It_type.IT.Deque_stream.t) option
  val is_empty : 'a It_type.IT.Deque_stream.t -> bool
end