'(=> (= (Model-Id (Elevator.Sling ?X)) Sling_Model_M05) (= (Model-Id (Elevator.Crosshead ?X)) Crosshead_Model_M02))
(<= (Has-Constraint $X Crosshead_Model_C05) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Crosshead_Model_C05) (Used-In-Constraint Model-Id Crosshead_Model_C05)