'(= (Sling_Stile_Length ?X) (+ (Sling_Underbeam ?X) (+ (Crosshead_Height (Elevator.Crosshead ?X)) (- (Platform_Height (Elevator.Platform ?X)) 0.81))))