'(< (* (Hoist_Cable_Diameter (Elevator.Hoistcable ?X)) 40) (Deflector_Sheave_Diameter_S (Elevator.Deflectorsheave ?X)))
(<= (Has-Constraint $X Deflector_Sheave_Diameter_Minimum) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Deflector_Sheave_Diameter_Minimum) (Used-In-Constraint Deflector_Sheave_Diameter_S Deflector_Sheave_Diameter_Minimum) (Used-In-Constraint Hoist_Cable_Diameter Deflector_Sheave_Diameter_Minimum)