'(= (Hoist_Cable_Length ?X) (+ (Hoistway_Travel ?X) (+ (Hoistway_Overhead ?X) (+ (Machine_Sheave_Height ?X) (+ (Hoist_Cable_Above_Counterweight_Car_Bottom ?X) (- 120 (Sling_Underbeam ?X)))))))
(<= (Has-Constraint $X Hoist_Cable_Length_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Hoist_Cable_Length_C) (Used-In-Constraint Hoist_Cable_Above_Counterweight_Car_Bottom Hoist_Cable_Length_C) (Used-In-Constraint Hoist_Cable_Length Hoist_Cable_Length_C) (Used-In-Constraint Machine_Sheave_Height Hoist_Cable_Length_C) (Used-In-Constraint Hoistway_Overhead Hoist_Cable_Length_C) (Used-In-Constraint Sling_Underbeam Hoist_Cable_Length_C) (Used-In-Constraint Hoistway_Travel Hoist_Cable_Length_C)