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