'(=> (= (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))))