(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Governorcable
Governor_Cable_Model)
(<= (Has-Parameter-Slot $X Governor_Cable_Diameter)
(Governor_Cable_Model $X))
(=> (Elevator.Governorcable $X $Y) (Governor_Cable_Model $Y))