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