(Inherited-Facet-Value Slot-Value-Type Elevator Elevator.Hoistcable Hoist_Cable_Model) (<= (Has-Parameter-Slot $X Hoist_Cable_Unit_Weight) (Hoist_Cable_Model $X)) (<= (Has-Parameter-Slot $X Hoist_Cable_Ultimate_Strength) (Hoist_Cable_Model $X)) (<= (Has-Parameter-Slot $X Hoist_Cable_Quantity_F) (Hoist_Cable_Model $X)) (<= (Has-Parameter-Slot $X Hoist_Cable_Diameter) (Hoist_Cable_Model $X)) (=> (Elevator.Hoistcable $X $Y) (Hoist_Cable_Model $Y))