'(= (Machine_Groove_Pressure ?X) (/ (Cable_Load_Car_Side_Car_Top ?X) (* (/ (Machine_Sheave_Diameter (Elevator.Machine ?X)) 2) (Hoist_Cable_Quantity ?X))))
(<= (Has-Constraint $X Machine_Groove_Pressure_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Machine_Groove_Pressure_C) (Used-In-Constraint Cable_Load_Car_Side_Car_Top Machine_Groove_Pressure_C) (Used-In-Constraint Machine_Groove_Pressure Machine_Groove_Pressure_C) (Used-In-Constraint Machine_Sheave_Diameter Machine_Groove_Pressure_C) (Used-In-Constraint Hoist_Cable_Quantity Machine_Groove_Pressure_C)