(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Intercom
Car_Intercom)
(<= (Has-Parameter-Slot $X Car_Intercom_Weight) (Car_Intercom $X))
(=> (Elevator.Intercom $X $Y) (Car_Intercom $Y))