'(= (Machine_Sheave_To_Deflector_Sheave ?X) (+ (Machine_Sheave_Height ?X) (+ (Machine_Beam_Support_Bottom_To_Machine_Room_Top ?X) (- (Deflector_Sheave_Protrusion ?X) (* 0.5 (Deflector_Sheave_Diameter ?X))))))
(<= (Has-Constraint $X Machine_Sheave_To_Deflector_Sheave_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Machine_Sheave_To_Deflector_Sheave_C) (Used-In-Constraint Deflector_Sheave_Diameter Machine_Sheave_To_Deflector_Sheave_C) (Used-In-Constraint Deflector_Sheave_Protrusion Machine_Sheave_To_Deflector_Sheave_C) (Used-In-Constraint Machine_Beam_Support_Bottom_To_Machine_Room_Top Machine_Sheave_To_Deflector_Sheave_C) (Used-In-Constraint Machine_Sheave_To_Deflector_Sheave Machine_Sheave_To_Deflector_Sheave_C) (Used-In-Constraint Machine_Sheave_Height Machine_Sheave_To_Deflector_Sheave_C)