'(= (Machine_Groove_Pressure_Acceptable_Maximum ?X) (* (Hoist_Cable_Diameter (Elevator.Hoistcable ?X)) (Machine_Groove_Pressure_Constant ?X)))
(<= (Has-Constraint $X Machine_Groove_Pressure_Acceptable_Maximum_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Machine_Groove_Pressure_Acceptable_Maximum_C) (Used-In-Constraint Hoist_Cable_Diameter Machine_Groove_Pressure_Acceptable_Maximum_C) (Used-In-Constraint Machine_Groove_Pressure_Constant Machine_Groove_Pressure_Acceptable_Maximum_C) (Used-In-Constraint Machine_Groove_Pressure_Acceptable_Maximum Machine_Groove_Pressure_Acceptable_Maximum_C)