'(=> (= (Model-Id (Elevator.Sling ?X)) Sling_Model_M02) (= (Model-Id (Elevator.Crosshead ?X)) Crosshead_Model_M05))
(<= (Has-Constraint $X Crosshead_Model_C02) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Crosshead_Model_C02) (Used-In-Constraint Model-Id Crosshead_Model_C02)