Module Inout_type

module Inout_type: sig .. end

type t = {

	`over_inputs : Locations.Zone.t;`
	`over_inputs_if_termination : Locations.Zone.t;`
	`over_logic_inputs : Locations.Zone.t;`
	`under_outputs_if_termination : Locations.Zone.t;`
	`over_outputs : Locations.Zone.t;`
	`over_outputs_if_termination : Locations.Zone.t;`

}

include Datatype.S

val pretty_operational_inputs : t Pretty_utils.formatter

Pretty-print the fields over_inputs_if_termination, over_inputs and under_outputs_if_termination

val pretty_outputs : t Pretty_utils.formatter

Pretty-print the fields over_outputs and over_outputs_if_termination.

val map : (Locations.Zone.t -> Locations.Zone.t) -> t -> t

val bottom : t

val join : t -> t -> t