(<= (Has-Parameter-Slot $X Car_Buffer_Stroke) (Car_Buffer_Model $X))
(<= (Has-Parameter-Slot $X Car_Buffer_Load_Minimum)
(Car_Buffer_Model $X))
(<= (Has-Parameter-Slot $X Car_Buffer_Load_Maximum)
(Car_Buffer_Model $X))
(<= (Has-Parameter-Slot $X Car_Buffer_Height) (Car_Buffer_Model $X))
(<= (Has-Parameter-Slot $X Car_Buffer_Footing_Channel_Height)
(Car_Buffer_Model $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Carbuffer
Car_Buffer_Model)
(=> (Elevator.Carbuffer $X $Y) (Car_Buffer_Model $Y))