(Inherited-Facet-Value Slot-Value-Type Elevator Elevator.Sling Sling_Model) (<= (Has-Parameter-Slot $X Sling_Weight_Factor_C) (Sling_Model $X)) (<= (Has-Parameter-Slot $X Sling_Weight_Factor_B) (Sling_Model $X)) (<= (Has-Parameter-Slot $X Sling_Weight_Factor_A) (Sling_Model $X)) (<= (Has-Parameter-Slot $X Sling_Deflection_Index_Maximum) (Sling_Model $X)) (<= (Has-Parameter-Slot $X Sling_Bending_Moment_Maximum) (Sling_Model $X)) (=> (Elevator.Sling $X $Y) (Sling_Model $Y))