(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Governor
Governor_Model)
(<= (Has-Parameter-Slot $X Model-Id) (Governor_Model $X))
(=> (Elevator.Governor $X $Y) (Governor_Model $Y))