sig
  type 'a t = 'Lattice_bounds.or_bottom
  module Operators :
    sig
      val ( >>- ) :
        [< 'Lattice_bounds.Bottom.t ] ->
        ('-> ([> 'Lattice_bounds.Bottom.t ] as 'c)) -> 'c
      val ( >>-: ) :
        [< 'Lattice_bounds.Bottom.t ] ->
        ('-> 'b) -> [> 'Lattice_bounds.Bottom.t ]
      val ( let+ ) :
        [< 'Lattice_bounds.Bottom.t ] ->
        ('-> 'b) -> [> 'Lattice_bounds.Bottom.t ]
      val ( and+ ) :
        [< 'Lattice_bounds.Bottom.t ] ->
        [< 'Lattice_bounds.Bottom.t ] ->
        [> ('a * 'b) Lattice_bounds.Bottom.t ]
      val ( let* ) :
        [< 'Lattice_bounds.Bottom.t ] ->
        ('-> ([> 'Lattice_bounds.Bottom.t ] as 'c)) -> 'c
      val ( and* ) :
        [< 'Lattice_bounds.Bottom.t ] ->
        [< 'Lattice_bounds.Bottom.t ] ->
        [> ('a * 'b) Lattice_bounds.Bottom.t ]
    end
  module Make_Datatype :
    functor (Domain : Datatype.S->
      sig
        type t = Domain.t or_bottom
        val ty : t Type.t
        val name : string
        val descr : t Descr.t
        val packed_descr : Structural_descr.pack
        val reprs : t list
        val equal : t -> t -> bool
        val compare : t -> t -> int
        val hash : t -> int
        val pretty_code : Format.formatter -> t -> unit
        val internal_pretty_code :
          Type.precedence -> Format.formatter -> t -> unit
        val pretty : Format.formatter -> t -> unit
        val varname : t -> string
        val mem_project : (Project_skeleton.t -> bool) -> t -> bool
        val copy : t -> t
      end
  module Bound_Lattice :
    functor (Lattice : Lattice_type.Join_Semi_Lattice->
      sig
        type t = Lattice.t or_bottom
        val ty : t Type.t
        val name : string
        val descr : t Descr.t
        val packed_descr : Structural_descr.pack
        val reprs : t list
        val equal : t -> t -> bool
        val compare : t -> t -> int
        val hash : t -> int
        val pretty_code : Format.formatter -> t -> unit
        val internal_pretty_code :
          Type.precedence -> Format.formatter -> t -> unit
        val pretty : Format.formatter -> t -> unit
        val varname : t -> string
        val mem_project : (Project_skeleton.t -> bool) -> t -> bool
        val copy : t -> t
        val join : t -> t -> t
        val is_included : t -> t -> bool
        val bottom : t
      end
  val is_bottom : 'Lattice_bounds.Bottom.t -> bool
  val non_bottom : 'Lattice_bounds.Bottom.t -> 'a
  val value : bottom:'-> 'Lattice_bounds.Bottom.t -> 'a
  val hash : ('-> int) -> 'Lattice_bounds.Bottom.t -> int
  val equal :
    ('-> '-> bool) ->
    'Lattice_bounds.Bottom.t -> 'Lattice_bounds.Bottom.t -> bool
  val compare :
    ('-> '-> int) ->
    'Lattice_bounds.Bottom.t -> 'Lattice_bounds.Bottom.t -> int
  val pretty_bottom : Stdlib.Format.formatter -> unit
  val pretty :
    (Stdlib.Format.formatter -> '-> unit) ->
    Stdlib.Format.formatter -> 'Lattice_bounds.Bottom.t -> unit
  val is_included :
    ('-> '-> bool) ->
    'Lattice_bounds.Bottom.t -> 'Lattice_bounds.Bottom.t -> bool
  val join :
    ('-> '-> 'a) ->
    'Lattice_bounds.Bottom.t ->
    'Lattice_bounds.Bottom.t -> 'Lattice_bounds.Bottom.t
  val join_list :
    ('-> '-> 'a) ->
    'Lattice_bounds.Bottom.t list -> 'Lattice_bounds.Bottom.t
  val narrow :
    ('-> '-> 'Lattice_bounds.Bottom.t) ->
    'Lattice_bounds.Bottom.t ->
    'Lattice_bounds.Bottom.t -> 'Lattice_bounds.Bottom.t
  val iter : ('-> unit) -> 'Lattice_bounds.Bottom.t -> unit
  val fold : bottom:'-> ('-> 'b) -> 'Lattice_bounds.Bottom.t -> 'b
  val map :
    ('-> 'b) -> 'Lattice_bounds.Bottom.t -> 'Lattice_bounds.Bottom.t
  val zip :
    'Lattice_bounds.Bottom.t ->
    'Lattice_bounds.Bottom.t -> ('a * 'b) Lattice_bounds.Bottom.t
  val to_option : 'Lattice_bounds.Bottom.t -> 'a option
  val of_option : 'a option -> 'Lattice_bounds.Bottom.t
  val to_list : 'Lattice_bounds.Bottom.t -> 'a list
  val bot_of_list : 'a list -> 'a list Lattice_bounds.Bottom.t
  val list_of_bot : 'a list Lattice_bounds.Bottom.t -> 'a list
  val list_values : 'Lattice_bounds.Bottom.t list -> 'a list
  val add_to_list : 'Lattice_bounds.Bottom.t -> 'a list -> 'a list
end