(<= (Has-Parameter-Slot $X Car_Guiderail_Weight)
(Car_Guiderail_Model $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Carguiderail
Car_Guiderail_Model)
(=> (Elevator.Carguiderail $X $Y) (Car_Guiderail_Model $Y))