Module Instances.TopBot

include Types.PREMONAD with type 'a t = 'a topbot
include Types.UNARY_TYPE with type 'a t = 'a topbot
type 'a t = 'a topbot
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val order : ('a -> 'a -> Types.order) -> 'a t -> 'a t -> Types.order
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val pp : 'a Types.pp -> 'a t Types.pp
val hash : ('a -> int) -> 'a t -> int
val map : ('a -> 'b) -> 'a t -> 'b t
val iter : ('a -> unit) -> 'a t -> unit
val fold : ('a -> 'b -> 'b) -> 'a t -> 'b -> 'b
val return : 'a -> 'a t
val bind : ('a -> 'b t) -> 'a t -> 'b t
val join : 'a t t -> 'a t