Module type Eva_lattice_type.With_Narrow

module type With_Narrow = sig .. end

type t 
val narrow : t ->
t ->
t Bottom.Type.or_bottom
over-approximation of intersection