(<= (Has-Parameter-Slot $X Compensation_Cable_Unit_Weight)
(Compensation_Cable_Model $X))
(<= (Has-Parameter-Slot $X Compensation_Cable_Quantity_C02)
(Compensation_Cable_Model $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Compensationcable
Compensation_Cable_Model)
(=> (Elevator.Compensationcable $X $Y) (Compensation_Cable_Model $Y))