'(=> (= (Machine_Beam_Support_Type ?X) pocket) (= (Machine_Beam_Support_Bottom_To_Machine_Room_Top ?X) (- (Machine_Beam_Support_Bottom_To_Machine_Room_Top_Spec ?X) (Machine_Beam_Bearing_Plate_Thickness ?X))))
(<= (Has-Constraint $X Machine_Beam_Support_Underside_To_Machine_Room_Floor) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Machine_Beam_Support_Underside_To_Machine_Room_Floor) (Used-In-Constraint Machine_Beam_Support_Bottom_To_Machine_Room_Top_Spec Machine_Beam_Support_Underside_To_Machine_Room_Floor) (Used-In-Constraint Machine_Beam_Bearing_Plate_Thickness Machine_Beam_Support_Underside_To_Machine_Room_Floor) (Used-In-Constraint Machine_Beam_Support_Type Machine_Beam_Support_Underside_To_Machine_Room_Floor) (Used-In-Constraint Machine_Beam_Support_Bottom_To_Machine_Room_Top Machine_Beam_Support_Underside_To_Machine_Room_Floor)