'(= (Sling_Stile_Length ?X) (+ (Sling_Underbeam ?X) (+ (Crosshead_Height (Elevator.Crosshead ?X)) (- (Platform_Height (Elevator.Platform ?X)) 0.81))))
(<= (Has-Constraint $X Sling_Stile_Length_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Sling_Stile_Length_C) (Used-In-Constraint Crosshead_Height Sling_Stile_Length_C) (Used-In-Constraint Platform_Height Sling_Stile_Length_C) (Used-In-Constraint Sling_Underbeam Sling_Stile_Length_C) (Used-In-Constraint Sling_Stile_Length Sling_Stile_Length_C)