(Inherited-Facet-Value
Slot-Documentation
Port
Port-Elevation
The Elevation Of The Port With Respect To Some Reference Point)
(Quantity.Dimension (Port-Elevation ?Self) Length-Dimension)
(Inherited-Facet-Value Slot-Cardinality Port Port-Elevation 1)
(Has-Quantity-Function Port Port-Elevation)
(Slot-Documentation
Port
Port-Elevation
The Elevation Of The Port With Respect To Some Reference Point)
(=> (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-Elevation $X $Y) (Everywhere-Continuous-Quantity $Y))