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