(<= (Has-Parameter-Slot $X Control_Cable_Unit_Weight)
(Control_Cable_Model $X))
(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Controlcable
Control_Cable_Model)
(=> (Elevator.Controlcable $X $Y) (Control_Cable_Model $Y))