'(=> (= (Model-Id (Elevator.Platform ?X)) Platform_Model_M01) (Member (Model-Id (Elevator.Sling ?X)) (Setof Sling_Model_M01 Sling_Model_M02)))
(<= (Has-Constraint $X C-45) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint C-45) (Used-In-Constraint Model-Id C-45)