'(= (Sling_Underbeam ?X) (+ (Car_Cab_Height ?X) (Sling_Underbeam_Space ?X)))
(<= (Has-Constraint $X Sling_Underbeam_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Sling_Underbeam_C) (Used-In-Constraint Car_Cab_Height Sling_Underbeam_C) (Used-In-Constraint Sling_Underbeam Sling_Underbeam_C) (Used-In-Constraint Sling_Underbeam_Space Sling_Underbeam_C)