'(Member (Car_Position_Indicator_Spec ?X) (Setof yes no))
(<= (Has-Constraint $X Car_Position_Indicator_C01) (Elevator $X)) (Inherited-Slot-Value Elevator Has-Constraint Car_Position_Indicator_C01) (Used-In-Constraint Car_Position_Indicator_Spec Car_Position_Indicator_C01)