(<= (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))