With_Under_Approximation
type t
val link : t -> t -> t
under-approximation of union
val meet : t -> t -> t
under-approximation of intersection