(<= (Has-Parameter-Slot $X Deflector_Sheave_Diameter) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Parameter-Slot Deflector_Sheave_Diameter) (Inherited-Facet-Value Slot-Value-Type Elevator Deflector_Sheave_Diameter Real-Number) (Inherited-Facet-Value Slot-Cardinality Elevator Deflector_Sheave_Diameter 1)