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