(<= (Has-Parameter-Slot $X Counterweight_Weight_Limit)
(Counterweight_Guiderail_Model $X))
(<= (Has-Parameter-Slot $X Counterweight_Guiderail_Unit_Weight)
(Counterweight_Guiderail_Model $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Counterwtguiderail
Counterweight_Guiderail_Model)
(=> (Elevator.Counterwtguiderail $X $Y)
(Counterweight_Guiderail_Model $Y))