'(Member (Car_Speed ?X) (Setof 200 250 300 350 400))
(<= (Has-Constraint $X Car_Speed_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Car_Speed_C) (Used-In-Constraint Car_Speed Car_Speed_C)