(<= (Model-Id $X Crosshead_Model_M01) (Crosshead_Model_M01 $X)) (<= (Has-Parameter-Slot $X Crosshead_Height) (Crosshead_Model_M01 $X)) (<= (Crosshead_Height $X 10.0) (Crosshead_Model_M01 $X))