sig
  type 'a t = 'Lattice_bounds.or_top_bottom
  module Operators :
    sig
      val ( >>- ) :
        [< 'Lattice_bounds.TopBottom.t ] ->
        ('-> ([> 'Lattice_bounds.TopBottom.t ] as 'c)) -> 'c
      val ( >>-: ) :
        [< 'Lattice_bounds.TopBottom.t ] ->
        ('-> 'b) -> [> 'Lattice_bounds.TopBottom.t ]
      val ( let+ ) :
        [< 'Lattice_bounds.TopBottom.t ] ->
        ('-> 'b) -> [> 'Lattice_bounds.TopBottom.t ]
      val ( and+ ) :
        [< 'Lattice_bounds.TopBottom.t ] ->
        [< 'Lattice_bounds.TopBottom.t ] ->
        [> ('a * 'b) Lattice_bounds.TopBottom.t ]
      val ( let* ) :
        [< 'Lattice_bounds.TopBottom.t ] ->
        ('-> ([> 'Lattice_bounds.TopBottom.t ] as 'c)) -> 'c
      val ( and* ) :
        [< 'Lattice_bounds.TopBottom.t ] ->
        [< 'Lattice_bounds.TopBottom.t ] ->
        [> ('a * 'b) Lattice_bounds.TopBottom.t ]
    end
  val hash : ('-> int) -> 'Lattice_bounds.TopBottom.t -> int
  val equal :
    ('-> '-> bool) ->
    'Lattice_bounds.TopBottom.t -> 'Lattice_bounds.TopBottom.t -> bool
  val compare :
    ('-> '-> int) ->
    'Lattice_bounds.TopBottom.t -> 'Lattice_bounds.TopBottom.t -> int
  val pretty :
    (Stdlib.Format.formatter -> '-> unit) ->
    Stdlib.Format.formatter -> 'Lattice_bounds.TopBottom.t -> unit
  val join :
    ('-> '-> [< 'Lattice_bounds.TopBottom.t ]) ->
    'Lattice_bounds.TopBottom.t ->
    'Lattice_bounds.TopBottom.t -> 'Lattice_bounds.TopBottom.t
  val narrow :
    ('-> '-> [< 'Lattice_bounds.TopBottom.t ]) ->
    'Lattice_bounds.TopBottom.t ->
    'Lattice_bounds.TopBottom.t -> 'Lattice_bounds.TopBottom.t
end