'(=> (= (Model-Id (Elevator.Machine ?X)) Machine_Model_M01) (Member (Model-Id (Elevator.Motor ?X)) (Setof Motor_Model_M01 Motor_Model_M02)))
(<= (Has-Constraint $X C-34_1) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint C-34_1) (Used-In-Constraint Model-Id C-34_1)