(Inherited-Facet-Value Slot-Documentation
Port
Port-Area
The Area Of The Cross Section Of The Port)
(Quantity.Dimension (Port-Area ?Self) Area-Dimension)
(Inherited-Facet-Value Slot-Cardinality Port Port-Area 1)
(Has-Quantity-Function Port Port-Area)
(Slot-Documentation Port
Port-Area
The Area Of The Cross Section Of The Port)
(=> (Port ?Self)
(And (Value-Cardinality ?Self Port-Area 1)
(Quantity.Dimension (Port-Area ?Self) Area-Dimension)
(Value-Cardinality ?Self Port-Elevation 1)
(Quantity.Dimension (Port-Elevation ?Self) Length-Dimension)))
(=> (Port-Area $X $Y) (Everywhere-Continuous-Quantity $Y))