'(=> (/= (Model-Id (Elevator.Compensationcable ?X)) Compensation_Cable_Model_M07) (= (Compensation_Cable_Length ?X) (+ (Hoistway_Travel ?X) (* 2 (+ (Hoistway_Pit_Depth ?X) 120)))))
(<= (Has-Constraint $X Compensation_Cable_Length_C02) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Compensation_Cable_Length_C02) (Used-In-Constraint Compensation_Cable_Length Compensation_Cable_Length_C02) (Used-In-Constraint Model-Id Compensation_Cable_Length_C02) (Used-In-Constraint Hoistway_Pit_Depth Compensation_Cable_Length_C02) (Used-In-Constraint Hoistway_Travel Compensation_Cable_Length_C02)