(Inherited-Facet-Value Slot-Value-Type Elevator Elevator.Phone Car_Phone) (<= (Has-Parameter-Slot $X Car_Phone_Weight) (Car_Phone $X)) (=> (Elevator.Phone $X $Y) (Car_Phone $Y))