(<= (Has-Parameter-Slot $X Deflector_Sheave_Weight)
(Deflector_Sheave_Model $X))
(<= (Has-Parameter-Slot $X Deflector_Sheave_Protrusion)
(Deflector_Sheave_Model $X))
(<= (Has-Parameter-Slot $X Deflector_Sheave_Diameter_S)
(Deflector_Sheave_Model $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Deflectorsheave
Deflector_Sheave_Model)
(=> (Elevator.Deflectorsheave $X $Y) (Deflector_Sheave_Model $Y))