(Inherited-Facet-Value Slot-Value-Type Elevator Elevator.Msheavegroove Machine_Groove_Model) (<= (Has-Parameter-Slot $X Model-Id) (Machine_Groove_Model $X)) (=> (Elevator.Msheavegroove $X $Y) (Machine_Groove_Model $Y))