(<= (Has-Parameter-Slot $X Crosshead_Height) (Crosshead_Model $X)) (Inherited-Facet-Value Slot-Value-Type Elevator Elevator.Crosshead Crosshead_Model) (=> (Elevator.Crosshead $X $Y) (Crosshead_Model $Y))