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