Module Domain_product

module Domain_product: sig .. end

module Make: 
functor (Value : Abstract_value.S) ->
functor (Left : Abstract_domain.Internal with type value = Value.t) ->
functor (Right : Abstract_domain.Internal with type value = Left.value and type location = Left.location) -> Abstract_domain.Internal with type value = Value.t and type location = Left.location and type state = Left.state * Right.state