'(Member (Door_Speed ?X) (Setof single double))
(<= (Has-Constraint $X Door_Speed_C) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Door_Speed_C) (Used-In-Constraint Door_Speed Door_Speed_C)