(<= (Has-Subpart-Slot $X Elevator.Deflectorsheave) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Subpart-Slot Elevator.Deflectorsheave) (Inherited-Facet-Value Slot-Value-Type Elevator Elevator.Deflectorsheave Deflector_Sheave_Model) (Inherited-Facet-Value Slot-Cardinality Elevator Elevator.Deflectorsheave 1) (=> (Elevator.Deflectorsheave $X $Y) (Deflector_Sheave_Model $Y)) (=> (Elevator.Deflectorsheave $X $Y) (Elevator $X))