Module type Eva_lattice_type.With_Narrow

module type With_Narrow = sig .. end

type t 
val narrow : t ->
t ->
t Lattice_bounds.or_bottom

over-approximation of intersection