'(= (Machine_Beam_Weight ?X) (* (/ (Machine_Beam_Length ?X) 12) (Machine_Beam_Unit_Weight (Elevator.Mbeam ?X))))
(<= (Has-Constraint $X Machine_Beam_Weight_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Machine_Beam_Weight_C) (Used-In-Constraint Machine_Beam_Length Machine_Beam_Weight_C) (Used-In-Constraint Machine_Beam_Weight Machine_Beam_Weight_C) (Used-In-Constraint Machine_Beam_Unit_Weight Machine_Beam_Weight_C)