(Inherited-Facet-Value Slot-Value-Type
Elevator
Elevator.Lantern
Car_Lantern)
(<= (Has-Parameter-Slot $X Car_Lantern_Weight) (Car_Lantern $X))
(=> (Elevator.Lantern $X $Y) (Car_Lantern $Y))