'(=> (= (Model-Id (Elevator.Sling ?X)) Sling_Model_M03) (= (Model-Id (Elevator.Crosshead ?X)) Crosshead_Model_M01))
(<= (Has-Constraint $X Crosshead_Model_C04) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Crosshead_Model_C04) (Used-In-Constraint Model-Id Crosshead_Model_C04)