'(= (Machine_Sheave_Height ?X) (Machine_Sheave_Height_F (Elevator.Machine ?X)))
(<= (Has-Constraint $X Machine_Sheave_Height_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Machine_Sheave_Height_C) (Used-In-Constraint Machine_Sheave_Height_F Machine_Sheave_Height_C) (Used-In-Constraint Machine_Sheave_Height Machine_Sheave_Height_C)