(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))