(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Positionind
Car_Position_Indicator)
(<= (Has-Parameter-Slot $X Car_Position_Indicator_Weight)
(Car_Position_Indicator $X))
(=> (Elevator.Positionind $X $Y) (Car_Position_Indicator $Y))