'(=> (= (Model-Id (Elevator.Sling ?X)) Sling_Model_M04) (= (Model-Id (Elevator.Crosshead ?X)) Crosshead_Model_M03))
(<= (Has-Constraint $X Crosshead_Model_C03) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Crosshead_Model_C03) (Used-In-Constraint Model-Id Crosshead_Model_C03)